|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
- Private Sub Worksheet_Change(ByVal Target As Range)
- If Target.Column = 3 Then
- Set d = CreateObject("scripting.dictionary")
- With Sheets("数据源")
- arr = .[a1].CurrentRegion
- For i = 2 To UBound(arr)
- d(arr(i, 2)) = arr(i, 3) & "/" & arr(i, 4) & "/" & arr(i, 5)
- 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 d = Nothing
- End If
- End Sub
复制代码 |
|