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刪除。
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刪除。