[已解决]求助！按钮的代码怎么写？

heihei_xs

我有一个excel档案，里面有近20个工作表，每个产品就有一个表，维护的时候，经常要找半天，最近有在这里看到有高手在第一个表制作了一些按钮，点一下就到该工作表了，求这个按钮里面的代码如何写，我很菜，最好解释详细一点，谢谢！

最佳答案

月排行榜 / 总排行榜

wayy

2011-11-17 08:43

heihei_xs 发表于 2011-11-16 20:34
你好，已经上传了附件,请帮忙看看.谢谢!

1. Private Sub CommandButton1_Click()
   
2.    Sheets(CommandButton1.Caption).Select
   
3. End Sub

复制代码

复制中间行的代码到每个按钮的代码中就可以了，注意改下按钮序号，

跳转到最佳答案楼层

wayy

发个附件上来看看。

mxg825

简单的办法！
做一个目录  用超链接！

heihei_xs

wayy 发表于 2011-11-16 12:20
发个附件上来看看。

你好，已经上传了附件,请帮忙看看.谢谢!

heihei_xs

mxg825 发表于 2011-11-16 12:25
简单的办法！
做一个目录  用超链接！

这个办法是可以,我试了,但还是想学下VBA.

wayy

heihei_xs 发表于 2011-11-16 20:34
你好，已经上传了附件,请帮忙看看.谢谢!

1. Private Sub CommandButton1_Click()
   
2.    Sheets(CommandButton1.Caption).Select
   
3. End Sub

复制代码

复制中间行的代码到每个按钮的代码中就可以了，注意改下按钮序号，

heihei_xs

wayy 发表于 2011-11-17 08:43
复制中间行的代码到每个按钮的代码中就可以了，注意改下按钮序号，

您好，请问是不是所有的代码中的按钮代号都要修改？

无聊的疯子

heihei_xs 发表于 2011-11-17 09:55
您好，请问是不是所有的代码中的按钮代号都要修改？

简单的方法有2个：
方法1：可以把 ActiveX 控件改成 “表单” 控件，表单控件可以只接连一个宏程序，由这个宏程序来读取当前按下控件的名称，并选择对应的表

方法2：直接使用 工作表的selectchange事件，把名字直接写进单元格中，这样只需要选择单元就可以直接选择对应的表！
           Sheets(Target.Value).Select

太阳浪子

wayy 发表于 2011-11-17 08:43
复制中间行的代码到每个按钮的代码中就可以了，注意改下按钮序号，

少量的可以，但是很多的话太麻烦了

太阳浪子

mxg825 发表于 2011-11-16 12:25
简单的办法！
做一个目录  用超链接！

批量的超链接怎么做