Question

EXCEL VBA自动填充公式

Sub Worksheet_Change(ByVal Target As Range)
Dim mrow As Integer
Dim RG1 As String
Dim RG2 As String
Dim RG3 As String
Dim RG4 As String
Dim RG5 As String
Dim RG6 As String
Dim RG7 As String
Dim RG8 As String
Dim RG9 As String
Dim RG10 As String
Dim RG11 As String
Dim RG12 As String
Dim RG14 As String
mrow = Target.row
If Len(Range("D" & mrow)) > 0 And Len(Range("E" & mrow)) > 0 And Len(Range("F" & mrow)) > 0 And Len(Range("G" & mrow)) > 0 And Len(Range("H" & mrow)) > 0 And Len(Range("I" & mrow)) > 0 Then
RG1 = Range("D" & mrow).Address(0, 0)
RG2 = Range("E" & mrow).Address(0, 0)
RG3 = Range("F" & mrow).Address(0, 0)
RG4 = Range("G" & mrow).Address(0, 0)
RG5 = Range("H" & mrow).Address(0, 0)
RG6 = Range("I" & mrow).Address(0, 0)
Range("J" & mrow).Formula = "=" & RG1 & "+" & RG2 & "+" & RG3 & "+" & RG4 & "+" & RG5 & "-" & RG6
End If
End Sub
这是我编的一个计算工资的应发合计，但是我想接着用计算出来的应发合计计算养老保险等等，希望各位高手帮忙解决，非常感谢！

Answer 1

学习下……