|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
Sub 测试()
Dim i%, j%, k%, 正班时数, 加班时数, 夜班
Sheet4.Activate
For i = 4 To Cells(Rows.Count, "A").End(xlUp).Row Step 3
正班时数 = 0: 加班时数 = 0
For k = 1 To 2
For j = 5 To Cells(1, Columns.Count).End(xlToLeft).Column
If IsNumeric(Cells(i + k, j)) = True Then
Cells(i + k, "D") = Cells(i + k, "D") + Cells(i + k, j)
正班时数 = 正班时数 + 8
If celss(i + k, j) > 8 Then
加班时数 = 加班时数 + celss(i + k, j) - 8
End If
If Cells(i + k, "C") = "晚班" Then
If celss(i + k, j) > 8 Then
夜班 = 夜班 + 1
End If
End If
End If
Next
Next
Cells(i, "AM") = 正班时数
Cells(i, "AN") = 加班时数
Cells(i, "AP") = 夜班 * 10
Cells(i, "AO") = 正班时数 * 16 + 加班时数 * 20
Cells(i, "AQ") = Cells(i, "AP") + Cells(i, "AO")
Next
End Sub |
|