excel - 使用联想的后退键切换excel标签

Question

我想用联想的后退键切换excel标签

键在箭头旁边。我如何做到这一点？

Answer 1

编辑- 将联想笔记本电脑的左侧更改为 166，右侧更改为 167

在“ThisWorkBook”下使用此代码：

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Application.OnKey "{167}", "NextTab"
    Application.OnKey "{166}", "LastTab"
End Sub

在新模块下放置以下代码：

Sub NextTab()
    On Error Resume Next
    Sheets(ActiveSheet.Index + 1).Activate
    If Err.Number <> 0 Then Sheets(1).Activate
End Sub

Sub LastTab()
    On Error Resume Next
    Sheets(ActiveSheet.Index - 1).Activate
    If Err.Number <> 0 Then Sheets(1).Activate
End Sub

Answer 2

我可能遗漏了一些东西，但不知道为什么要使用工作表选择更改事件来设置 onkey 参数，这仅在用户首次更改工作表选择后才有效，并且如果导入到插件/个人中则不会触发. 建议改：

Private Sub Workbook_SheetSelectionChange

在第一个宏中：

Private Sub Workbook_Open