按格子不同的底色统计数量

心随莲花

求助大神，如附件，3条生产线，产出数据用格子底色不同区分，蓝底色1号线，橙底色2号线，绿底色3号线。怎样用函数或公式统计三条线的日产出。或者还有其他方法可以统计3条线的日产出数。

quqiyuan

这种情况需要vba了吧

hxj119

函数与公式无此功能，建议用VBA处理！

quqiyuan

vba供你参考。。。。

quqiyuan

代码如下。。。
Sub test()
    Dim wb As Workbook, sht As Worksheet
    Set wb = ThisWorkbook
    Set sht = wb.Sheets("sheet1")
    With sht
        arr = .UsedRange
        Set d = CreateObject("scripting.dictionary")
        For i = 30 To 32
            x = .Cells(i, 2).Interior.Color
            d(x) = i - 29
        Next
        ReDim brr(1 To d.Count, 1 To 1)
        For i = 4 To UBound(arr) - 3
            For j = 3 To UBound(arr, 2)
                y = .Cells(i, j).Interior.Color
                If d.exists(y) Then
                    brr(d(y), 1) = brr(d(y), 1) + arr(i, j)
                End If
            Next
        Next
        .Cells(30, 3).Resize(UBound(brr)) = brr
    End With
    Beep
    Set d = Nothing
End Sub

心随莲花

hxj119 发表于 2024-11-14 12:27
函数与公式无此功能，建议用VBA处理！

如果按自提颜色可以吗？

心随莲花

quqiyuan 发表于 2024-11-14 12:50
代码如下。。。
Sub test()
    Dim wb As Workbook, sht As Worksheet

如果按字体颜色统计可以吗？

leepoison

方方格子的BgColorSum
=BgColorSum(B30,$C$4:$P$29)

quqiyuan

心随莲花 发表于 2024-11-20 10:21
如果按字体颜色统计可以吗？

可以的，改为font属性