求助－－excel链接问题

isseii

我在sheet1中点型号列中任一型号，要求能跑转到sheet2中对应的行号的行，请问怎么做。谢谢，
在线等待中……

pureshadow

以下代码写在SHEET1的VBE中
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Dim MyFind As Variant
With Sheets("sheet2")
    If Target <> "" And Target.Column = 4 Then
        Set MyFind = .Range("a:a").Find(Target, lookat:=xlWhole)
            If MyFind Is Nothing Then
                MsgBox "无此型号"
            Else
                Sheets("sheet2").Select
                MyFind.EntireRow.Select
            End If
        Set MyFind = Nothing
    End If
End With
End Sub