|
本帖最后由 liulang0808 于 2024-6-14 13:33 编辑
Sub 按钮1_Click()
r = Cells(Rows.Count, 3).End(3).Row
Application.ScreenUpdating = False
For j = 4 To r Step 3
sm_jb = 0
sm_zb = 0
sm_bz = 0
For i = 5 To 35
If Len(Cells(j, i)) > 0 And VBA.IsNumeric(Cells(j, i)) Then
If Cells(j, i) > 8 Then
sm_jb = sm_jb + Cells(j, i) - 8
sm_zb = sm_zb + 8
Else
sm_zb = sm_zb + Cells(j, i)
End If
End If
If Len(Cells(j + 1, i)) > 0 And VBA.IsNumeric(Cells(j + 1, i)) Then
If Cells(j + 1, i) >= 8 Then
sm_jb = sm_jb + Cells(j + 1, i) - 8
sm_zb = sm_zb + 8
sm_bz = sm_bz + 10
Else
sm_zb = sm_zb + Cells(j + 1, i)
End If
End If
Next i
Cells(j + 1, "am") = sm_zb
Cells(j + 1, "an") = sm_jb
Cells(j + 1, "ao") = sm_zb * 18 + sm_jb * 20
Cells(j + 1, "ap") = sm_bz
Cells(j + 1, "aq") = Cells(j + 1, "ao") + sm_bz
Next j
Application.ScreenUpdating = True
End Sub
|
评分
-
1
查看全部评分
-
|