UC知道EXCEL宏代码的解析???
来源：百度知道 编辑：UC知道 时间：2024/05/22 10:15:28
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rf As Range
Dim rc As Range
Application.EnableEvents = False
If Target.Count = 1 Then
If Target.Value <> "" And Target.Column = 6 Then
For Each rf In Range("H4", Range("H65536").End(xlUp))
If rf.Value = Target.Offset(0, -1).Value Then
rf.Offset(0, 1).Value = rf.Offset(0, 1).Value - Target.Value
Exit For
End If
Next rf
Set rf = Nothing
End If
If Target.Value <> "" And Target.Column = 3 Then
For Each rc In Range("H4", Range("H65536").End(xlUp))
If rc.Value = Target.Offset(0, -1).Value Then
rc.Offset(0, 1).Value = rc.Offset(0, 1).Value + Target.Value
Exit For
End If
Next rc
Set rc = Nothing
End If
End If
Application.EnableEvents = True
End Sub
在每一句后面注释
Dim rf As Range
Dim rc As Range
Application.EnableEvents = False
If Target.Count = 1 Then
If Target.Value <> "" And Target.Column = 6 Then
For Each rf In Range("H4", Range("H65536").End(xlUp))
If rf.Value = Target.Offset(0, -1).Value Then
rf.Offset(0, 1).Value = rf.Offset(0, 1).Value - Target.Value
Exit For
End If
Next rf
Set rf = Nothing
End If
If Target.Value <> "" And Target.Column = 3 Then
For Each rc In Range("H4", Range("H65536").End(xlUp))
If rc.Value = Target.Offset(0, -1).Value Then
rc.Offset(0, 1).Value = rc.Offset(0, 1).Value + Target.Value
Exit For
End If
Next rc
Set rc = Nothing
End If
End If
Application.EnableEvents = True
End Sub
在每一句后面注释
全部不明, 此题便是课程, 不是问题
但这里不是教课程, 只适宜问问题, 如有那一句或那一个函数不明, 则可问
我只可简单告诉你, 此宏是全自动, 根据B列的型号及C列的数字在存货中累加, 及根据E列中的型号及F列中的数字在存货中累减
在C列或F列输入数字资料, 便会激活宏, 自动执行