excel VBA判断后 跳转页面怎么样写

Question

如题所述

Answer 1

1.下面看实例。

2.上图中，在Sheet1中，A列的A3单元格，数据是“李四”；

3.看上图，Sheet2中的A23单元格，内容也是“李四”；
现在，要做的是，在Sheet1中，点击A3中的“李四”，就会自动跳到Sheet2中的A23单元格。
可以这样说，无论点击Sheet1A列中的任何一个单元格，只要在Sheet2中的A列，有与其值相同的，就自动跳到Sheet2的相应单元格；
方法是：右键点击“Sheet1”，在弹出的快捷菜单中，点击“查看代码”，如下图。

4.之后，会弹出如下图一个的VB代码编写窗口。

5.这个时候，无须做额外的代码编写，只需要按照上图，把代码粘贴上去就完成了。
为了方便大家的学习，下面，将代码贴到下文：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)　　If Target.Column = 1 Then　　If Sheet1.Cells(Target.Row, 1) <> "" Then　　For i = 1 To Sheet2.UsedRange.Rows.Count　　If Sheet2.Cells(i, 1).Value = Sheet1.Cells(Target.Row, 1).Value Then　　Sheet2.Activate　　Sheet2.Range("A" & i).Select　　End If　　Next i　　End If　　End If　　End Sub

Answer 2

sheets(index).select