Excelでセルの色に基づいてチャートを色付けするにはどうすればよいですか？

Excelで標準的なチャート（例えば、列または棒グラフ）を作成すると、データ系列やデータポイントにはExcelのデフォルトの色が割り当てられますが、それはデータ範囲内の塗りつぶしの色と必ずしも一致しません。しかし、ダッシュボード、レポート、データ可視化などの多くのシナリオでは、チャートのバーが元のセルに適用された色と正確に一致することが求められます。これにより、視覚の一貫性が保たれ、データを一目で解釈しやすくなったり、色を手がかりとしたカテゴリーグループの強化につながります。たとえば、スクリーンショットに示すように、チャートの各列が要約表に適用された色分けを反映することを望むかもしれません。Excelには、セルの塗りつぶしの色（特に手動で設定されたもの）を自動的にチャート要素にマッピングする直接的な機能は提供されていないため、セルの色が手動で適用された場合や数式やルールに基づいている場合など、いくつかの異なる方法が必要です。以下では、さまざまなシナリオで効果的にこの対応を実現するための複数の実用的な解決策を提供します。

VBAコードを使用して、1つまたは複数のデータ系列に基づいてセルの色でチャートを色付けする

素晴らしい機能を使用して、1つまたは複数のデータ系列に基づいてセルの色でチャートを色付けする

VBAコードを使用して、1つまたは複数のデータ系列に基づいてセルの色でチャートを色付けする

セルの色に基づいて1つのデータ系列でチャートを色付けする

もしチャートのバーに、対応するセルの塗りつぶしの色を継承させたい場合、かつ色指定が手動で行われている（条件付き書式や数式によるものではない）場合は、VBAを使用してチャートのバーの色を元のセルの色と同期させることが可能です。この技術は、視覚的な整合性が明確さや報告基準において重要となる1系列のチャートに特に役立ちます。

1. まず、データを選択し、棒グラフまたは列グラフを作成します。これを行うには、関連するセルを選択し、「挿入」→「列または棒グラフの挿入」をクリックします。下記のスクリーンショットのようなデフォルトのチャートが表示されるはずです：

2. ALT + F11 を押して、Microsoft Visual Basic for Applications (VBA) エディターを開きます。

3. VBAウィンドウで、「挿入」→「モジュール」をクリックします。その後、次のコードをモジュールウィンドウにコピー＆ペーストします。このスクリプトは、各チャートバーを対応するセルの塗りつぶしの色に一致させるものです。

VBAコード: 1つのデータ系列に基づいてセルの色でチャートバーを色付けする：

Sub ColorChartColumnsbyCellColor()
'Updateby Extendoffice
    Dim xChart As Chart
    Dim I As Long, xRows As Long
    Dim xRg As Range, xCell As Range
    On Error Resume Next
    Set xChart = ActiveSheet.ChartObjects("Chart 1").Chart
    If xChart Is Nothing Then Exit Sub
    With xChart.SeriesCollection(1)
        Set xRg = ActiveSheet.Range(Split(Split(.Formula, ",")(1), "!")(1))
        xRows = xRg.Rows.Count
        Set xRg = xRg(1)
        For I = 1 To xRows
            .Points(I).Format.Fill.ForeColor.RGB = ThisWorkbook.Colors(xRg.Offset(I - 1, 0).Interior.ColorIndex)
        Next
    End With
End Sub

4. コードを入力したら、F5キーを押してマクロを実行します。以下のスクリーンショットに示すように、チャートバーが元のセルの塗りつぶしの色を反映するようになります：

この方法は、セルの塗りつぶしの色が手動で設定され、頻繁に手動での調整が予想されるチャートに有利です。ただし、セルの色が変わった場合、リンクが動的ではないため、VBAを再実行してチャートを更新する必要があります。また、コードを保持するために、ワークブックをマクロ有効ファイル（.xlsm）として保存することを忘れないでください。

セルの色に基づいて複数のデータ系列でチャートを色付けする

チャートに複数のデータ系列がある場合（例：時間軸上の複数の製品や異なるカテゴリ）、同様のVBAアプローチを使用して、各バーのセグメントやデータポイントをその元のセルの塗りつぶしの色に対応させることができます。これにより、レポートが視覚的に整えられ、ワークシートとチャート間でデータを相互参照しやすくなります。

1. 下記のように、データをセットアップし、複数のデータ系列を持つ棒グラフまたは列グラフを作成します：

2. ALT + F11 を押して、VBAエディタを開きます。

3. VBAウィンドウで、「挿入」→「モジュール」をクリックし、次のコードを貼り付けます：

VBAコード: 複数のデータ系列に基づいてセルの色でチャートバーを色付けする：

Sub CellColorsToChart()
'Updateby Extendoffice
    Dim xChart As Chart
    Dim I As Long, J As Long
    Dim xRowsOrCols As Long, xSCount As Long
    Dim xRg As Range, xCell As Range
    On Error Resume Next
    Set xChart = ActiveSheet.ChartObjects("Chart 1").Chart
    If xChart Is Nothing Then Exit Sub
    xSCount = xChart.SeriesCollection.Count
    For I = 1 To xSCount
        J = 1
        With xChart.SeriesCollection(I)
            Set xRg = ActiveSheet.Range(Split(Split(.Formula, ",")(2), "!")(1))
            If xSCount > 4 Then
                xRowsOrCols = xRg.Columns.Count
            Else
                xRowsOrCols = xRg.Rows.Count
            End If
            For Each xCell In xRg
                .Points(J).Format.Fill.ForeColor.RGB = ThisWorkbook.Colors(xCell.Interior.ColorIndex)
                .Points(J).Format.Line.ForeColor.RGB = ThisWorkbook.Colors(xCell.Interior.ColorIndex)
                J = J + 1
            Next
        End With
    Next
