几秒钟，在多个分表建立返回总表的快捷按钮

诸君好，很久之前聊过如何一键生成带超链接的工作表目录：VBA常用小代码001：一键生成带超链接的工作表目录

之后不断有朋友问，如何一键在分表生成返回总表的按钮？

关于这个问题，也曾回答过函数的解决方法，比较简单，一个函数而已，参见教程链接：如何快速在多个分表批量创建返回总表的超链接？

当然，VBA的方法也不复杂，代码如下：

---

Sub Mybutton()

    Dim Sht As Worksheet, B As Button, Shtn$

    On Error Resume Next

    Shtn = '总表'

    '设置变量shtn为总表的名称，可以根据实际总表的名称做修改

    For Each Sht In Worksheets

        With Sht

            If .Name <> Shtn Then

                .Shapes(Shtn).Delete

                '删除原有的名称为shtn的按钮，避免重复创建

                Set B = .Buttons.Add(0, 0, 60, 30)

                '新建按钮，释义见小贴士

                With B

                    .Name = Shtn

                    '命名

                    .Characters.Text = '返回总表'

                    '按钮的标题

                    .OnAction = 'Totable'

                    '指定按钮控件所执行的宏命令

                End With

            End If

        End With

    Next

    Set B = Nothing

End Sub

Sub Totable()

    Worksheets('总表').Activate

    [a1].Select

End Sub

---

小贴士：

1，代码有两个sub过程构成，第一个sub过程遍历工作表，并在每个工作表建立指定宏名称为第2个sub过程的按钮，第二个sub过程是激活'总表'，并选中a1单元格。

2，第1个sub过程使用add方法在工作表中添加一个按钮控件，add方法语法如下：

表达式.Add(left,right,width,height)

表达式是必须的，代码一个表单控件集合。例如按钮buttons,标签labels，列表框listboxes，复选框checkboxes等。

left和right也是必须的，表示该控件相对于工作表的A1单元格左上角的初始坐标。

width和height是必须的，表示该控件初始化的宽度和高度。

呵~是不是很简单呢？您也复制代码运行试验一下吧~

……拥抱……致安…………

图文制作：看见星光

---

---

京东商城新一波图书优惠活动来袭！

实用Excel宝典满100-30限时优惠！