vba 工作表中命令按钮代码通用

Question

我做了好几十个工作表，没个表上都放了命令按钮“返回主页”，代码都一样，有没有简单的方法让代码都一样，一个个输太麻烦！谢谢！

Answer 1

代码总归要一个地方一个地方输入的，当然相同的代码可以用复制／粘贴进行，为了节省代码空间，可以将重复使用的代码用自定义过程的方法，把过程放在模块里，然后在按钮的单击事件里调用该过程．
比如：自定义过程为：
sub aa()
．．．．．．
end sub
调用命令就是：
　　aa
或者：call aa

Answer 2

'不必在每个表上做按钮，只要在菜单栏上做一个“返回主页”菜单就可以了，随时可以返回主页代码如下：
Sub auto_open()
MenuBars(xlWorksheet).Reset
Set mycommandbar = CommandBars("standard")
Set mybutton = mycommandbar.Controls.Add(Type:=msoControlButton)
With mybutton
.Style = msoButtonCaption
.Caption = "返回主页"
.Enabled = True
.OnAction = "abc"
End With
End Sub
Sub auto_close()
Set mycommandbar = CommandBars("standard")
For Each mybutton In mycommandbar.Controls
If mybutton.Caption = "返回主页" Then mybutton.Delete
Next
End Sub
Sub abc()
Sheets("Sheet1").Select '是返回表1，具体根据你要求修改。
End Sub

Answer 3

如果仅仅是回到主页，而这个主页本身就是工作簿内的其中一个工作表。建义不要用VBA的按钮，直接用自选图形----基本形状----棱台 来做一个按钮，添加超级链接即可，添加超级链接后，直接复制到各工作表即可用。