|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
本帖最后由 lsc900707 于 2017-5-26 17:29 编辑
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Set wb = GetObject(ThisWorkbook.Path & "\" & "表1.xls")
Set d = CreateObject("scripting.dictionary")
With Workbooks("表1.xls")
arr = .Sheets(1).UsedRange
For i = 2 To UBound(arr)
d(arr(i, 4)) = arr(i, 2) & "," & arr(i, 5) & "," & arr(i, 13)
Next
End With
If d.exists(Target.Value) Then
s = Split(d(Target.Value), ",")
Target.Offset(, 1) = s(0)
Target.Offset(, 2) = s(1)
Target.Offset(, 3) = s(2)
Else
MsgBox "对不起,没有此编号!"
End If
Set wb = Nothing
Set d = Nothing
End If
End Sub |
评分
-
1
查看全部评分
-
|