|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
把代码全部换掉
- Private Sub Worksheet_Change(ByVal Target As Range)
- Dim i
- Set d1 = CreateObject("scripting.dictionary")
- If Target.Count > 1 Then
- Exit Sub
- ElseIf Target.Column = 5 And Target.Row > 3 And Target.Value <> "" Then
- arr = Range("E4:j" & Target.Row - 1)
- For i = 1 To UBound(arr)
- d1(arr(i, 1)) = arr(i, 2) & "," & arr(i, 5)
- Next
- If d1.exists(Target.Value) Then
- Target.Offset(0, 1) = Split(d1(Target.Value), ",")(0)
- Target.Offset(0, 4) = Split(d1(Target.Value), ",")(1)
- Else
- Target.Offset(0, 1) = "更新数据"
- End If
- ElseIf Target.Column = 7 And Target.Row > 3 And Target.Value <> "" Then
- If Target.Offset(0, -2) = "铁" Then
- Target.Offset(0, 1) = 2 * Target.Value * Target.Offset(0, -1).Value
- Target.Offset(0, 3) = 2 * Target.Value * Target.Offset(0, 2).Value
- Else
- Target.Offset(0, 1) = Target.Value * Target.Offset(0, -1).Value
- Target.Offset(0, 3) = Target.Value * Target.Offset(0, 2).Value
- End If
- End If
- End Sub
复制代码 |
|