在Excel中为SpinButton指定键盘快捷键

Question

我已经将一个旋转按钮链接到一个单元格列表(每个单元格中有不同的值)。旋转按钮的工程现象，我只是希望能够有一个键盘快捷键，可以自动改变旋转按钮向上或向下取决于键盘快捷键。如果有一种方法可以调用这段代码，那么它也可以正常工作。

Private Sub SpinButton1_SpinDown()
If Me.ComboBox1.ListIndex = Me.ComboBox1.ListCount - 1 Then Exit Sub
Me.ComboBox1.ListIndex = Me.ComboBox1.ListIndex + 1
End Sub

Private Sub SpinButton1_SpinUp()
If Me.ComboBox1.ListIndex = 0 Then Exit Sub
Me.ComboBox1.ListIndex = Me.ComboBox1.ListIndex - 1
End Sub

enter image description here

Answer 1

假设您的Spinbutton位于代码名为Sheet1的工作表中，那么您可以在ThisWorkbook目标代码模块中包含以下内容：

Private Sub Workbook_Open()

    'Set keyboard shortcuts
    Application.OnKey "^%{DOWN}", "Sheet1.SpinButton1_SpinDown"
    Application.OnKey "^%{UP}", "Sheet1.SpinButton1_SpinUp"
    Msgbox "Keyboard shortcuts are now active."

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    
    'Reset keyboard shortcuts
    Application.OnKey "^%{DOWN}", ""
    Application.OnKey "^%{UP}", ""
    
End Sub

提醒：

SHIFT =+(加号)

CTRL =^(插入符号)

ALT =%(百分号)

More details

这样，每次打开工作簿时，都会在关闭工作簿时分配和删除快捷键。快捷键Ctrl+Alt+UpArrow将调用SpinUp过程，Ctrl+Alt+DownArrow将调用SpinDown过程。

请注意，工作表的代码名称与工作表名称不同。在项目资源管理器窗口中，工作表的代号名称始终位于左侧：

​

​