如何用excel vba做到点击表1中一个数据，会自动跳转到表2中相同的数据？

Question

如图有sheet12和sheet7两个表，想要实现的是点击sheet7中F列的单元格时，自动跳转至sheet12中C列对应的相同值得单元格（sheet12中C列的值都是不重复的）。请问要怎么写，感谢

Answer 1

如图，右击Sheet7的工作表名，选“查看代码”，把下面代码复制到代码页即可。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  Dim R As Range

  On Error Resume Next

  If Target.Column = 6 And Target > 0 Then

    Set R = Sheets("Sheet12").Range("C:C").Find(Target, , , xlWhole)

    If R Is Nothing Then

      MsgBox "在工作表<Sheet12>的C列中没有找到内容为“" & Target & "”的单元格。"

    Else

      Sheets("Sheet12").Activate

      R.Select

    End If

  End If

End Sub