跳转到按字母顺序排列的工作表(Microsoft Excel)
如果您的工作簿包含很多工作表,那么您可能正在寻找一种跳转到特定工作表组的简便方法,而不是使用工作表选项卡附近的滚动箭头。例如,您可能要输入一个字母并让Excel显示以该字母开头的第一个工作表。有一种方法可以直接在Excel中执行此操作。只需遵循以下步骤:
。右键单击选项卡左侧的滚动箭头。
Excel将显示一个包含许多工作表选项卡名称的上下文菜单。
。单击更多工作表选项。 Excel将显示“激活”对话框。
对话框中列出了所有工作表名称。 (请参见图1。)
。按所需的工作表名称的第一个字母。选择以该字母开头的第一个工作表。
。继续按相同的字母以选择下一个以该字母开头的工作表。
。选择所需的工作表名称后,按Enter。
这种方法的有趣之处在于,您不需要按字母顺序排列工作表即可使用它。每次按一个字母(步骤3和4),Excel都会选择以该字母开头的下一个工作表。
尽管此方法使用起来非常快,但有些人可能会反对,因为它涉及同时使用鼠标(单击两次)和键盘。有些人喜欢严格使用键盘。在这种情况下,最好是按字母顺序对工作表排序(如_ExcelTips_的其他问题所述),然后使用宏拉出所需的工作表区域。以下宏可以解决问题:
Sub GoToSheet() Dim iTemp As Integer Dim sSheet As String Dim sThisOne As String sSheet = InputBox("Enter first letter of sheet", _ "Go to sheet", Left(ActiveSheet.Name, 1)) If sSheet = "" Then Exit Sub sSheet = UCase(Left(sSheet, 1)) iTemp = 0 For i = 1 To ThisWorkbook.Sheets.Count sThisOne = UCase(Left(ThisWorkbook.Sheets(i).Name, 1)) If sThisOne = sSheet Then iTemp = i Exit For End If Next i If iTemp > 0 Then ThisWorkbook.Sheets(iTemp).Activate End If End Sub
现在,为宏分配快捷键,例如Ctrl + G。从现在开始,您只需按Ctrl + G,键入一个字母,然后按Enter。
选择以您指定的字母开头的第一个工作表。
最终的解决方案是为您的工作表创建自己的“索引”或“ TOC”。在工作簿的开头插入空白工作表,然后将超链接添加到工作簿中的其他各个工作表。
有人可以单击超链接,然后将显示超链接引用的工作表。
以这种方式设置超链接肯定是更多的工作,但是它确实具有到目前为止所描述的其他方法所没有的优点。
首先,用户根本不需要知道工作表名称。其次,您可以使用多个“关键字”作为链接,每个链接都指向相同的工作表。这样,整个工作簿将变得更易于不同用户访问。最后,可以按所需的任何顺序排列纸张,而不是按字母顺序排列。
注意:
如果您想知道如何使用此页面(或_ExcelTips_网站上的任何其他页面)中描述的宏,我准备了一个特殊页面,其中包含有用的信息。
_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。
本技巧(2718)适用于Microsoft Excel 97、2000、2002和2003。您可以在以下功能区中为Excel的功能区界面(Excel 2007及更高版本)找到本技巧的版本: