KutoolsforOffice— 1 つのソリューション、5 つの強力なツール。少ない労力で大きな成果。

Excel でセル塗りつぶし色の色に基づいてテキストを自動入力するための数式またはユーザー定義関数を使用する

著者Sun変更日

赤または緑で塗りつぶされたセルのリストがあると仮定します。このとき、セルの塗りつぶし色に応じてテキストを自動的に入力したいとします。たとえば、以下のスクリーンショットのように、赤で塗りつぶされたセルには「Yes」、緑のセルには「No」、赤でも緑でもないセルには「Neither」と入力します。
セルの塗りつぶし色に基づいてテキストを自動入力

セル塗りつぶし色の色に基づいてテキストを自動入力するための数式を使用する

セル塗りつぶし色の色に基づいてテキストを自動入力する便利なツールを使用する

別の列にあるセル塗りつぶし色の色に基づいてテキストを自動入力するためのユーザー定義関数を使用する

サンプルファイル

セル塗りつぶし色の色に基づいてテキストを自動入力するための数式を使用する

セルの塗りつぶし色に基づいて特定のテキストを自動入力する数式を使うには、まず名前を定義する必要があります。

1。セル（例：セル A1）を選択し、数式タブの名前の定義を、定義された名前グループ内でクリックします。
[数式] > [名前の定義] をクリック

2。「新しい名前」ダイアログボックスで、名前ボックスにMycolorと入力し、次の数式を入力します。

=IF(GET.CELL(38,formula!A1)=10,「No」,IF(GET.CELL(38,formula!A1)=3,「Yes」,「Neither」))

「参照先」テキストボックスに値を入力し、OKをクリックします。
数式をコピーして [新しい名前] ダイアログボックスに貼り付け

Formula!A1は、名前が「formula」のシートにあるセル A1 を指しており、10および3は色コードです。必要に応じて、これらを自由に変更できます。詳しくは、次のサイトをご参照ください：http://dmcritchie.mvps.org/excel/colors.htm

これで、色が塗られたセルに次の数式を入力できます。

=Mycolor

Enterキーを押すと、セルの塗りつぶし色に基づいたテキストが返されます。
結果を取得するための数式を入力

セル塗りつぶし色の色に基づいてテキストを自動入力する便利なツールを使用する

名前を定義する方法では、毎回セルに数式を再入力しなければならず、手間がかかります。そこで、Kutools for Excel（Excel ツールのコレクション）に搭載された類似の書式を持つセルを選択する機能を使えば、特定の背景色を持つすべてのセルを瞬時に選択し、一括で任意のテキストを入力できます。

Kutools for Excelは300 以上の高度な機能を提供し、複雑な作業を効率化して、創造性と生産性を高めます。AI 機能と統合されたKutools は、正確にタスクを自動化し、データ管理を簡単にします。Kutools for Excel の詳細情報。。。         無料トライアル。。。

無料でインストールKutools for Excel をインストール後、以下のように操作してください。

1。使用していない2 つのセルに、それぞれ背景色を塗りつぶします。たとえば、青色のセルに「Go」、オレンジ色のセルに「Stop」と入力する場合、セル A1 と B1 にそれぞれオレンジ色と青色の背景を設定します。
セルに背景色を塗りつぶし

2。次に、塗りつぶし色に基づいてテキストを入力したいセルを選択し、Kutools > 選択 > 類似の書式を持つセルを選択するをクリックします。
Kutools の [書式付きセルを選択] 機能をクリック

3。「類似の書式を持つセルを選択する」ダイアログボックスで、セルから書式を選択ボタンをクリックし、表示されるダイアログで、検索したい色で塗りつぶされたセル A1 を選択してください。
[セルから書式を選択] ボタンをクリックし、基準となる色が付いたセルを選択

OKをクリックしてメインダイアログに戻り、「塗りつぶし」チェックボックス以外のすべてのチェックを外し、「空白セルを無視する」オプションのチェックも外してください。OK>はいをクリックすると、青色で塗りつぶされたすべてのセルが選択されます。
指定した色で塗りつぶされたすべてのセルが選択されました指定した色で塗りつぶされたすべてのセルが選択されました

4。これで、数式バーに目的のテキストを入力し、Ctrl + Enterキーを押すだけで、選択したすべてのセルに同じテキストを一括で入力できます！
特定のテキストを入力し、Ctrl + Enter キーを押して選択されたすべてのセルに入力

別の列にあるセル塗りつぶし色の色に基づいてテキストを自動入力するためのユーザー定義関数を使用する

