作者：绿色风
分类：
时间：2022-08-17
浏览：136
楼主
omnw |
Q:如何批量为工作表创建返回目录工作表的按钮？
A:当工作簿中的工作表数据比较多时，为了方便管理经常会创建一个“目录”工作表，通过创建超链接可以快速到达指定的工作表。可是从工作表返回“目录”时却不是很方便，逐个工作表创建超链接很费时。以下代码可以批量的在每个非“目录”工作表中创建一个按钮，点击这个按钮就可以快速的返回“目录”工作表。
注意：工作簿中必须包含名为“目录”的工作表。- Sub 生成返回目录按钮()
- Dim sh As Worksheet
- For Each sh In Worksheets
- If sh.Name <> "目录" Then
- With sh
- With .Buttons.Add(.Cells(2, 2).Left, .Cells(2, 2).Top, 60, 20)
- '当前按钮位于B2单元格的位置，宽度是60，高度是20
- .Characters.Text = "返回目录" '设置按钮中显示的提示文字
- .OnAction = "返回目录" '设置按钮关系的宏过程
- End With
- End With
- End If
- Next
- End Sub
- Sub 返回目录()
- Worksheets("目录").Select '返回“目录”工作表
- End Sub
 生成返回目录的按钮.rar
|
2楼
yangkd2011 |
斑竹辛苦了，不适用2003版，如果这样就好了：
1.生成表的目录
2.返回主页按钮
mlml.gif
 |
3楼
omnw |
经测试，在2003中可以正常使用。本帖的代码用于解决你的第二个需求，第一个要求已经有相应的的解决方法了，请在社区内搜索。 |
4楼
yangkd2011 |
斑竹好！
目录和返回主页是一体的，没有目录返回主页就没有意义；
制作目录是有代码，只不过我们不懂代码的整合就无奈了。
我在2003版本中，代码不可以用，或许是我的电脑缺少什么。
谢谢，要是整合的话比较好。 |
5楼
hhzjxss |
路过学习一下,谢谢了！ |
6楼
hbhgy258 |
非常好用 |
7楼
四脚朝天 |
能生成返回目录按钮，但是为什么按钮没用，但是点宏执行是可以的呢？ |
8楼
梁山 |
好厚啊哈后哦哈后 |
9楼
老糊涂 |
学习一下,谢谢了 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一