セルの背景色の置き換え（Microsoft Excel）
Jozefは、作成したワークシートの特定のセルの背景色を変更する方法を探しています。たとえば、彼はすべての赤い背景セルを見つけてそれらを青に変更したり、すべての黄色の背景を見つけてそれらを青に変更したりしたいと考えています。 Jozefは、これを行う簡単な方法があるかどうか疑問に思います。
セルの背景色を手動で変更できることはかなり明白なので、変更を行うためにそのオプションに入る必要はありません。あなたがする必要があるのは、色の変更を行うために、検索と置換ツールなどの簡単なツールを使用することです。次の手順に従ってください：
。 Ctrl + Hを押して、[検索と置換]ダイアログボックスの[置換]タブを表示します。
。 [オプション]ボタンをクリックして、ダイアログボックスを展開します。 （図1を参照）
。 [検索する文字列]ボックスの右側にある[フォーマット]ボタンをクリックします。 Excelに[形式の検索]ダイアログボックスが表示されます。
。 [塗りつぶし]タブが選択されていることを確認します。 （図2を参照）
。ダイアログボックスのコントロールを使用して、置き換える背景色を指定します。
。 [OK]をクリックします。
。 [置換]ボックスの右側にある[フォーマット]ボタンをクリックします。
Excelは、[フォーマットの置換]ダイアログボックスを表示します。
。 [塗りつぶし]タブが選択されていることを確認します。
。ダイアログボックスのコントロールを使用して、セルを変更するときに使用した背景色を指定します。
。 [OK]をクリックします。
。 [すべて置換]をクリックします。
同じ色を何度も変更する必要がある場合（たとえば、常に赤から青に変更する場合）、マクロを使用して変更を行うことをお勧めします。次の例は、ショートカットキーに割り当てたり、クイックアクセスツールバーに追加して、すばやく使用できるようにすることができます。
Sub ChangeColor() Dim rCell As Range If Selection.Cells.Count = 1 Then MsgBox "Select the range to be processed." Exit Sub End If For Each rCell In Selection If rCell.Interior.Color = RGB(255, 0, 0) Then 'red rCell.Interior.Color = RGB(0, 0, 255) 'blue End If Next rCell End Sub
注：
このページ（または_ExcelTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。
_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。
このヒント（9043）は、Microsoft Excel 2007、2010、2013、2016、2019、およびOffice 365のExcelに適用されます。Excelの古いメニューインターフェイス用のこのヒントのバージョンは、次の場所にあります。
linkセルの背景色の置き換え。