Excelでフォントの色ごとに合計する（2つの効果的な方法）

この記事では、Excel でフォントの色によってセルを合計する方法について説明します。フォントの色が異なるセルが複数ある場合は、これが必要になることがあります。次の図は、この記事の目的を強調しています。その方法については、ざっと目を通してください。

下のダウンロードボタンから練習用ワークブックをダウンロードできます。

Excel でフォントの色別に合計する 2 つの効果的な方法

1. SUBTOTAL とフィルターを使用したフォント色による合計

次のように、1 つの列にさまざまな色のフォントを含むデータセットがあるとします。次に、この方法は、フォントの色でそれらを合計するのに最適な場合があります.この方法を適用するには、以下の手順に従ってください。

📌 ステップ

• まず、セル C13 に次の数式を入力します . 9 数式で SUM 関数を参照します . SUBTOTAL 関数を有効にします 優先範囲の合計を返します。

=SUBTOTAL(9,C5:C11)

• データセット内の任意の場所を選択します。次に CTRL+SHIFT+L を押します フィルタを適用するには データセット上。その後、下の図に示すように、ヘッダー セルの右下隅にフィルター ボタンが表示されます。

• 次に、以下に示すようにフィルター ボタンを使用して、特定の色でデータセットをフィルター処理します。

• すると、次の結果が得られます。

続きを読む: Excel でフィルター処理されたセルを合計する方法 (5 つの適切な方法)

類似の読み物

• Excel で選択したセルを合計する方法 (4 つの簡単な方法)
• Excel の列の最後までの合計 (8 つの便利なメソッド)
• Excel で列を合計する方法 (7 つの方法)
• [修正済み!] Excel SUM 数式が機能せず、0 を返す (3 つのソリューション)
• Excel で複数の行を合計する方法 (4 つの簡単な方法)

2. Excel でのユーザー定義関数 (UDF) を使用したフォントの色による合計

次のようなデータセットがある場合、以前の方法は機能しません。 ユーザー定義関数 (UDF) を使用できます 代わりは。以下の手順に従ってください。

📌 ステップ

• まず、ブックをマクロ有効ブックとして保存します .次に、ALT+F11 を押します VBA ウィンドウを開きます。次に、挿入>> モジュールを選択します 下の図に示すように。これにより、新しい空のモジュールが作成されます。

• その後、以下のコードをコピーしてください。

Function SUMBYFONTCOLOR(ref_color As Range, sum_range As Range)
Dim cell_color, sum_color As Long
Dim Cell As Range
Application.Volatile
sum_color = 0
cell_color = ref_color.Font.ColorIndex
For Each Cell In sum_range
If cell_color = Cell.Font.ColorIndex Then
sum_cell = WorksheetFunction.Sum(Cell, sum_cell)
End If
Next Cell
SUMBYFONTCOLOR = sum_cell
End Function

• 次のように、コピーしたコードをモジュール ウィンドウに貼り付けます。

• その後、ワークシートに移動します。次に、セル I5:I9 に目的の色の名前を書き込みます .次に、それに応じてフォントの色を変更します。
• 次の数式をセル J5 に入力します .次に、フィル ハンドル アイコンを使用します 下のセルに数式を適用します。

=SUMBYFONTCOLOR(I5,$B$4:$G$9)

最終的に、次の結果が得られます。👇

ここで、範囲内のセルのフォントの色を変更しても、結果は更新されません。セルをダブルクリックしてからクリックして再計算を強制する必要があります。または、CTRL+ALT+F9 を押すこともできます 同じ結果が得られます。

• どちらもやりたくない場合は、次のコードをコピーしてください。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A:Z")) Is Nothing Then
ActiveSheet.Calculate
End If
End Sub

• 次に、VBA ウィンドウに戻ります。次に、UDF という名前のワークシートをダブルクリックします。 .これにより、空白のウィンドウが開きます。その後、次の図に示すように、コピーしたコードをそのウィンドウに貼り付けます。

フォントの色を変更し、クリックして結果を更新できるようになりました。

VBA コードの説明

Function SUMBYFONTCOLOR(ref_color As Range, sum_range As Range)
このパブリック関数は 2 つの引数を取ります。 ref_color 引数は、参照セルからフォントの色を取得します。 sum_range で参照される範囲内で、フォントの色に基づいてセルの値を合計します

Dim cell_color, sum_color As Long
Dim Cell As Range
必要な変数の宣言。

Application.Volatile
このコード行は、ユーザーが変更を加えるたびに Excel に再計算を強制します。

sum_color =0
変数の初期値を定義します。

cell_color =ref_color.Font.ColorIndex
cell_color ref_color によって参照されるセルのフォントの色を格納する変数

sum_range の各セル
この For ループ sum_range で参照される範囲内の各セルで次のコード行を実行します

If cell_color =Cell.Font.ColorIndex Then
sum_range 内のセルのフォント色の場合のみ ref_color によって参照されるセルのフォントの色と一致します 引数の場合、次のコード行が実行されます。

sum_cell =WorksheetFunction.Sum(Cell, sum_cell)
このコード行は SUM 関数を有効にします フォントの色が一致するセル値を追加します。

SUMBYFONTCOLOR =sum_cell
このコード行は、関数がこの値を返すことができるように合計を保存します。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
このプライベート サブジェクト プロシージャは、特定のワークシート内で変更が発生した場合にのみ機能します。

If Not Intersect(Target, Range(“A:Z”)) Is Nothing Then
このコード行は、ユーザーが定義された範囲 (A:Z) 内で変更を行った場合にのみ、次のコード行が実行されるようにします。 ).

ActiveSheet.Calculate
これにより、アクティブなワークシート内のすべての数式が強制的に再計算され、変更が更新されます。

続きを読む: Excel VBA を使用して行内のセルの範囲を合計する方法 (6 つの簡単な方法)

覚えておくべきこと

• フォントの色を変更した場合は、セルをダブルクリックして別の場所をクリックし、更新された結果を確認することを忘れないでください。または、CTRL+SHIFT+F9 を押す必要があります そのために。
• 定義された範囲 (A:Z) 内でクリックする必要があります ) フォントの色を変更した後に結果を更新します。

結論

これで、Excel でフォントの色によってセルを合計する最も効果的な 2 つの方法がわかりました。この記事が問題の解決に役立ったかどうかをお知らせください。さらに質問や提案がある場合は、以下のコメント セクションを使用することもできます。 ExcelDemy にアクセスしてください ブログでエクセルについて詳しく学べます。私たちと一緒に学び続けてください。

関連記事

• Excel で色付きのセルを合計する方法 (4 つの方法)
• Excel の合計セル:連続、ランダム、条件付きなど
• VBA を使用せずに Excel で色付きのセルを合計する方法 (7 つの方法)
• Excel で数値を追加する (2 つの簡単な方法)
• Excel で複数の行と列を合計する方法