text1中填入一个数字,在excel中对应位置找到与这个数字对应的数据并在...

发布网友发布时间：2024-10-06 17:52

共1个回答

热心网友时间：2024-10-13 09:26

Private Sub Worksheet_Change(ByVal Target As Range)

Dim KeyCell As Range
Dim FoundCell As Range
Dim ws As Worksheet

Set ws = ThisWorkbook.Sheets("Sheet1") ' 修改为你的工作表名称

' 检查是否是text1单元格发生变化
If Not Intersect(Target, ws.Range("text1")) Is Nothing Then
Application.EnableEvents = False ' 关闭事件触发，防止循环调用

' 设置查找范围
Set KeyCell = ws.Range("text1")

' 在A列中查找匹配的数字
Set FoundCell = ws.Columns("A:A").Find(What:=KeyCell.Value, LookIn:=xlValues, LookAt:=xlWhole)

If Not FoundCell Is Nothing Then
' 如果找到，将对应的B列数据填入text2
ws.Range("text2").Value = FoundCell.Offset(0, 1).Value
Else
' 如果没找到，清空text2
ws.Range("text2").Value = ""
End If

Application.EnableEvents = True ' 重新开启事件触发
End If

End Sub