求自动统计填充颜色非无色的单元格内包含的相关数出现的个数

cqz2022

学习计划表.rar (28.06 KB, 下载次数: 4)

2024-2-16 12:02 上传

点击文件名下载附件

在(D4:N368这个范围内的数字，对应的是A列A4起的序号

默认状态下，(D4:N368)这个范围内的单元格填充颜色为 无色
然后会根据需要，把这个范围内的某些单元格设置为 其他颜色，即不再是无色

想在D列统计 非无色单元 对应A列数 出现的个数。

举例：
D4  对应A4的数是 1  在(D4:N368)范围内，有4个1的单元格 填充了颜色，即不是 无色  则 D4值为4
D5  对应A5的数是 2  在(D4:N368)范围内，有3个2的单元格 填充了颜色，即不是 无色  则 D5值为3
D6  对应A6的数是 3  在(D4:N368)范围内，有1个3的单元格 填充了颜色，即不是 无色  则 D6值为1


当(D4:N368)填充颜色改色后，自动更新D的统计情况。

限定范围用(D4:N368)这种形式了限定，不连续的区域(D4:N368,AA4:AZ368)这样限定

谢谢

yynrzwh

学习计划表.zip (37.69 KB, 下载次数: 5)

2024-2-16 17:01 上传

点击文件名下载附件

gwjkkkkk

Sub TEST2()
    Dim ar, i&, r&, vTemp, Rng As Range, rngCel As Range
   
    Application.ScreenUpdating = False
   
    r = Cells(Rows.Count, "B").End(xlUp).Row
    ar = Range("B4:D" & r)
    Set Rng = Range("E4:N368")
    For i = 1 To UBound(ar)
        vTemp = Empty
        For Each rngCel In Rng
            If rngCel.Interior.Color <> 16777215 And rngCel.Value = i Then
                vTemp = vTemp + 1
            End If
        Next
        ar(i, 3) = vTemp
    Next i
   
    [B4].Resize(UBound(ar), UBound(ar, 2)) = ar
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

参与一下。。。

桑榆非晚123

不太会事件，所以写了一个点刷新就可以实现的