Excel: フォントの色が赤の場合、特定のテキストを返すか、その他の操作を行う
以下のスクリーンショットのように、別のセルのフォントの色が赤の場合、特定のテキストを返すにはどうすればよいですか? この記事では、Excel で赤いフォントに基づいていくつかの操作を行うためのコツを紹介します。
フォントの色が赤の場合、別のセルに特定のテキストを返す
別のセルのフォントの色が赤の場合、特定のテキストを返すには、次の手順を実行してください:
1. Alt+ F11 キーを同時に押して、Microsoft Visual Basic for Applications ウィンドウを開きます。
2. 次に、挿入 > モジュール をクリックし、以下の VBA コードをウィンドウにコピーして貼り付けます。
VBA コード: フォントの色が赤の場合、特定のテキストを返す
Function FontColorisRed(Rng As Range)
'Updateby ExtendOffice
Application.Volatile
If Rng.Font.ColorIndex = 3 Then
FontColorisRed = "Fail"
Else
FontColorisRed = "Pass"
End If
End Function
3. 次に、コードウィンドウを閉じ、この数式を入力します: =FontColorISRed(B2)、そして、フィルハンドルを下にドラッグして他の結果を得ます。スクリーンショットをご覧ください:

Kutools AIでExcelの魔法を解き放つ
- スマート実行: セル操作、データ分析、グラフ作成を簡単なコマンドで行います。
- カスタム数式: ワークフローを合理化するための独自の数式を生成します。
- VBAコーディング: 簡単にVBAコードを作成し実装します。
- 数式の解釈: 複雑な数式を簡単に理解できます。
- テキスト翻訳: スプレッドシート内の言語障壁を取り除きます。
フォントの色が赤の場合、セルをハイライトする
赤いフォントに基づいてセルをハイライトしたい場合、次のようにしてください:
1. Alt+ F11 キーを同時に押して、Microsoft Visual Basic for Applications ウィンドウを開きます。
2. 次に、挿入 > モジュール をクリックし、以下の VBA コードをウィンドウにコピーして貼り付けます。
VBA コード: フォントの色が赤の場合、セルをハイライトする
Function HighlightRedFont(pRg As Range) As Boolean
'Updateby ExtendOffice
Dim xRg As Range
Dim xBol As Boolean
xBol = False
For Each xRg In pRg
If xRg.Font.Color = vbRed Then
xBol = True
End If
Next
HighlightRedFont = xBol
End Function
3. そして、コードウィンドウを閉じ、ホーム > 条件付き書式設定 > 新しいルール をクリックします。スクリーンショットをご覧ください:
4. 表示された新しい書式設定ルールダイアログボックスで、次の操作を行います:
- 「書式を決定するために使用する数式を選択」リストボックスで「数式を使用して、どのセルを書式設定するかを決定」をクリックします;
- この数式 =highlightredfont(B2) を「 この数式が真である場合の値を書式設定」テキストボックスに入力します;
- 次に、書式ボタンをクリックします。
5. 書式設定セルダイアログボックスで、塗りつぶしタブの下で、セルをハイライトする色を選択します。スクリーンショットをご覧ください:
6. そして、 OK > OK をクリックしてダイアログボックスを閉じます。これで、赤いフォントを持つセルがすぐにハイライトされます。スクリーンショットをご覧ください:
フォントの色が赤の場合、フォントの色を変更する
場合によっては、赤いフォントを別のフォントの色に変更したいことがあります。ここでは、それを達成するための2つの方法について説明します。
フォントの色が赤の場合、「検索と置換」機能を使ってフォントの色を変更する
赤いフォントの色を別の色に変更するには、Excel の「検索と置換」機能が役立ちます。次の手順で行ってください:
1. フォントの色を変更したいデータ範囲を選択し、Ctrl + H キーを押して「検索と置換」ダイアログボックスを開きます。開いたダイアログで、オプション>> ボタンをクリックします。スクリーンショットをご覧ください:
2. 拡張されたダイアログボックスで、次の操作を行います:
- 「検索内容」と「置換後」のボックスは空白のままにしておきます;
- 「検索内容」フィールドの右側で、書式 > セルから書式を選択 を選択し、赤いフォントのあるセルをクリックします;
- 次に、「置換後」フィールドの右側で、 書式 > 書式 を選択して「置換書式」ダイアログに進みます。
3. 「置換書式」ダイアログで、フォントタブの下で、色のドロップダウンリストから変更したい色を選択します。スクリーンショットをご覧ください:
4. 次に、OK をクリックして「置換書式」ダイアログを閉じ、今度は「検索と置換」ダイアログボックスで「すべて置換」ボタンをクリックします。すると、赤いフォントを持つすべてのセルが指定したフォントの色に置き換えられます。スクリーンショットをご覧ください:
便利な機能を使って、フォントの色が赤の場合、フォントの色を変更する
Kutools for Excel をお持ちの場合、その「類似の書式を持つセルを選択する」機能を使用して、赤いフォントを持つセルを選択し、必要に応じてできるだけ早くフォントの色を変更することができます。
Kutools for Excel をインストールした後、次のようにしてください:
1. 使用したいデータ範囲を選択し、次に Kutools > 選択 > 類似の書式を持つセルを選択 をクリックします。スクリーンショットをご覧ください:
2. 「類似の書式を持つセルを選択」ダイアログボックスで、セルから書式を選択 ボタンをクリックします。そして、赤いフォントのあるセルを選択します。このセルのすべての属性が下のリストボックスに表示されます。基準となるセルとまったく同じ書式を持つすべてのセルを選択したい場合は、すべての属性オプションをチェックしてください。赤いフォントのみを持つセルを選択したい場合は、フォントの色以外のすべての属性のチェックを外してください。スクリーンショットをご覧ください:
3. 次に、OK ボタンをクリックし、その後に表示されるプロンプトボックスで、はい をクリックします。スクリーンショットをご覧ください:
4. 赤いフォントを持つすべてのセルが一度に選択され、次に、必要に応じて赤いフォントを変更するフォントの色を指定できます。スクリーンショットをご覧ください:
最高のOffice生産性ツール
Kutools for Excel は、ほとんどの問題を解決し、生産性を80%向上させます。
- スーパー数式バー(複数行のテキストや数式を簡単に編集可能); 閲覧レイアウト(多数のセルを簡単に読み取り・編集可能); フィルター範囲への貼り付け...
- セル/行/列を結合してデータを保持; セル内容を分割; 重複する行を統合して合計/平均を計算... 重複セルを防止; 範囲を比較...
- 重複または一意の行を選択; 空白行を選択(すべてのセルが空); スーパー検索および多くのワークブックでのあいまい検索; ランダム選択...
- 数式参照を変更せずに複数のセルを正確にコピー; 複数のシートへの自動参照作成; 箇条書き、チェックボックスなどを挿入...
- お気に入りの数式、範囲、グラフ、画像を素早く挿入; パスワードでセルを暗号化; メーリングリストを作成してメールを送信...
- テキストの抽出、テキストの追加、特定の位置の文字を削除、スペースを削除; ページング小計の作成と印刷; セルの内容とコメント間の変換...
- スーパーフィルター(他のシートにフィルタースキームを保存して適用); 月/週/日ごとの高度な並べ替え、頻度など; 太字、斜体による特殊フィルタリング...
- ワークブックとワークシートを統合; 主キーカラムに基づいてテーブルをマージ; データを複数のシートに分割; xls、xlsx、PDFの一括変換...
- ピボットテーブルのグループ化(週番号、曜日など)... ロックされたセルとロックされていないセルを異なる色で表示; 数式/名前を持つセルをハイライト...

- Word、Excel、PowerPoint、Publisher、Access、Visio、Projectでタブ付き編集と閲覧を有効化します。
- 新しいウィンドウではなく、同じウィンドウ内の新しいタブで複数のドキュメントを開き、作成します。
- 生産性を50%向上させ、毎日数百回のマウスクリックを削減します!
