Function cc()
Dim rng As Range
For Each rng In Range("A1:G10")
If rng.Interior.Color = RGB(255, 255, 0) Then
cc = 1 + cc
End If
Next rng
End Function
Function cc()
Dim rng As Range
For Each rng In Range("A1:G10")
If rng.Interior.Color = RGB(255, 255, 0) Then
cc = 1 + cc
End If
Next rng
End Function
本站转载的文章为个人学习借鉴使用，本站对版权不负任何法律责任。如果侵犯了您的隐私权益，请联系本站邮箱yoyou2525@163.com删除。