Question

EXCEL VBA计算单元格个数

A14:J22为范围
计算有颜色单元格个数
结果显到AC6

Answer 1

要明确是什么颜色，否则不能解。

因为白色也是一个颜色。

你所说的颜色也未知是填充色还是字体色？

以下以填充色为例：

－－－－－－－－－－－－－－－－－－－－

Private Sub CommandButton1_Click()
Dim rng As Range, M%
M = 0
For Each rng In Range("A14:j22")
    If rng.Interior.Pattern <> xlNone Then
        M = M + 1
    End If
Next
[ac6] = M
End Sub

－－－－－－－－－－－－－－－－－

 

Answer 2

excel各种功能帮实现