一、VBA简介——添加宏快捷按钮

点击开始——选项——快速访问工具栏——从下列位置选择命令（宏）——选择需要添加的”宏“——添加——确定。

鼠标左键点击快速访问工具栏的快捷键即可执行相应的宏命令。

1）点击：开发工具——控制——插入——表单控制（按钮（窗体控制键））

2）在表格中适当位置拖动，绘制快捷按钮；

3）选取按钮对应的宏，点击确定；

4）左键单击快捷按钮，修改快捷按钮名称；

5）单击宏，运行宏命令。

在菜单栏右边空白处击右键，点右键菜单中的“窗体”或“工具箱”，在打开的的窗口中会看到，按钮样式的快捷图标，用鼠标点一下这个快捷图标然后在单元格窗口中按住鼠标左键不放拖动就可得到按钮了。

按Alt+F11，打开VBA编辑器，插入一个模块，把下面的代码贴进去，返回Excel按Alt+F8运行t3即可实现

Sub

tt()

Sheets("目录").Select

End

Sub

Sub

t3()

Dim

s

As

Worksheet

Set

os

=

ActiveSheet

Application.ScreenUpdating

=

False

For

Each

s

In

ActiveWorkbook.Worksheets

If

s.Name

<>

"目录"

Then

s.Select

b

=

s.Buttons.Add(145.5,

25.5,

72,

72).Name

s.Shapes(b).OnAction

=

"tt"

s.Shapes(b).Select

Selection.Characters.Text

=

"返回目录"

Selection.Height

=

20

Selection.Width

=

50

End

If

Next

os.Select

Application.ScreenUpdating

=

True

End

Sub

---