invoer vervangt klik

[Spiesse]

forumisten aller landen,

voor een project binnen ons bedrijf ben ik op zoek naar volgende hulp:

- men moet van verschillende types de aantallen tellen. Tot op heden lukt dit met het aanklikken van commandbuttons.
Nu zou men dit willen vervangen door het intikken van numerieke toetsen (cijfer 1 activeert knop 1, cijfer 2 activeert knop 2, dit tot en met cijfer 4).

de code heb ik gevonden, maar ik sukkel nog op 1 zaakje:
- na op 1,2,3 of 4 gedrukt te hebben zou de macro direct moeten lopen, en niet pas nadat ik op enter geklikt hebt, of op pijltje naar beneden...

Hier de code voor het activeren van de commandbuttons via numerieke toetsen

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim a As String
a = Sheets("start").Range("a12").Value '("Enter the value for A:")
    'b = InputBox("Enter the value for B:")
    ' Evaluating the expression
    Select Case a
    Case 1
      Module1.Kn_A1_Klikken
    Case 2
      Module1.Kn_A2_Klikken
    Case 3
      Module1.Kn_A3_Klikken
    Case 4
      Module1.Kn_A4_Klikken
    Case Is < 1 > 4
    MsgBox "verkeerd type"
    
    
    End Select


End Sub

 

[ExcelAmateur]

Spiesse,

Ik weet niet of dit wat je wil kan, met enter bevestig je de inhoud van de cel.
Kun je niet beter een sneltoest gebruiken?

 

[Spiesse]

hey excelamateur,
hoe zou ik dit moeten doen?

in principe moet ik iets hebben dat de klik op de knoppen vervangt, dus 1 activeert knop 1 enz...

die enter zou ik moeten kunnen inbakken in de select case...

 

[Spiesse]

Heb je idee rond snelkoppelingen es bekeken... ik kan helaas geen numerieke toetsen koppelen, enkel ctrl en letters...

Of er zou een omleiding moeten zijn?

 

[edmoor]

Een Worksheet functie wordt pas geactiveerd na het verlaten van een cel.
Zover kom ik, maar dan tik je wat in en verlaat je het veld:

Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Target.Address
        Case "$A$12"
            Select Case Target
            Case 1
                MsgBox "Klikken 1"
            Case 2
                MsgBox "Klikken 2"
            Case 3
                MsgBox "Klikken 3"
            Case 4
                MsgBox "Klikken 4"
            Case Else
                MsgBox "verkeerd type"
            End Select
        End Select
    End If
End Sub

Misschien dat iemand anders een idee heeft.
Wellicht dat je beter een formulier kunt gebruiken.

 

[ReneDirks]

Volgens mij is er geen 'mousedown' event in Excel (alleen in chart), je zult dus altijd op tab, enter of pijltje naar beneden of zoiets moeten drukken.
Je zou wel een UserForm kunnen maken met TextBox waarbij je het _Change event gebruikt - deze wordt aangeroepen na iedere toetsaanslag.

Voortbordurend op Edmoor's oplossing

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$12" Then
            strMacroName = "Module1.Kn_A$FIELD$_Klikken"
            strMacroName = Replace(strMacroName, "$FIELD$", Target.Value)
            On Error GoTo ErrHandler
            Application.Run strMacroName
            
ErrHandler:
            Select Case Err.Number
                Case 1004
                    MsgBox "verkeerd type"
                Case Is <> 0
                    MsgBox "Error: " & Err.Number
            End Select
    End If
End Sub

 

[pixcel]

Is application.onkey iets?

 

[Spiesse]

goeiemorgen medeforumisten,

eerst en vooral al bedankt voor het meedenken! Ik ga vandaag tijdens mijn werkuren es kijken of jullie voorstellen mij kunnen helpen. Ik ga hier zeker mee aan de slag en roep jullie bij problemen