当我右键单击 Excel 左下角的箭头按钮时,将显示一个列出所有工作表的窗口(如下所示):
[
我找不到任何键盘快捷键来显示此窗口,也无法声明与此窗口链接的新快捷键。此选项有快捷键吗?
答案1
答案2
与 Techie 的正确答案类似,这里有一个在您有超过 15 张工作表时有效的解决方案(并且还可以单击一个字母来突出显示以该字母开头的工作表):
Sub Select_Sheet()
If ActiveWorkbook.Sheets.Count <= 16 Then
Application.CommandBars("Workbook Tabs").ShowPopup 500, 225
Else
Application.CommandBars("Workbook Tabs").Controls("More Sheets...").Execute
End If
End Sub
虽然由于未知原因,使用键盘激活时它不起作用(如来源另一个使用快捷方式也无法正常工作的示例是这里)。如果有人知道如何修复上述代码以使其与宏配合使用,请随意修复它。
答案3
我想回复 Stenemo,但这是一个新帐户,我需要 50 点声誉或类似的值。
无论如何,这是有效的:
Sub Sheet_Index()
If Application.CommandBars("workbook tabs").Controls(16).Caption Like "More Sheets*" Then
Application.ScreenUpdating = False
If WINDOWS_VER > 5 Then
If Application.Version = "12.0" Then
Application.SendKeys "{end}~"""
Application.CommandBars("workbook tabs").ShowPopup
Else
Application.SendKeys "{end}~"
Application.CommandBars("workbook tabs").Controls(16).Execute
End If
Else
Application.SendKeys "{end}~"
Application.CommandBars("workbook tabs").ShowPopup
End If
Application.ScreenUpdating = True
Else
Application.CommandBars("workbook tabs").ShowPopup
End If
Application.ScreenUpdating = True
End Sub
干杯。
编辑由于某种原因,如果我使用键盘快捷键使用它,每次运行时它都会打开和关闭我的数字锁。