メインコンテンツへスキップ

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

背景色が赤または緑で塗りつぶされたセルのリストがあるとすると、セルで塗りつぶされた色に基づいてテキストを塗りつぶしたいとします。 たとえば、以下のスクリーンショットに示すように、セルを赤で塗りつぶし「はい」、セルを緑で塗りつぶし「いいえ」、赤でも緑でもない、テキスト「どちらでもない」を入力します。
色1に基づいてテキストを塗りつぶすドキュメント

数式を使用して、セルで塗りつぶされた色に基づいてテキストを自動塗りつぶします

便利なツールを使用して、セルで塗りつぶされた色に基づいてテキストを自動入力します

定義された関数を使用して、別の列のセルで塗りつぶされた色に基づいてテキストを自動入力します

サンプルファイル


数式を使用して、セルで塗りつぶされた色に基づいてテキストを自動塗りつぶします

数式を使用して、セルに塗りつぶされた色に基づいて特定のテキストをセルに自動塗りつぶすには、最初に名前を定義する必要があります。

1.セルA1を想定してセルを選択し、をクリックします。 > 名前を定義する セクションに 定義された名前 グループ。
色2に基づいてテキストを塗りつぶすドキュメント

2。 の中に 新しい名前 ダイアログ、タイプ マイカラー セクションに 名前 ボックスに入力し、この式を入力します

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

〜に を参照する テキストボックス。 クリック OK.
色3に基づいてテキストを塗りつぶすドキュメント

Formula!A1 数式という名前のシートのセルA1を示します。 10 & 3 はカラーインデックスです。必要に応じて変更できます。 その他のカラーインデックスについては、次のサイトを参照してください。 http://dmcritchie.mvps.org/excel/colors.htm

これで、色で塗りつぶされたセルに、この数式を入力できます

=マイカラー

イベント 入力します キーを押すと、セルで塗りつぶされた色に基づいてテキストが返されます。
色4に基づいてテキストを塗りつぶすドキュメント


便利なツールを使用して、セルで塗りつぶされた色に基づいてテキストを自動入力します

名前の定義方法では、面倒なたびにセルに数式を再入力する必要があります。 ここで Kutools for Excel、Excelツールのコレクション、その フォーマット付きのセルを選択 ユーティリティは、XNUMXつの背景色ですべてのセルをすばやく選択し、指定したテキストをまとめて入力できます。

Kutools for Excel, 以上で 300 便利な機能は、あなたの仕事をより簡単にします。 

無料インストール Kutools for Excel、以下のようにしてください:

1.使用しない1つのセルで、背景色を個別に入力します。 この場合、セルに「移動」というテキストを青色で入力し、「停止」というテキストをオレンジ色でセルに入力するとします。セルA1とBXNUMXにオレンジと青色を入力します。
色5に基づいてテキストを塗りつぶすドキュメント

2.次に、塗りつぶされた色に基づいてテキストを入力するセルを選択し、をクリックします クツール > 選択 > フォーマット付きのセルを選択.
色6に基づいてテキストを塗りつぶすドキュメント

3。 の中に フォーマット付きのセルを選択 ダイアログ、クリック セルからフォーマットを選択 ボタンをクリックし、ポップアウトダイアログで、セルを検索する色で塗りつぶされたA1を選択します。
色7に基づいてテキストを塗りつぶすドキュメント

OK メインダイアログに戻るには、を除くすべてのチェックを外します 埋める チェックボックスをオンにして、チェックボックスをオフにします 空白のセルを無視する オプション。 クリック Ok > 有り 青い色で塗りつぶされたすべてのセルを選択します。
色8に基づいてテキストを塗りつぶすドキュメント 色9に基づいてテキストを塗りつぶすドキュメント

4.次に、数式バーに特定のテキストを入力し、を押します。 Ctrl + Enter 選択したすべてのセルに同じテキストを入力するには、キーを押します。
色10に基づいてテキストを塗りつぶすドキュメント


定義された関数を使用して、別の列のセルで塗りつぶされた色に基づいてテキストを自動入力します

別の列のセルで塗りつぶされた色に基づいてテキストを塗りつぶしたい場合は、define関数を使用できます。

1。 押す Alt + F11 を有効にするためのキー アプリケーション向け Microsoft Visual Basic 窓。

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)

イベント 入力します キーを押してから、塗りつぶしハンドルをセル上にドラッグして、この数式を塗りつぶします。

A1は、塗りつぶされた色に基づいてテキストを塗りつぶしたいセルです。
色11に基づいてテキストを塗りつぶすドキュメント


サンプルファイル

クリックしてサンプルファイルをダウンロード


その他の業務(記事)

Excelでグループに基づいて行の色を変更するにはどうすればよいですか?
Excelでは、ほとんどの場合、XNUMX行おきに色を付ける方が簡単かもしれませんが、列の値の変更に基づいて行を交互に色付けしようとしたことがありますか?次のスクリーンショットに示すように列A、この記事では、その方法について説明します。 Excelのグループに基づいて行の色を変更します。

複数のセルにカラーグラデーションを適用するにはどうすればよいですか?
Excelでは、XNUMXつのセルまたは複数のセルに背景色を簡単に塗りつぶすことができますが、次のスクリーンショットに示すように、色をグラデーションで塗りつぶす必要がある場合があります。ExcelでXNUMXつのセルまたは複数のセルにまたがる色のグラデーションを取得するにはどうすればよいですか。

Excelでカラーバンドの行または列を適用するにはどうすればよいですか?
この記事では、Excelでカラーバンドの行または列を適用するXNUMXつの方法を紹介します。 次のようにしてください。

Excelで奇数または偶数(代替)の行/列にシェーディングを適用するにはどうすればよいですか?
ワークシートを設計する際、多くの人は、ワークシートをより視覚的にするために、奇数または偶数(代替)の行または列に陰影を付ける傾向があります。 この記事では、Excelで奇数または偶数の行/列に陰影を付けるXNUMXつの方法を紹介します。


  • スーパーフォーミュラバー (複数行のテキストと数式を簡単に編集できます); 読書レイアウト (多数のセルを簡単に読み取って編集する); フィルター範囲に貼り付け...
  • セル/行/列をマージする およびデータの保持。 分割セルコンテンツ; 重複する行と合計/平均を組み合わせる...重複セルを防止します。 範囲を比較する...
  • [複製]または[一意]を選択します 行; 空白行を選択 (すべてのセルは空です); スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
  • 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
  • お気に入りの数式をすばやく挿入する、範囲、チャート、写真; セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
  • スーパーフィルター (フィルタースキームを保存して他のシートに適用します); 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
  • ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
  • ピボットテーブルのグループ化 週番号、曜日など... ロック解除された、ロックされたセルを表示する さまざまな色で; 式/名前を持つセルを強調表示する...
kteタブ201905
  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
officetab下部
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations