Excel VBAのマクロについて質問です。Excelで色付きのセルの数を取得したいので、以下のコードを書きました:
Application.ScreenUpdating = False
x = Range("D2:Y46").Select
For Each d In Selection
d.Select
If Selection.Interior.Color = 15773696 Then
Count = Count + 1
End If
Next
Application.ScreenUpdating = True
Range("C53").Select
Selection = Count
正常に動作していますが、見出しフィルターのために非表示になっている行がいくつかあります。
上記のコードを使用すると、非表示のセルの出力も表示されますが、結果に非表示のセルを含めたくありません。見出しでフィルターをかけた後、表示可能なセルの結果のみが必要です。
これを行う方法はありますか?