今天要和大家分享的是：Excel利用VBA编写返回总表的快捷按钮详见下图动态演示和步骤分解。
工具/原料
VBA
方法/步骤
1、打开excel表格，可看到第一个工作表为目录的显示表
2、然后按快捷键alt+f11打开宏界面
3、然后插入模块
4、双击模块并输入如下的代码：Sub创建返回按钮()DimwShtAsWor氯短赤亻ksheet,BAsB锇栀劐箨utton,wShtname$OnErrorResumeNextwShtname="目录表"ForEachwShtInWorksheetsWithwShtIf.Name<>wShtnameThen.Shapes(wShtname).DeleteSetB=.Buttons.Add(0,0,90,30)WithB.Name=wShtname.Characters.Text="返回目录表".OnAction="返回到目录表"EndWithEndIfEndWithNextSetB=NothingEndSubSub返回到目录表()Worksheets("目录表").ActivateEndSubDimwshtAsWorksheet,k%,wshtname$Columns(1).ClearContents'清空A列数据,这样就可以随着工作表的变化，生成不同的工作表目录Range("a1")="超链接目录"'第一个单元格写入字符串k=1'赋予参数初值ForEachwshtInWorksheets'找到当前工作簿的每个工作表wshtname=wsht.NameIfwshtname<>ActiveSheet.NameThenk=k+1ActiveSheet.Hyperlinks.Addanchor:=Cells(k,1),Address:="",SubAddress:="'"&wshtname&"'!a1",TextToDisplay:=wshtnameEndIfNextEndSub
5、回到excel界面，按快捷键alt+f8打开宏操作界面
6、找到命令按钮生成返回按钮，单击执行即可
7、看到生成的超链接，单击即可进入对应的工作表，单击返回的按钮即可返回
8、最后保存文件
