考勤数据分类求和

绿色心情小天使

各位好：
1、小计用VBA数组或字典来求和计算1-31号之间的考勤数据之和。
2、周日用VBA来计算1-31号之间中周日的数据之和
3、加班计算非周日数据大于1 的数据之和

2021kq.rar (46.7 KB, 下载次数: 18)

2021-3-8 07:42 上传

点击文件名下载附件

donghui2363

Function kq(rng As Range)
    For Each k In rng
        If k <> "" Then
            m = m + k
        End If
    Next
    kq = m
End Function
其他的依葫芦画瓢吧

蓝桥玄霜

把第10,11行的合并单元格取消合并，激活一个月份的表格，执行代码即可。

3190496160

Sub 求和()
Dim ar As Variant
Dim i As Integer
With ActiveSheet
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    ar = .Range("a4:ak" & r).Formula
    For i = 3 To UBound(ar)
        zr = 0: jb = 0: xj = 0
        If Trim(ar(i, 1)) <> "" And InStr(ar(i, 1), "备注：") = 0 Then
            For j = 3 To 33
                xq = Weekday(ar(1, j), vbMonday)
                If xq = 7 And Trim(ar(i, j)) <> "" Then
                    If IsNumeric(ar(i, j)) Then
                        zr = zr + ar(i, j)
                    End If
                End If
                If ar(2, j) <> "日" And ar(i, j) <> "" Then
                    If IsNumeric(ar(i, j)) And ar(i, j) > 1 Then
                        jb = jb + (ar(i, j) - 1)
                    End If
                End If
                If IsNumeric(ar(i, j)) Then
                    xj = xj + ar(i, j)
                End If
            Next j
            ar(i, 34) = zr
            ar(i, 35) = jb
            ar(i, 37) = xj
        End If
    Next i
     .Range("a4:ak" & r).Formula = ar
End With
MsgBox "ok!"
End Sub

3190496160

2021kq.rar (54.81 KB, 下载次数: 16)

2021-3-8 09:23 上传

点击文件名下载附件

绿色心情小天使

3190496160 发表于 2021-3-8 09:23

晚上好：
   还有一个问题，标题栏日期有空白，求和就出现问题。
如下。

仓库考勤2021.rar (94.71 KB, 下载次数: 0)

2021-3-29 19:23 上传

点击文件名下载附件

绿色心情小天使

绿色心情小天使 发表于 2021-3-29 19:23
晚上好：
   还有一个问题，标题栏日期有空白，求和就出现问题。
如下。

没有人吗？