Excel でコメントインジケーターの色を変更するには、どうすればよいですか？

著者Xiaoyang変更日2025-10-24

デフォルトでは、Excel にコメントを挿入すると、セルの右上隅に小さな赤い三角形が表示されます。この三角形は、そのセルにコメントが含まれていることを示すインジケーターとして機能します。しかし、企業のブランドカラーに合わせたり、コメントを分類したり、共有ワークブック上でコメントをより明確に目立たせたりするために、このインジケーターの色をカスタマイズしたいと思う方も多いでしょう。Excel にはコメントインジケーターの色を直接変更する組み込み機能はありませんが、本記事では VBA コードを使った実用的な回避策をご紹介します。

コメントインジケーターの色を変更すると、共同作業環境や多数のコメントを含む複雑なスプレッドシートの管理が特にスムーズになります。インジケーターをカスタマイズすることで、フィードバックを視覚的に整理したり、コメントの種類を明確に区別したり、レビューをより簡単に行えるようワークシートをパーソナライズしたりできます。以下では、この回避策の詳細な手順と注意事項を説明します。さらに、トラブルシューティングのヒント、VBA によるカスタマイズ方法、および VBA が制限された環境での代替手段もご紹介します。

VBA コードでコメントインジケーターの色を変更する

VBA コードでコメントインジケーターの色を変更する

現在、Excel にはコメントインジケーターの三角形の色をユーザーが簡単に変更できる直接的な機能は備わっていません。ただし、VBA を活用すれば、デフォルトのインジケーター上に任意の色の三角形図形を重ねることで、見た目を自由にカスタマイズできます。この手法は、アクティブなワークシート上のすべてのコメント付きセルに一括適用可能です。ただし、これはネイティブなコメントインジケーターの色を実際に変更するものではなく、選んだ色の三角形で視覚的に上書きするだけである点にご注意ください。

素晴らしい！Excel でChrome、Edge、Firefox、Safari のような効率的な Tabs をご利用いただけます！
毎日数千回のマウスクリックを削減し、50% もの時間を節約できます！

この方法は、手作業による煩雑な書式設定なしにコメントインジケーターを視覚的に際立たせたいユーザーに最適です。ワークブックを頻繁に共有する場合や、コメントを種類や作成者ごとに色分けしたい場合は、VBA を使えば必要な視覚的カスタマイズが実現できます。VBA のメリットは、多数のセルに対して素早く変更を適用できることですが、マクロの許可が必要であり、Excel のネイティブ機能ではないというデメリットがあります。また、シート保護が有効になっている場合、VBA コードを実行する前にシートの保護を解除する必要があることがあります。

1。コメントインジケーターの色をカスタマイズしたいワークシートを開いてください。

2。ALT + F11キーを押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。このショートカットはどのExcel ワークブックでも使え、VBA エディター環境をすぐに起動できます。

3。VBA ウィンドウで、挿入＞標準モジュールをクリックして新しいモジュールを作成し、次の VBA コードをモジュールウィンドウにコピー＆ペーストしてください。このコードはコメントを検出し、各インジケーター上に色付きの三角形を描画します。

VBA コード：コメントインジケーターの色を変更するアクティブなワークシート

Sub CoverCommentIndicator()
'Update 20141110
Dim pWs As Worksheet
Dim pComment As Comment
Dim pRng As Range
Dim pShape As Shape
Set pWs = Application.ActiveSheet
wShp = 6
hShp = 4
For Each pComment In pWs.Comments
  Set pRng = pComment.Parent
  Set pShape = pWs.Shapes.AddShape(msoShapeRightTriangle, pRng.Offset(0, 1).Left - wShp, pRng.Top, wShp, hShp)
  With pShape
    .Flip msoFlipVertical
    .Flip msoFlipHorizontal
    .Fill.ForeColor.SchemeColor = 12
    .Fill.Visible = msoTrue
    .Fill.Solid
    .Line.Visible = msoFalse
  End With
Next
End Sub

4。コードを貼り付けたら、F5キーを押す（または VBA ウィンドウの「実行」ボタンをクリック）してコードを実行してください。これにより、アクティブなワークシート上のすべてのコメントインジケーターが、指定された色の三角形で視覚的に覆われます（下図参照）。

注意事項とヒント：

1。コード内では、三角形の色が.Fill.ForeColor.SchemeColor = 12で設定されています。12を別の色コードに変更すれば、好みの色に簡単にカスタマイズできます。たとえば、10に変更すると、異なる色合いが適用されます。利用可能なカラースキーム番号については、Excel 公式のColorIndex ドキュメントをご確認ください。

2。カスタム三角形はセルの隅に固定されますが、セルのサイズ変更や移動により、その大きさや位置が変わることがあります。最良の結果を得るには、コードを実行する前にセルのサイズを確定させるか、シートのサイズを変更した後は再度 VBA コードを実行してください。

3。実際のコメントを削除せずに、色付きの三角形だけを即座にすべて削除したい場合は、以下の VBA コードを実行してください。このコードは、前述のスクリプトによって追加された三角形のみを削除します。デフォルトの赤いインジケーターに戻したり、再度色を調整したりする際に便利です。

VBA コード：コメントインジケーター上に重ねた三角形を削除する

Sub RemoveIndicatorShapes()
'Update 20141110
Dim pWs As Worksheet
Dim pShape As Shape
Set pWs = Application.ActiveSheet
For Each pShape In pWs.Shapes
    If Not pShape.TopLeftCell.Comment Is Nothing Then
      If pShape.AutoShapeType = msoShapeRightTriangle Then
        pShape.Delete
      End If
    End If
Next
End Sub

削除用コードを実行するには、上記と同じ手順に従ってください。VBA エディターを開き、モジュールを挿入してコードを貼り付け、F5キーで実行します。これにより、コメントデータはそのまま残り、インジケーターの図形のみが削除されます。

いずれかのスクリプトを実行中にエラーが発生した場合は、Excel の設定でマクロが有効になっていること、シートが保護されていないこと、およびワークシート上のオブジェクトがロックされていないことを改めてご確認ください。また、変更を元に戻したい場合に備え、VBA を実行する前には必ず作業内容を保存してください。

組織の方針によりマクロの実行が制限されている場合や、VBA を使用したくない場合は、コメント付きセルを視覚的に識別するために条件付き書式でセルを強調表示することをご検討ください。ただし、この方法では三角形自体の色は変更されません。別の回避策として、コメント付きセルを手動で図形やアイコンを使ってマークする方法もございます。

Excel ですべてのコメントを強調表示するにはどうすればよいですか？

Excel ですべてのコメントとコメントインジケーターを表示または非表示にするには、どうすればよいですか？

最高の Office 業務効率化ツール

🤖	KUTOOLS AI アシスタント：次に基づいてデータ分析を革新します：インテリジェント実行｜コード生成｜カスタム数式作成｜データ分析とチャート生成｜拡張機能呼び出し…
	人気の機能：検索・ハイライト、または重複をマーキング｜空白行を削除する｜データを失うことなく列の結合またはセルを｜数式を使用しない四捨五入...
	スーパー LOOKUP：複数条件 VLookup ｜複数値 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 でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
日々の生産性を50％も向上させ、毎日数百回ものマウスクリックを削減します！