返回超链接所在位置

zllyyz

VB小白，烦请各位大大出手，谢谢。需求与结果如下图：

3190496160

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal T As Range)
If T.Address = "$G$8" Then
    mc = Sh.Name
    With Sheets("sheet1")
        .Select
        r = .Cells(Rows.Count, 1).End(xlUp).Row
        Set rn = .Range("a1:a" & r).Find(mc, , , , , , 1)
        rs = rn.Row
        .Cells(rs, 1).Select
    End With
End If
End Sub

3190496160

返回表1超链接.rar (17.05 KB, 下载次数: 6)

2024-1-5 10:43 上传

点击文件名下载附件

zllyyz

3190496160 发表于 2024-1-5 10:43

大大  是否能用 Hyperlinks.Add  直接返回表1所在的单元格？？

3190496160

zllyyz 发表于 2024-1-5 11:13
大大  是否能用 Hyperlinks.Add  直接返回表1所在的单元格？？

不知道你究竟要什么

zllyyz

3190496160 发表于 2024-1-5 13:51
不知道你究竟要什么

是否能用 Hyperlinks.Add 在每个工作子表的G8单元格创建超链接 点击后跳转至表1 结果列（与子表名称相同的第一个单元格位置）

3190496160

zllyyz 发表于 2024-1-5 14:57
是否能用 Hyperlinks.Add 在每个工作子表的G8单元格创建超链接 点击后跳转至表1 结果列（与子表名称相同 ...

越说越糊涂了，恐怕只有楼主自己知道你想要什么

zllyyz

3190496160 发表于 2024-1-5 22:50
越说越糊涂了，恐怕只有楼主自己知道你想要什么

Hyperlinks.Add 可以从工作子表返回超链接目录的固定位置（如sheet2 G8单元格的超链接 点击跳转至 目录表内(定位：sheet1) 的a2单元格）
那是否能跳转至目录表（sheet1）内 单元格“值”为"sheet3"的单元格位置（随"值"所在的列位置变动而变动）？