请教一下，sheet1中某一单元格跳转到sheet2中某一单元格的方法是什么？

WL拒绝融化的冰

求助各位高手，我希望能将sheet1中的数字9单击一下就能跳转到sheet2中的数字9里面，以前在网上查到用超链接的方式来处理，但是超链接得输入另一个需要跳转的表格名称，如我所提供sheet2中9所在的位置是D10，相当于固定了它所在的位置，但发现了一个问题，如果我在数字8与9之间插一行的话，所跳转的单元格就变了，有没有方法可以将sheet1中的9点击一下就能直接跳转到sheet2中的数字9中，但不受插入行的影响，或不受插入列的影响。
在本论坛上看了很多关于单元格之间跳转的帖子，很多都是编程的方式，我看不懂，也不知道哪一个才是解决我问题的方法，所以还是自己发一贴子来请教大家，这个问题困扰我很长时间，如能帮忙解决，万分感谢。 {:soso_e121:}

mineshine

你的要求只能用编程才能迖到

WL拒绝融化的冰

mineshine 发表于 2012-2-9 15:38
你的要求只能用编程才能迖到

你好，那程序是什么？能告诉我吗？

mineshine

WL拒绝融化的冰 发表于 2012-2-9 16:23
你好，那程序是什么？能告诉我吗？

工作表SelectionChange事件(选取事件)

1. 
   
2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
3. Dim c As Object
   
4. If Target = 9 Then '选取目标等于9
   
5.     Set c = Sheet2.UsedRange.Find(Target, LookIn:=xlValues, lookat:=xlWhole)    '查找Sheet2里9所在单元格
   
6.     If Not c Is Nothing Then Sheet2.Select: c.Select    '找到9，选取Sheet2，並选取该单元格
   
7. End If
   
8. End Sub
   

复制代码

WL拒绝融化的冰

mineshine 发表于 2012-2-9 16:26
工作表SelectionChange事件(选取事件)

你好，如果sheet2中有很多个9，但我只需要让sheet1中所刷黄的9跟sheet2中被刷黄的那个9起跳转的作用，其它的9有它另外需要跳转的内容，这样的话，也能用你所提供的程序吗？

mineshine

WL拒绝融化的冰 发表于 2012-2-9 17:11
你好，如果sheet2中有很多个9，但我只需要让sheet1中所刷黄的9跟sheet2中被刷黄的那个9起跳转的作用，其它 ...

两辺单元格色彩要统一
你的一楼附件两辺用的黄色不同

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. Dim c As Object
   
3. If Target = 9 Then '选取目标等于9
   
4. Debug.Print Target.Interior.ColorIndex
   
5.     With Sheet2.UsedRange
   
6.         Set c = .Find(Target, LookIn:=xlValues, lookat:=xlWhole)    '查找Sheet2里9所在单元格
   
7.         Debug.Print c.Interior.ColorIndex
   
8.         If Not c Is Nothing Then
   
9.             fadd = c.Address
   
10.             Do
    
11.                 If c.Interior.ColorIndex = Target.Interior.ColorIndex Then   '单元格色彩相同
    
12.                     Sheet2.Select
    
13.                     c.Select    '找到9，选取Sheet2，並选取该单元格
    
14.                 End If
    
15.                 Set c = .FindNext(c)
    
16.             Loop While Not c Is Nothing And c.Address <> fadd
    
17.         End If
    
18.     End With
    
19. End If
    
20. End Sub

复制代码

WL拒绝融化的冰

mineshine 发表于 2012-2-9 17:26
两辺单元格色彩要统一
你的一楼附件两辺用的黄色不同

真是很抱歉，可能误导你了，为了方便你看，所以才刷的颜色，实际的工作中跟颜色无关。
相当于我想要的效果是：想让哪两个单元格跳转就弄哪两个，不受插入行与列影响，也不受颜色影响，而且相同的9很多，但我只需要那两个跳转。
那程序是否又有变化？

mineshine

WL拒绝融化的冰 发表于 2012-2-9 17:37
真是很抱歉，可能误导你了，为了方便你看，所以才刷的颜色，实际的工作中跟颜色无关。
相当于我想要的效 ...

这就有困难了
相同9很多，但只要其中一个，可是又没有任何特徵。
大海撈针啊~

至少要有限制条件
例如：
只有D行的9才跳转，但要保证D行只有一个9；
或是只有D行前100列里的9才跳转，但一样指定范围里只能有一个9。

WL拒绝融化的冰

mineshine 发表于 2012-2-10 08:42
这就有困难了
相同9很多，但只要其中一个，可是又没有任何特徵。
大海撈针啊~

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Object
If Target = 9 Then '选取目标等于9
    Set c = Sheet2.UsedRange.Find(Target, LookIn:=xlValues, lookat:=xlWhole)    '查找Sheet2里9所在单元格
    If Not c Is Nothing Then Sheet2.Select: c.Select    '找到9，选取Sheet2，並选取该单元格
End If
End Sub
你好，我自己用你提供的这个程序试了下，可以运行，但不知道为什么偶尔会跳出一个(运行时错误'13'  类型不匹配)这样的对话框出来。
我发现了一个问题，你的程序是在sheet1中弄的程序，因sheet1中不止这一个跳转内容，若还需要把10也弄成这个效果，是否是直接把此程序复制粘贴在它的下面就行，只需要把那个9改成10就行了，但我试了后就出现附件(跳转10的问题)的情况，程序上是否有变化？因不懂程序，所以麻烦帮忙解答一下，谢谢，还有这个多个程序的格式应该是个什么样的啊？如果一个EXCEL的表格编程的内容太多了会不会出现文件过大的情况？

WL拒绝融化的冰

这个是跳转10问题的附件