別の列のセルの塗りつぶし色に基づいてテキストを入力したい場合は、ユーザー定義関数をご利用いただけます。

1。Alt + F11キーを押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

2。ウィンドウで挿入＞標準モジュールをクリックして空のスクリプトを挿入し、以下のコードをコピー＆ペーストしてください。

VBA：別のセルの塗りつぶし色に基づいてセルを塗りつぶす

Function GetRangeColor(xRg As Range)
'UpdatebyKutools20191125
    If (xRg.Count > 1) Then
       GetRangeColor = "Only work for single cell"
    End If
    Select Case xRg.Interior.Color
    Case RGB(255, 0, 0)
        GetRangeColor = "Play"
    Case RGB(0, 255, 0)
        GetRangeColor = "Stop"
    Case Else
      GetRangeColor = "Neither"
    End Select
End Function

コード中のRGB(255, 0, 0)およびRGB(0, 255, 0)は色コードです。必要に応じて自由に変更できます。詳しくは、次のサイトをご参照ください：http://dmcritchie.mvps.org/excel/colors.html

3。このコードを保存してウィンドウを閉じ、シートに戻った後、セルに次の数式を入力します。

=GetRangeColor(A1)

Enterキーを押した後、フィルハンドルをドラッグしてこの数式を他のセルにも適用します。

A1 は、塗りつぶし色に基づいてテキストを入力するセルです。
塗りつぶし色に基づいてテキストを入力する数式を入力

サンプルファイル

サンプルファイルをダウンロードするにはクリックしてください

その他の操作（記事）

Excel でグループごとに交互に行の色を変更するには？
Excel で行を交互に着色するのは多くの人にとって簡単かもしれませんが、以下のスクリーンショットのように、列 A の値が変わるたびに「グループ単位」で行を交互に着色したことはありますか？この記事では、Excel でグループごとに交互に行の色を変更する方法をご紹介します。

複数のセルにグラデーションで色を適用するには？
Excel では、セルや複数のセルに背景色を簡単に塗りつぶせますが、次のようなスクリーンショットのように、グラデーションで塗りつぶしたい場合もあります。では、Excel でセル内または複数のセルにわたってグラデーション効果を適用するには、どうすればよいでしょうか？

Excel で縞模様の行や列に色を付ける方法は？
この記事では、Excel で縞模様の行や列に色を適用する3 つの方法をご紹介します。以下の手順に従ってください。

Excel で奇数行・偶数行（交互の行／列）をシェーディングするには？
ワークシートをデザインする際、多くの人が視覚的に見やすくするために、奇数行または偶数行（交互の行／列）にシェーディングを施します。この記事では、Excel で奇数行・偶数行（または列）をシェーディングする2 つの方法をご紹介します。

  • スーパー数式バー（複数行のテキストや数式を簡単に編集可能）；リーディングレイアウト（多数のセルを簡単に読み書き可能）；フィルタリング範囲に貼り付け…
  • 結合セル／行／列とデータ保持；セルの分割コンテンツ；重複行を結合して合計／平均を計算…重複の入力を防止セル；範囲を比較…
  • 重複または一意の行を選択；空白行を選択（すべてのセルが空）；スーパー検索とあいまい検索多数のワークブック内で実行；ランダム選択…
  • 正確にコピー複数セルを数式参照を変更せずに移動；複数シートへの参照を自動作成；箇条書きの挿入、チェックボックスなど…
  • お気に入りの数式を保存して素早く挿入、範囲、チャート、画像；セルの暗号化パスワード付きで保護；メーリングリストの作成メール送信など…
  • テキストの抽出、テキストの追加、特定の位置の文字を削除、スペースを削除；データページ統計を作成・印刷；セルの内容とコメントを相互変換…
  • スーパーフィルター（フィルタースキームを保存し、他のシートに適用可能）；高度なソート月／週／日、頻度などでグループ化；特殊フィルタ太字、イタリック体などで強調表示…
  • ワークブックとワークシートを統合；テーブルのマージをキーカラムに基づいてマージ；データの分割を複数のシートに分割；xls、xlsx、PDF を一括変換…
  • PivotTable を以下でグループ化：週番号、曜日など…ロック解除済みセルと選択範囲をロックを異なる色で表示；数式／名前を持つセルをハイライト表示…
kte tab 201905
  • Word、Excel、PowerPoint でタブを使った編集と閲覧を有効化。Publisher、Access、Visio、Project でもご利用いただけます。
  • 複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
  • 生産性が50％向上し、毎日数百回のマウスクリックを削減できます！
officetab bottom