对原表增加自动生成超链接功能

zhycl · 发表于 2022-12-25 16:09

原表中已有自动生成下来菜单，现在想对选择后的下列菜单自动生成超链接，点击后可以转向本文档中的位置，见“增加链接后的表”所示，下列菜单选择好后，一点单元格内容即可跳转到对应的位置。谢谢

Desktop.rar (49.29 KB, 下载次数: 7)

3190496160 · 发表于 2022-12-26 10:29

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row >= 6 Then
If Target.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
Dim rng As Range
With Sheets("会议纪要")
r = .Range("a" & .Rows.Count).End(3).Row
Set rng = .Range("a2:a" & r).Find(Target.Value, , , , , , 1)
End With
ActiveSheet.Hyperlinks.Add anchor:=Target, Address:="", SubAddress:="'会议纪要'!" & Range("a" & rng.Row).Address, TextToDisplay:=Target.Value
End If
End Sub

3190496160 · 发表于 2022-12-26 10:31

原始表.rar (24.2 KB, 下载次数: 5)

zhycl · 发表于 2022-12-26 13:57

3190496160 发表于 2022-12-26 10:31

感谢老师的帮助，但是我套用到我已有的表格中，就定位不到了，点击链接后，总是跳转不到指定单元格，还得请老师给予指点。见附件。
附件中，“计划数据”表中AL列，选择后，可以生成超链接，但是点击超链接，确跳转不到对应的单元格。

自力更生.rar (142.01 KB, 下载次数: 1)

3190496160 · 发表于 2022-12-26 14:12

Private Sub Worksheet_Activate() '自动生成工作表名下拉菜单
这个活动工作表事件代码在影响超链接，没有不要每次激活工作表都建立一次菜单吧

zhycl · 发表于 2022-12-26 14:52

3190496160 发表于 2022-12-26 14:12
Private Sub Worksheet_Activate() '自动生成工作表名下拉菜单
这个活动工作表事件代码在影响超链接，没有 ...

因为工作表会随时增加，所以设置的每次生成一次。
如果不需要每次生成一次，请老师明示，该如何调整呢，谢谢

3190496160 · 发表于 2022-12-26 15:16

zhycl 发表于 2022-12-26 14:52
因为工作表会随时增加，所以设置的每次生成一次。
如果不需要每次生成一次，请老师明示，该如何调整呢， ...

每次打开文件，自动更新菜单就行了吧

3190496160 · 发表于 2022-12-26 15:34

自力更生.rar (169.81 KB, 下载次数: 5)

		自动登录	找回密码
密码			免费注册

[求助] 对原表增加自动生成超链接功能