如图有sheet12和sheet7两个表,想要实现的是点击sheet7中F列的单元格时,自动跳转至sheet12中C列对应的相同值得单元格(sheet12中C列的值都是不重复的)。请问要怎么写,感谢
如图,右击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
温馨提示:答案为网友推荐,仅供参考