Excel VBA：一键返回总表攻略，轻松掌握简单VBA

admin2023-10-29【电脑应用】浏览：137

关于这个问题，也曾回答过函数的解决方法，比较简单

当然我们现在主要讲解vba的方法，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是必须的，表示该控件初始化的宽度和高度。

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

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