[求助]求大位大神帮忙,单击sheet1！A列任意单元格后,然后自动超链接或者跳到各个表...

redsunsky1

求大位大神帮忙；末学今天调试了一天，还是不成.如果是固定2个表可以实现，但超3个表时需要循环时、或者超链时subaddress时sheet(i)时就有问题。
我实在太菜了，只好求助各位。先谢谢！
想达到的效果：单击sheet1！A列任意单元格后,然后自动超链接或者跳到各个表上的内容相同的单元格。
例如：表2某单元格内容有"test1"，点击test1表的A1(内容"test1")时跳到sheet2表的B1。
      表3某单元格内容有"test2"，点击test1表的A2(内容"test2")时跳到sheet3表的C2。
      表4某单元格内容有"test3"，点击test1表的A3(内容"test3")时跳到sheet3表的B3。
      表2、3、4都没有  "test4", 点击test1表的A4(内容"test5")时提示：“没有相关”

由于今天程序改了M次，我都不知道那打那了，所以附件不好意思附上错误代码。
谢谢各位大神帮

redsunsky1

路过的大位大神请帮忙指点一二。感恩！！！

3190496160

Private Sub Worksheet_BeforeDoubleClick(ByVal T As Range, Cancel As Boolean)
If T.Column = 1 Then
    If T.Count > 1 Then Exit Sub
    For Each sh In Sheets
        If sh.Name <> ActiveSheet.Name Then
            Set Rng = sh.UsedRange.Find(T.Value, , , 1)
            If Not Rng Is Nothing Then
                mc = sh.Name
                dz = Rng.Address
                Exit For
            End If
        End If
    Next sh
    If mc <> "" Then
        Cancel = True
        Sheets(mc).Select
        Sheets(mc).Range(dz).Select
    End If
End If
End Sub

3190496160

双击单元格实现效果
点A列任意单元格后,然后自动超链接或者跳到各个表上的内容相同的单元格.rar (14.8 KB, 下载次数: 5)

2020-3-9 10:25 上传

点击文件名下载附件

redsunsky1

3190496160 发表于 2020-3-9 10:25
双击单元格实现效果

太感谢您的帮忙！！！感动！另想请教一下，有什么书可能推荐在VBA方面，可以提升一下的？我最近才看了VBA 其实好简单这本书，这本书好好，现在想多从简单的功能上多学习和练习。可买了本VBA 实战精率回来，发现不是我们初学者打基础用的实例。尽管那本书写得真的好好。

redsunsky1

redsunsky1 发表于 2020-3-9 11:10
太感谢您的帮忙！！！感动！另想请教一下，有什么书可能推荐在VBA方面，可以提升一下的？我最近 ...

刚看了一下大神您写的，好像都不用表循环的。。我的思路不成啊。

redsunsky1

redsunsky1 发表于 2020-3-9 11:16
刚看了一下大神您写的，好像都不用表循环的。。我的思路不成啊。

原来有的，看漏了。嘻嘻

3190496160

redsunsky1 发表于 2020-3-9 11:17
原来有的，看漏了。嘻嘻

我这段代码其实也很基础的，你应该能够看懂的吧

redsunsky1

3190496160 发表于 2020-3-9 13:12
我这段代码其实也很基础的，你应该能够看懂的吧

能看懂，感恩您的帮忙！只是我自已思路想不出来！一直尖牛当钻，只想到worksheet(i),用for I来循环，然到超链接时subaddress 好像写地址是又不支持workksheet(i)&某个地址变量。