【VBAデモ】Excelマクロの王道！一覧から個別ファイルへ高速転記

How to count cells by color in Excel Code - Custom functions to count by color in Excel. --------- Function CountCellsByColor(data_range As Range, cell_color As Range) As Long Dim indRefColor As Long Dim cellCurrent As Range Dim cntRes As Long Application.Volatile cntRes = 0 indRefColor = cell_color.Cells(1, 1).Interior.Color For Each cellCurrent In data_range If indRefColor = cellCurrent.Interior.Color Then cntRes = cntRes 1 End If Next cellCurrent CountCellsByColor = cntRes End Function Syntax