End Sub

4. F5キーを押してこのコードを実行します。以下に示すように、チャートの系列がデータ範囲のセルの塗りつぶしの色を反映します：

この手法は手動で色付けされたデータに対して完全な制御と柔軟性を与えますが、条件付き書式や数式によって自動生成される色には対応していません。そのような状況では、より動的なオプションについては、後述の数式ベースおよび条件付き書式の解決策をご覧ください。

素晴らしい機能を使って、1つまたは複数のデータ系列に基づいてセルの色でチャートを色付けする

VBAはチャートの色をセルの塗りつぶしと同期させることができますが、手動でコードを実行する必要があり、一部のユーザーはマクロやVBAのセキュリティ警告に不安を感じるかもしれません。より洗練され、インタラクティブなアプローチを探している場合、Kutools for Excelの「セルの色に基づいてチャートの色を変更」機能は効率的な解決策を提供します。このツールは、1つまたは複数のデータ系列を持つチャートに関係なく、セルの塗りつぶしの色を対応するチャート要素に自動的に適用します。さらに、後でセルの色が更新された場合でも（簡単な再適用でマッピングが更新されます）動作します。

Kutools for Excelをインストールしたら、次のように進んでください：

1. 色付けしたいチャートを挿入します。チャートを選択し、「Kutools」→「グラフ」→「グラフツール」→「セルの色に基づいてチャートの色を変更」をクリックします（下記画像参照）：

2. ダイアログボックスが表示されたら、単純に「OK」をクリックしてください。

3. 次の例に示すように、チャートは即座にセルの色と一致して更新されます：

セルの色に基づいて1つのデータ系列でチャートを色付けする

セルの色に基づいて複数のデータ系列でチャートを色付けする

この機能は、チャートの色を自動的に一致させる必要があり、データの更新に関係なく再利用可能なソリューションを求める人にとって理想的です。手動での書式設定やマクロの実行と比較して大幅な時間節約ができ、複数の人々がデータやチャートのプレゼンテーションを編集する共同作業環境で特に役立ちます。

今すぐ Kutools for Excel をダウンロードして無料体験しよう！

関連するチャートの記事：

最高のオフィス業務効率化ツール

🤖	Kutools AI Aide：データ分析を革新します。主な機能：Intelligent Execution｜コード生成｜カスタム数式の作成｜データの分析とグラフの生成｜Kutools Functionsの呼び出し……
	人気の機能：重複の検索・ハイライト・重複をマーキング｜空白行を削除｜データを失わずに列またはセルを統合｜丸める……
	スーパーLOOKUP：複数条件でのVLookup｜複数値でのVLookup｜複数シートの検索｜ファジーマッチ……
	高度なドロップダウンリスト：ドロップダウンリストを素早く作成｜連動ドロップダウンリスト｜複数選択ドロップダウンリスト……
	列マネージャー：指定した数の列を追加 ｜列の移動 ｜非表示列の表示/非表示の切替｜ 範囲＆列の比較……
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブック＆ワークシートの管理｜オートテキスト ライブラリ｜日付ピッカー｜データの統合 ｜セルの暗号化/復号化｜リストで電子メールを送信｜スーパーフィルター｜特殊フィルタ（太字/斜体/取り消し線などをフィルター）……
	トップ15ツールセット：12 種類のテキストツール（テキストの追加、特定の文字を削除など）｜50種類以上のグラフ（ガントチャートなど）｜40種類以上の便利な数式（誕生日に基づいて年齢を計算するなど）｜19 種類の挿入ツール（QRコードの挿入、パスから画像の挿入など）｜12 種類の変換ツール（単語に変換する、通貨変換など）｜7種の統合＆分割ツール（高度な行のマージ、セルの分割など）｜… その他多数

Kutoolsはお好みの言語で利用可能 ― 英語、スペイン語、ドイツ語、フランス語、中国語、その他40以上の言語に対応！

Kutools for ExcelでExcelスキルを強化し、これまでにない効率を体感しましょう。 Kutools for Excelは300以上の高度な機能で生産性向上と保存時間を実現します。最も必要な機能はこちらをクリック...

Kutools for Excelの詳細はこちら... 無料ダウンロード...

---

Office TabでOfficeにタブインターフェースを追加し、作業をもっと簡単に

• Word、Excel、PowerPointでタブによる編集・閲覧を実現。
• 新しいウィンドウを開かず、同じウィンドウの新しいタブで複数のドキュメントを開いたり作成できます。
• 生産性が50%向上し、毎日のマウスクリック数を何百回も削減！

Office Tabの詳細はこちら... 無料ダウンロード...

---

全てのKutoolsアドインを一つのインストーラーで

Kutools for Officeスイートは、Excel、Word、Outlook、PowerPoint用アドインとOffice Tab Proをまとめて提供。Officeアプリを横断して働くチームに最適です。

• オールインワンスイート — Excel、Word、Outlook、PowerPoint用アドインとOffice Tab Proが含まれます
• 1つのインストーラー・1つのライセンス —— 数分でセットアップ完了（MSI対応）
• 一括管理でより効率的 —— Officeアプリ間で快適な生産性を発揮
• 30日間フル機能お試し —— 登録やクレジットカード不要
• コストパフォーマンス最適 —— 個別購入よりお得

Kutools for Officeの詳細はこちら... 無料ダウンロード...