颜色统计

joeyyang5

Rem VBA知识点：Color、Intersect

Sub 计算选区中背景色等于A1背景色的单元格个数()
    Dim rng As Range, colors As Long, Item As Long
    colors = Range("A1").Interior.Color  '获取A1单元格的颜色（一个Long型数值）
    '在选区及已用区域的交集中循环
    '目的是防止用户选择太多的区域时浪费程序时间
    For Each rng In Application.Intersect(ActiveSheet.UsedRange, Selection)
        '如果某单元格的颜色与A1颜色一致则累加计数器
        If rng.Interior.Color = colors Then Item = Item + 1
    Next rng
    '报告计数器
    MsgBox "共有：" & Item & "个", 64, "颜色统计"
End Sub

开心萝卜惠州

学习，谢谢分享！

chengyunqw@126.

学习，谢谢分享！

zzbilly

谢谢分享好好学习