如何从1表定位到2表

zmzt12 · 发表于 2017-5-8 21:26

本帖最后由 zmzt12 于 2017-5-8 22:25 编辑

此表格是别人的，我不太懂这些，在表格里同个内容中1表的A列可以关联到2表的A列，如何设置成1表内的任意一个位置可以定位到2表的任意一个位置。
希望你们能看明白我的请求。

1.rar (12.8 KB, 下载次数: 13)

maditate · 发表于 2017-5-8 21:39

表格后面有代码，当双击单元格时会运行代码。如果对VBA什么也不懂，我觉得还是暂时别去搞懂后面的关联因素。

philijian · 发表于 2017-5-8 21:55

附件中的代码改成如下：
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim zzz As Range
Set zzz = ThisWorkbook.Sheets("2").Cells.Find(Target)
If Not zzz Is Nothing Then
ThisWorkbook.Sheets("2").Activate
zzz.Activate
Else
MsgBox "未找到！"
End If
End Sub

zmzt12 · 发表于 2017-5-8 22:21

philijian 发表于 2017-5-8 21:55
附件中的代码改成如下：
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boo ...

您好，是2个表格的都改这个吗？

zmzt12 · 发表于 2017-5-8 22:24

philijian 发表于 2017-5-8 21:55
附件中的代码改成如下：
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boo ...

太谢谢您了，帮了我大忙，感谢感谢感谢

philijian · 发表于 2017-5-9 09:23

代码放表1；
建议还是学一点vba的基础知识呗

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

[已解决] 如何从1表定位到2表