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 '子程序结束
|