OnKeyPress Functie

[dionikink]

Hallo,

Ik wil graag een macro maken waardoor ik met slechts één druk op een knop (in mijn geval CTRL (KeyCode 17)) de waarde van de actieve cel kan veranderen naar de huidige tijd.

Ik heb al een klein beetje, maar het lukt me niet om die OnKeyPress functie erin te krijgen.

If KeyCode = 17 Then
ActiveCell.Value = Time()
End If

Dit werkt dus niet.


Bij voorbaat dank

 

[sylvester-ponte]

Sub TijdInvullen()
ActiveCell = Time()
End Sub

deze macro via het macro menu koppelen aan een toets

groet sylvester

 

[dionikink]

Ah, dus ik hoef in de macro nergens een toets te definiëren?

EDIT: Hoe koppel ik de macro aan een toets? Ik kan het niet vinden.

 

[Warme bakkertje]

Extra >> Macro >> Macro's >> Macronaam selecteren >> Opties

 

[dionikink]

Dat is een sneltoets. Wat ik bedoel is één enkele knop. Ik zal even een voorbeeldje in ActionScript2 geven:

if(Key.getCode() == 17)
{
          ActiveCell.Value = getTime()
}

Let niet op het gedeelte tussen { en }, ik wist niet wat ik er neer moest zetten. Maar het gaat om het eerste 'if' gedeelte. Ik wil alleen de Ctrl toets indrukken en dan deze code uitvoeren.

 

[edmoor]

Volgens mij is 17 niet de CTRL toets maar de CTRL-Q toetscombinatie.

 

[dionikink]

Ctrl is 17, maar dat maakt niet uit, het gaat mij om de code die ik nodig heb.

 

[Warme bakkertje]

Keypress-events werken voor zover ik weet enkel in Controls.
Waar jij baat bij kan hebben is Application.OnKey

 

[sylvester-ponte]

Ik wil graag een macro maken waardoor ik met slechts één druk op een knop (in mijn geval CTRL (KeyCode 17))

Waar jij baat bij kan hebben is Application.OnKey

alleen CTRL krijg ik niet voor elkaar

maar een van de letter cijfer of functie of vele andere toetsen is geen probleem met Application.OnKey

ik ben benieuwd of iemand het met alleen de CTRL voor elkaar krijgt

groet sylvester

 

[edmoor]

De CTRL key is een zogenaamde STATE key. De status is Pressed of Depressed en dat kan worden gecontroleerd bij een andere actie. Ik gebruik bijvoorbeeld in een Userform_Initialize de volgende controle:

    If (GetAsyncKeyState(VK_CONTROL) And &H8000) Then
        'Actie als CTRL toets is ingedrukt
    End If

Maar het is dus altijd in combinatie met een ander event. Volgens mij is er geen event die door het indrukken van de CTRL toets wordt geactiveerd.

GetAsyncKeyState zit in de user32.dll

Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

 

[sylvester-ponte]

hallo edmoor
ik heb dit geprobeerd in vb

Declare Function GetKeyState Lib "user32" (ByVal vKey As Long) As Integer

Sub test()
    For n = 1 To 10000000
        a = GetKeyState(VK_LCONTROL)
        If a <> 0 Then
            ActiveCell = Time()
            Exit For
        End If
    Next n
End Sub

maar als ik test start en de VK_LCONTROL toets indruk komt er geen tijd in de acticecell te staan.

groet sylvester

 

[edmoor]

Je code is ook niet helemaal juist. Probeer het eens zo:

Declare Function GetKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Const VK_LCONTROL = &H11

Sub test()
    For n = 1 To 10000000
        a = GetKeyState(VK_LCONTROL)
        If (a And &H8000) Then
            Msgbox "Left Control is Pressed"
            Exit For
        End If
    Next n
End Sub

Oh! En &H11 is inderdaad 17

 

[sylvester-ponte]

hallo edmoor
als ik deze code test blijkt hij wisselend te reageren
soms met -127 of -128 en
soms met 0 of 1
en soms helemaal niet

Declare Function GetKeyState Lib "user32" (ByVal vKey As Long) As Integer
Sub test()
    Sheets(1).Cells.ClearContents
    For r = 1 To 35
        For k = 1 To 35
        Cells(r, k) = GetKeyState(17)
        Application.Wait (Now + 0.000006)
'als ik de wachttijd korter zet reageert hij helemaal niet op ce LCONTROL toets
        Next k
    Next r
End Sub

ik vraag of dionikink een andere toets kan gebruiken
eentje die met Application.OnKey "1", "macro1" of zo werkt

dionikink: is dat mogenlijk?

groet sylvester

 

[edmoor]

Je hebt het ook niet gedaan zoals in mijn voorbeeld. Ik heb je eigen code iets aangepast en zo werkt het bij mij prima.

Private Declare Function GetKeyState Lib "user32" (ByVal vKey As Long) As Integer
Sub test()
    Sheets(1).Cells.ClearContents
    For r = 1 To 35
        For k = 1 To 35
        If GetKeyState(17) And &H8000 Then
            Cells(r, k) = "Down"
        Else
            Cells(r, k) = "Up"
        End If
        Application.Wait (Now + 0.000006)
        Next k
    Next r
End Sub

 

[sylvester-ponte]

zo iets wordt het denk ik

Declare Function GetKeyState Lib "user32" (ByVal vKey As Long) As Integer

Function Key(Number As Integer) As String
    Application.Wait (Now + 0.000006)
    If GetKeyState(Number) And &H8000 Then
        Key = "Down"
    Else
        Key = "Up"
    End If
End Function

weet iemand of het op de een andere manier mogenlijk is zonder deze regel ?

Application.Wait (Now + 0.000006)

dit kost een seconde

groet sylvester

 

[edmoor]

Die application.wait is helemaal niet nodig maar dan moet de CTRL toets al wel ingedrukt zijn op het moment dat de functie loopt.
Daarom zei ik eerder al dat het afhankelijk is van het event dat hem triggert.