EXCEL VBA 触发事件

Question

请教：SHEET1里A列有数字，SHEET2里B列有相同的数字，求触发事件怎写，当双击A列的单元格时，自动查找该数值在B列单元格的位置，并自动跳转到该位置，谢谢

Answer 1

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub
If Target <> "" Then
   If Not Sheets("sheet2").Cells.Find(Target.Value, lookat:=xlWhole) Is Nothing Then
      Sheets(2).Select
      Sheets("sheet2").Cells.Find(Target.Value, lookat:=xlWhole).Select
   End If
End If
End Sub