1、【第一步】 准备好需要插入返回目录按钮的工作簿，打开工作簿，需要确保工作簿有一个目录或者总表工作表，作为返回的对象。
2、【第二步】 点击“开发工具”选项卡，再单击“查看代码”按钮，或者直接按下组合键Alt+F11，来打开VB代码编辑器窗口。
3、【第三步】 再打开的VB代码编辑独瘦配溧窗口中插入一个新模块，将以下代码复制到模块中，点击运行Sub Button() Dim MySht As Worksheet, MyButt泠贾高框on As Button, ShtName As String ShtName = "目录"'如果不是目录，则改为其他名称 For Each MySht In Worksheets With MySht If .Name <> ShtName Then .Shapes(ShtName).Delete ' Set MyButton = .Buttons.Add(50, 10, 60, 30) With MyButton .Name = ShtName '对按钮命名 .Characters.Text = "返回" & ShtName '指定按钮的标题 .OnAction = "backto" '指定按钮对应的宏命令 End With End If End With Next Set MyButton = NothingEnd SubSub backto() Worksheets("目录").Activate [a1].SelectEnd Sub
4、【第四步】 运行代码以后，最小化代码窗口，我们但会工作簿主界面，可以看到出了“目录”工作表，其他的工作表都已经自动插入了一个可以返回“目录”的按钮。
5、【第五步】 当然按钮是可以更改参数的，Buttons.Add(50, 10, 60, 30)方法中的4个参剞麽苍足数分别代表的是按钮的Xpos、Ypos、按钮宽度和按钮高度，比如我们将参数设置为Buttons.Add(100, 100, 100, 50)。
6、【第六步】 更改参数以后，我们再一次运行代码，就可以看到工作表中的按钮位置和大小发生了变化，按钮变大了很多，同样也可以实现“返回目录”的功能。
