VBA - 需要僅在過濾後報告可見單元格的單元格格式

Question

我有一個關於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 

它工作正常，但也有一些行隱藏，因爲標題過濾器。

當我使用上面的代碼時，它也顯示隱藏單元格的輸出，但我不希望結果包含隱藏的單元格。我只需要篩選標題後的可見單元格的結果。

有沒有辦法做到這一點？

Answer 1

我修改了你的代碼來完成你的要求，但也提高了效率;在做某事之前，你通常不需要使用Select單元格。

Option Explicit 

Sub CountCellsByColor() 

Dim d As Range, x As Range 
Dim Count As Integer 
Application.ScreenUpdating = False 

Set x = Range("D2:Y46") 

For Each d In x 
    If d.Interior.Color = 15773696 And Not d.Rows.Hidden And Not d.Columns.Hidden Then 
     Count = Count + 1 
    End If 
Next 

Application.ScreenUpdating = True 
Range("C53").Value = Count 


End Sub 

的Not d.Rows.Hidden檢查將返回True如果該行還沒有被過濾掉（隱藏）。