在VBA中使用带有可见单元格的CountIf

Question

我试图CountIf在可见细胞上的vba中使用一个函数来计算所有可见的单元格yes,有25个,但是我得到了错误

无法获得班级的CountIf财产WorksheetFunction

它突出显示returnCount,不确定是否也有错误myrange,任何帮助将不胜感激.

Set myrange = _
Range("D4",Range("D4").End(xlDown)).SpecialCells(xlCellTypeVisible)

returnCount = WorksheetFunction.CountIf(myrange, "yes")

Answer 1

COUNTIF不喜欢非连续或多范围范围.因此迭代范围内的区域

Dim myrange As Range
Dim ar As Range
Set myrange = _
Range("D4", Range("D4").End(xlDown)).SpecialCells(xlCellTypeVisible)
For Each ar In myrange.Areas
    returncount = returncount + Application.WorksheetFunction.CountIf(ar, "yes")
Next ar