关于VBA的问题
答案:1 悬赏:0
解决时间 2021-01-16 18:30
- 提问者网友：我的未来我做主
- 2021-01-16 10:26
关于VBA的问题
最佳答案
- 二级知识专家网友：行路难
- 2021-01-16 10:54
用worksheet_change事件进行触发。。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r, c As Integer
Dim tRange As Range
r = Target.Row
c = Target.Column
Application.EnableEvents = False
If c = 2 Then
Set tRange = Sheet2.Range("A1:A100").Find(what:=Target.Value, LookIn:=xlValues, LookAt:=xlWhole, searchorder:=xlByColumns, SearchDirection:=xlNext)
If Not tRange Is Nothing Then
Target.Offset(0, 1) = tRange.Offset(0, 1)
End If
End If
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r, c As Integer
Dim tRange As Range
r = Target.Row
c = Target.Column
Application.EnableEvents = False
If c = 2 Then
Set tRange = Sheet2.Range("A1:A100").Find(what:=Target.Value, LookIn:=xlValues, LookAt:=xlWhole, searchorder:=xlByColumns, SearchDirection:=xlNext)
If Not tRange Is Nothing Then
Target.Offset(0, 1) = tRange.Offset(0, 1)
End If
End If
Application.EnableEvents = True
End Sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息！
大家都在看
推荐信息