Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$I$6" Then [F6] = [F6] + [I6]
If Target.Address = "$I$7" Then [F7] = [F7] + [I7]
If Target.Address = "$I$9" Then [F9] = [F9] + [I9]
........................
End Sub共700多行,提示过程过大,哪位大神能帮忙精简一下或者提供别的代码
在当日完成里边填上数据后,能够在开累数量和当月完成里边自动累加,开累数量和当月完成数据不相等
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If not Intersect(Target, Range("i:i")) Is Nothing Then
Target.Offset(0, -3).value = Target.value+Target.Offset(0, -3).value
End If
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column >5 Then
Target.Value = Target.Value + Target.Offset(0, 3).Value
End If
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$I$3" Then [F3] = [F3] + [I3]
If Target.Address = "$I$4" Then [F4] = [F4] + [I4]
If Target.Address = "$I$5" Then [F5] = [F5] + [I5]
End Sub
填写当日完成的数量后,能够在开累数量和当月完成产生累加数据,开累数量和当月完成数值不能一样,不知描述的是否明确
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If not Intersect(Target, Range("i:i")) Is Nothing Then
Target.Offset(0, -3).value = Target.value+Target.Offset(0, -3).value
End If
Application.EnableEvents = True
End Sub