|
还真忽略了一个要求,已修改:
- Private Sub Worksheet_Change(ByVal Target As Range)
- If Target.Column = 3 Then
- Set d = CreateObject("scripting.dictionary")
- With Sheets("花名册")
- r = .Cells(.Rows.Count, 3).End(3).Row
- arr = .Range("b4:d" & r)
- For i = 1 To UBound(arr)
- d(arr(i, 2)) = arr(i, 1) & "/" & arr(i, 3)
- Next
- End With
- If d.exists(Target.Value) Then
- Application.EnableEvents = False
- s = Split(d(Target.Value), "/")
- Target.Offset(, -1) = s(0)
- Target.Value = s(1)
- Application.EnableEvents = True
- Else
- MsgBox "对不起,没有此编号!"
- End If
- Set d = Nothing
- End If
- End Sub
复制代码 |
评分
-
1
查看全部评分
-
|