r这个工作表导航的VBA，如何实现？大部分代码有了，怎么使它运行起来?

goodliveluck

我一直在找能管理（导航、浏览）工作表的软件、插件。
找到如下信息：但我实现不也，哪位高手给做一下。。。

原地址：http: // www .vbaexpress. com / forum/ showthread.php?t=29038



Application.CommandBars("Workbook Tabs").ShowPopup
----------------------------------------
This code shows only 15 sheet tabs and the last popup item as "More Sheets..." in the popup list.
I have 30 sheets I need to go to view all the time but in irregular sequence. When I click "More Sheet...", it go to a dropdown dialog box that I can scroll down to view all the tabs.
How can I either have the popup list to show all the tab names and not having to click on "More Sheets..." ?
I'm using Excel 2003. Appreciate any help and thanks.
---------------------------------------
I never even new that existed!
I use this Userform solution.
This is what I use for large workbooks.
Drag the Userform into Personal.xls in the VB Editor window, and add the code below into a standard module.
VBA:

Sub ShowNav()
    Navigator.Show False
End Sub
---------------------------------------


我搜集的其它方法：都不完美 ，在2010上，写公式时，基本都不灵了。还得用Excel自带的工作表导航。
---------------
AdmiSoft MenuZap v1.3 r\
Dave Peterson's Sheet Navigator Toolbar for Workbook Sheets\
explorer-for-excel-2.1.1.60\
Navigate wooksheets box\
navigation_tools_for_excel\
SheetListCOM_20090703BACK\
Sobolsoft.Excel.Sheet.Navigation.And.Management.v7.0
TOC\
workbook navigation\
WorkbookTab\
worksheetmanager\
XLSheets\
Add a macro that displays the Excel Worksheet Navigation list
Excel Blog - Two tips for faster worksheet navigation.mht
Multiple User Sheet Protection.xls
workbook-manager-2010-103.zip
worksheet_booster_setup.exe
Worksheet_Sort.exe
-----------------------------