☰

Windows 上的 Excel 2013 中是否有“查看所有工作表”键盘快捷键？

tag-icon • tag-icon microsoft-excel keyboard-shortcuts microsoft-excel-2013
Windows 上的 Excel 2013 中是否有“查看所有工作表”键盘快捷键？

当我右键单击 Excel 左下角的箭头按钮时，将显示一个列出所有工作表的窗口（如下所示）：

[查看所有工作表选项]

我找不到任何键盘快捷键来显示此窗口，也无法声明与此窗口链接的新快捷键。此选项有快捷键吗？

答案1

我不相信该对话框有直接的快捷方式。

您可以通过在宏中使用少量 VBA，然后将其分配给您选择的键盘快捷键来获得类似的效果。

Sub ShowAllSheets()
  Application.CommandBars("Workbook tabs").ShowPopup
End Sub

答案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

来源：https://www.reddit.com/r/excel/comments/383b3z/keyboard_shortcut_for_listing_all_the_worksheet/crs7pah/?utm_source=share&utm_medium=web2x

干杯。

编辑由于某种原因，如果我使用键盘快捷键使用它，每次运行时它都会打开和关闭我的数字锁。

相关内容