Zuweisen von hotkeys auf die Tasten auf erstellte Formulare für excel-vba

Ich habe ein makro erstellt für excel ein pop-up Formular mit button und Textfeld. Gibt es eine Möglichkeit zum zuweisen des hotkeys wie "Strg+Enter "oder " F12", um die Tasten? Die Hotkeys funktionieren sollte, unabhängig davon, welches Feld oder die Schaltfläche, die den Fokus auf.

(so weit ich es geschafft habe, zum erstellen von Schaltflächen/fields_Keydowns zu überprüfen MSForms.ReturnInteger für vbKeyF12, aber ich habe zu tun, dass für jedes Feld und Knopf, gibt es einen einfacheren Weg?)

Sagen, ich habe 2 Sachen auf dem Formular, Schaltfläche "CommandButton1" und Textfeld "TextBox1"

code für den button:

Private Sub CommandButton1_click()
ActiveCell.FormulaR1C1 = UserForm1.TextBox1.Text 
End Sub

Den hotkey wird nützlich sein, wenn ich in mehrere Felder und Schaltflächen...

Ebenfalls wie ich die "Escape" - Taste zum schließen/verstecken der form ?

InformationsquelleAutor Yoga | 2009-08-27

  1. 6

    Um die "Escape" - Taste zum aktivieren der Schaltfläche zum schließen/verstecken der form:
    Zuerst müssen Sie eine Schaltfläche, deren Click-Ereignis verbirgt Ihre form. Dann legen Sie die "Cancel" - Eigenschaft der Schaltfläche auf True.

    Wenn das Formular angezeigt wird, und drücken Sie die Esc-Taste, wird das Formular schließen.

    Für einen 'HotKey', legen Sie die Accelerator-Eigenschaft der Schaltfläche auf einen Brief, dann wenn das Formular offen ist, wenn Sie drücken Sie Alt+[Buchstabe], das Click-Ereignis für die Schaltfläche ausgelöst wird.

    Hey, vielen Dank Stewbob. Die 'Abbrechen' - Eigenschaft ist nützlich! Für die hotkey-Taste, alt+[Buchstabe] ist das nicht wirklich das was ich will. Ist es möglich einen hotkey eine Taste, die mit Strg+Enter oder F1-F12 Tasten statt?
    Nicht sicher, Sie haben zu Experimentieren mit einigen mit der Accelerator-Eigenschaft.

    InformationsquelleAutor Stewbob

  2. 1

    Der einzige Weg das zu tun ist das hinzufügen von ein KeyUp-Ereignis für jedes Steuerelement des Formulars, die fordert, eine zentrale Tastatur-handling-routine:

    Option Explicit

Private Sub CommandButton1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    HandleKey KeyCode
End Sub

Private Sub CommandButton2_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    HandleKey KeyCode
End Sub

Private Sub UserForm_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    HandleKey KeyCode
End Sub

Private Sub HandleKey(KeyCode As MSForms.ReturnInteger)
    MsgBox KeyCode
    Select Case KeyCode
    Case 112 'F1
        'Do something because F1 was pressed
    Case 113 'F2
        'Do something because F2 was pressed
    Case 114 'F3 etc.
    End Select
End Sub

    InformationsquelleAutor jkpieterse

Schreibe einen Kommentar