表单A里面A列的单元格数值，在表单B里的A列都能找到。怎么用VBA代码实现：点击表A里面的A列任意一个单元格，自动跳转到表B里A列对应的数值？
温馨提示：答案为网友推荐，仅供参考
第1个回答 2020-01-08
A表设置事件。
相应事件之后，将单元格数值赋值给变量。
设置表B为活动工作表
循环，判断，并集等于变量的单元格。
将并集到的单元格选中。
PS：如果B表是唯一值的话，就不用并集了，用find就可以了。找到之后直接选择，能快一些。当然循环也行。
相应事件之后，将单元格数值赋值给变量。
设置表B为活动工作表
循环，判断，并集等于变量的单元格。
将并集到的单元格选中。
PS：如果B表是唯一值的话，就不用并集了，用find就可以了。找到之后直接选择，能快一些。当然循环也行。
第2个回答 2020-01-08
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target(1, 1).Column = 1 And Target(1, 1) <> "" Then
With Sheets("B")
.Select
.[a:a].Find(Target, , , 1).Offset(0, 2).Select
End With
End If
End Sub
本回答被提问者采纳第3个回答 2020-01-08
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" Then
Range("B2:F18").Select
Else
End If
End Sub追问
If Target.Address = "$A$1" Then
Range("B2:F18").Select
Else
End If
End Sub追问
是这样？？
第4个回答 2020-01-08
具体还得沟通！
