この記事では、定義された色を持つ範囲内のセルの数をカウントするカスタム関数を作成します。

この例では、サンプルデータは100から1000の範囲の値を持つ範囲で構成されています。セルの値はさまざまな色で強調表示されています。各色の数を調べたい。

ArrowMain

特定の色のカウントを計算するために、カスタム関数「CountByColor」を作成しました。この関数は、2つの範囲パラメーターを入力として受け取ります。最初の範囲パラメーターはセルの内部色を定義し、2番目の範囲パラメーターはサンプル範囲を定義します。

ArrowOutput

コードの説明

Application.Volatileは、ワークブックでセル値が変更されるたびに再計算されるため、使用されます。

DefinedColorRange.Interior.ColorIndex上記のコードは、定義された範囲の内部色を取得するために使用されます。

コードについては以下に従ってください

Function CountByColor(DefinedColorRange As Range, CountRange As Range)

Application.Volatile

'Declaring variables

Dim ICol As Integer

Dim GCell As Range

'Getting the interior color of the cell

ICol = DefinedColorRange.Interior.ColorIndex

'Looping through the defined range

For Each GCell In CountRange



If ICol = GCell.Interior.ColorIndex Then

'Getting the count of matching colored cell

CountByColor = CountByColor + 1

End If

Next GCell

End Function

このブログが気に入ったら、FacebookやFacebookで友達と共有してください。

皆様からのご意見をお待ちしております。私たちの仕事を改善し、あなたのために改善する方法をお知らせください。 [email protected]までご連絡ください