帮我用中文解释一下可以吗

阿豪

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Ro As Long
    If Target.Row > 1 And Target.Column < 5 Then
        Ro = Target.Row
        Cells(Ro, 5) = Cells(Ro, 2) + Cells(Ro, 3) & "*" & Cells(Ro, 4) * 2    'B2+C2&"*"&D2*2
        Cells(Ro, 6) = Cells(Ro, 1) - 34 & "*" & Cells(Ro, 4) * 1    'A2-34&"*"&D2*1
        Cells(Ro, 7) = Cells(Ro, 2) - 25 & "*" & Cells(Ro, 4) * 1    'B2-25&"*"&D2*1
        Cells(Ro, 8) = Cells(Ro, 2) - 25 & "*" & Cells(Ro, 4) * 2    'B2-25&"*"&D2*2
        Cells(Ro, 9) = (Cells(Ro, 1) - 28) / 2 & "*" & Cells(Ro, 4) * 4    '(A2-28)/2&"*"&D2*4
        Cells(Ro, 10) = Cells(Ro, 3) - 60 & "*" & Cells(Ro, 4) * 2    'C2-60&"*"&D2*2
        Cells(Ro, 11) = (Cells(Ro, 1) - 28) / 2 - 67 & "*" & Cells(Ro, 3) - 140 & "*" & Cells(Ro, 4) * 2    '(A2-28)/2-67&"*"&C2-140&"*"&D2*2
        Cells(Ro, 12) = (Cells(Ro, 1) - 103) / 2 & "*" & Cells(Ro, 2) - 19 & "*" & Cells(Ro, 4) * 2    '(A2-103)/2&"*"&B2-19&"*"&D2*2
        Cells(Ro, 13) = Cells(Ro, 4) * 4    'D2*4
        Cells(Ro, 14) = Cells(Ro, 4) * 4    'D2*4
        Cells(Ro, 15) = Cells(Ro, 4) * 4    'D2*4
        Cells(Ro, 16) = Cells(Ro, 4) * 1    'D2*1
        Cells(Ro, 17) = Cells(Ro, 4) * 30    'D2*30
        Cells(Ro, 18) = Cells(Ro, 4) * 6    'D2*6
    End If
End Sub
谢谢

zxc1152468

Private Sub Worksheet_Change(ByVal Target As Range)    '当工作表发生改变时执行本程序(固定格式)
    Dim Ro As Long    '定义变量 Ro 为 长整型值
    If Target.Row > 1 And Target.Column < 5 Then    '如果  Target的行标>1 并且  Target的列标<5 则执行
        Ro = Target.Row    'Ro= Target的行标
        Cells(Ro, 5) = Cells(Ro, 2) + Cells(Ro, 3) & "*" & Cells(Ro, 4) * 2    'B2+C2&"*"&D2*2    '<单元格>坐标(Ro,5)=<单元格>坐标(Ro,2)+<单元格>坐标(Ro,3) & 空值 & <单元格>坐标(Ro,4)*2'B2+C2&"*"&D2*2
        Cells(Ro, 6) = Cells(Ro, 1) - 34 & "*" & Cells(Ro, 4) * 1    'A2-34&"*"&D2*1    '<单元格>坐标(Ro,6)=<单元格>坐标(Ro,1)-34 & 空值 & <单元格>坐标(Ro,4)*1'A2-34&"*"&D2*1
        Cells(Ro, 7) = Cells(Ro, 2) - 25 & "*" & Cells(Ro, 4) * 1    'B2-25&"*"&D2*1    '<单元格>坐标(Ro,7)=<单元格>坐标(Ro,2)-25 & 空值 & <单元格>坐标(Ro,4)*1'B2-25&"*"&D2*1
        Cells(Ro, 8) = Cells(Ro, 2) - 25 & "*" & Cells(Ro, 4) * 2    'B2-25&"*"&D2*2    '<单元格>坐标(Ro,8)=<单元格>坐标(Ro,2)-25 & 空值 & <单元格>坐标(Ro,4)*2'B2-25&"*"&D2*2
        Cells(Ro, 9) = (Cells(Ro, 1) - 28) / 2 & "*" & Cells(Ro, 4) * 4    '(A2-28)/2&"*"&D2*4    '<单元格>坐标(Ro,9)=(<单元格>坐标(Ro,1)-28)/2 & 空值 & <单元格>坐标(Ro,4)*4'(A2-28)/2&"*"&D2*4
        Cells(Ro, 10) = Cells(Ro, 3) - 60 & "*" & Cells(Ro, 4) * 2    'C2-60&"*"&D2*2    '<单元格>坐标(Ro,10)=<单元格>坐标(Ro,3)-60 & 空值 & <单元格>坐标(Ro,4)*2'C2-60&"*"&D2*2
        Cells(Ro, 11) = (Cells(Ro, 1) - 28) / 2 - 67 & "*" & Cells(Ro, 3) - 140 & "*" & Cells(Ro, 4) * 2    '(A2-28)/2-67&"*"&C2-140&"*"&D2*2    '<单元格>坐标(Ro,11)=(<单元格>坐标(Ro,1)-28)/2-67 & 空值 & <单元格>坐标(Ro,3)-140 & 空值 & <单元格>坐标(Ro,4)*2'(A2-28)/2-67&"*"&C2-140&"*"&D2*2
        Cells(Ro, 12) = (Cells(Ro, 1) - 103) / 2 & "*" & Cells(Ro, 2) - 19 & "*" & Cells(Ro, 4) * 2    '(A2-103)/2&"*"&B2-19&"*"&D2*2    '<单元格>坐标(Ro,12)=(<单元格>坐标(Ro,1)-103)/2 & 空值 & <单元格>坐标(Ro,2)-19 & 空值 & <单元格>坐标(Ro,4)*2'(A2-103)/2&"*"&B2-19&"*"&D2*2
        Cells(Ro, 13) = Cells(Ro, 4) * 4    'D2*4    '<单元格>坐标(Ro,13)=<单元格>坐标(Ro,4)*4'D2*4
        Cells(Ro, 14) = Cells(Ro, 4) * 4    'D2*4    '<单元格>坐标(Ro,14)=<单元格>坐标(Ro,4)*4'D2*4
        Cells(Ro, 15) = Cells(Ro, 4) * 4    'D2*4    '<单元格>坐标(Ro,15)=<单元格>坐标(Ro,4)*4'D2*4
        Cells(Ro, 16) = Cells(Ro, 4) * 1    'D2*1    '<单元格>坐标(Ro,16)=<单元格>坐标(Ro,4)*1'D2*1
        Cells(Ro, 17) = Cells(Ro, 4) * 30    'D2*30    '<单元格>坐标(Ro,17)=<单元格>坐标(Ro,4)*30'D2*30
        Cells(Ro, 18) = Cells(Ro, 4) * 6    'D2*6    '<单元格>坐标(Ro,18)=<单元格>坐标(Ro,4)*6'D2*6
    End If    'If判断过程结束
End Sub    '子程序结束

zxc1152468

阿豪

嗯
好多多慢慢消化吧
谢谢