Microsoft ExcelでVBAを使用して色によるカウント
この記事では、定義された色を持つ範囲内のセルの数をカウントするカスタム関数を作成します。
この例では、サンプルデータは100から1000の範囲の値を持つ範囲で構成されています。セルの値はさまざまな色で強調表示されています。各色の数を調べたい。
特定の色のカウントを計算するために、カスタム関数「CountByColor」を作成しました。この関数は、2つの範囲パラメーターを入力として受け取ります。最初の範囲パラメーターはセルの内部色を定義し、2番目の範囲パラメーターはサンプル範囲を定義します。
コードの説明
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]までご連絡ください