统计每个月考勤时数并算出结果.谢谢

7993708

祥见附件..WPS软件,谢谢
调整了一下排版.所以重新上传的附件.

ykcbf1100

WPS？那算了。

7993708

ykcbf1100 发表于 2024-6-14 09:59
WPS？那算了。

老师,,那周末就不统计了

ykcbf1100

7993708 发表于 2024-6-14 10:10
老师,,那周末就不统计了

我的意思是，我没有WPS环境。

liulang0808

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

liulang0808

楼主的wps如果安装了vba，可以运行看下

grf1973

用公式就可以了。

grf1973

正班时数=count(区域)*8
加班时数=sum(区域)-正班时数
夜班补助=count(夜班区域)*10

grf1973

可能不对。如果某天上班时间小于8，正班时数就不能算8

7993708

liulang0808 发表于 2024-6-14 13:32
楼主的wps如果安装了vba，可以运行看下

完全没问题..如果能统计出周末时数就更完美了,  哈哈哈哈  .  谢谢 版主老大.....