如何为每页都设置一个返回按钮，可以快速返回第一页？

MOY838840554

录制一个设置超链接的宏，改一下遍历表不就好了

一指禅62

可以什么控件都不要啊，工作表表上的疤痕越少越好吧！！！

MOY838840554

1. Sub 生成返回目录()
   
2.     '**==自定义参数==============================**
   
3.     Const 目录Name As String = "目录" '修改目录表的名称
   
4.     Const 位置Cell As String = "H1" '修改生成超链接的单元格位置
   
5.     Const str名称 As String = "返回目录" '修改超链接显示的名称
   
6.     '**==========================================**
   
7.     Dim sh As Worksheet
   
8.     For Each sh In Sheets
   
9.         If sh.Name <> 目录Name Then
   
10.             Debug.Print Sheets(目录Name).CodeName
    
11.             sh.Hyperlinks.Add Anchor:=sh.Range(位置Cell), Address:="", SubAddress:= _
    
12.                 目录Name & "!A1", TextToDisplay:=str名称
    
13.             With sh.Range(位置Cell).Font
    
14.                 .Name = "Microsoft YaHei Light" '设置雅黑字体
    
15.                 .Size = 12 '设置字体大小
    
16.                 .Underline = False '去掉下划线
    
17.             End With
    
18.         End If
    
19.     Next
    
20. End Sub

复制代码

wgh402

MOY838840554 发表于 2020-12-1 10:54

运行完毕，按“返回目录”提示引用无效

wgh402

一指禅62 发表于 2020-12-1 10:30
可以什么控件都不要啊，工作表表上的疤痕越少越好吧！！！

老师，你这是怎么使用啊！运行提示没有宏啊

MOY838840554

wgh402 发表于 2020-12-1 18:31
运行完毕，按“返回目录”提示引用无效

修改了，等审核

gwjkkkkk

可以做一个加载宏，请楼主试用 工作簿1.rar (10.73 KB, 下载次数: 26)

2020-12-1 20:32 上传

点击文件名下载附件

wgh402

gwjkkkkk 发表于 2020-12-1 20:32
可以做一个加载宏，请楼主试用

老师，您做的加载宏可以解决问题，这个加载宏怎么做啊，有什么地方可以学习吗？

wgh402

wgh402 发表于 2020-12-1 21:15
老师，您做的加载宏可以解决问题，这个加载宏怎么做啊，有什么地方可以学习吗？

谢谢大侠了

gwjkkkkk

wgh402 发表于 2020-12-1 21:16
谢谢大侠了

代码比较简单，涉及到ribbon菜单的编号，建议参考
http://club.excelhome.net/thread-898848-2-1.html