使用Lenovo的后退和前进键切换Excel选项卡

Question

我想使用Lenovo的后退和前进键来切换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