☰

テキスト値に基づいてセルに色を付ける

tag-icon • tag-icon microsoft-excel microsoft-excel-2007 formatting conditional-formatting
テキスト値に基づいてセルに色を付ける

Excel の列には、その行のカテゴリを表すテキスト値が含まれています。

各値に対して条件付き書式を手動で作成せずに、異なる値を持つすべてのセルを一意の色で書式設定する方法はありますか?

例: カテゴリがある場合、そのカテゴリを含むすべてのセルを特定の色、別の色などにbedroom, bedroom, bathroom, kitchen, living room設定したいとします。bedroombathroom

答え1

  1. 書式設定する列を空のワークシートにコピーします。
  2. 列を選択し、リボンの「データ」タブの「データ ツール」パネルから「重複の削除」を選択します。
  3. 一意の値または文字列のリストの右側に、一意の数値のリストを作成します。たとえば、色を付けるカテゴリが 6 つある場合、2 番目の列は 1 ～ 6 のみになります。これが参照テーブルです。
  4. 新しい列で、を使用してVLOOKUPテキスト文字列を新しい色にマッピングします。
  5. 新しい数値列に基づいて条件付き書式を適用します。

答え2

以下のスクリーンショットは Excel 2010 のものですが、2007 でも同じはずです。

セルを選択してConditional Formatting | Highlight Cells Rules | Text that Contains

ワークシート全体に条件付き書式を適用するには、すべてのセルを選択してから条件付き書式を適用します。

ここに画像の説明を入力してください
（画像をクリックすると拡大します）

次に、必要な書式を選択します。

ここに画像の説明を入力してください

答え3

から：http://www.mrexcel.com/forum/excel-questions/861678-highlighting-rows-random-colors-if-there-duplicates-one-column.html#post4185738

Sub ColourDuplicates()
Dim Rng As Range
Dim Cel As Range
Dim Cel2 As Range
Dim Colour As Long




Set Rng = Worksheets("Sheet1").Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
Rng.Interior.ColorIndex = xlNone
Colour = 6
For Each Cel In Rng


If WorksheetFunction.CountIf(Rng, Cel) > 1 And Cel.Interior.ColorIndex = xlNone Then
Set Cel2 = Rng.Find(Cel.Value, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False, SearchDirection:=xlNext)
    If Not Cel2 Is Nothing Then
        Firstaddress = Cel2.Address
        Do
        Cel.Interior.ColorIndex = Colour
        Cel2.Interior.ColorIndex = Colour
            Set Cel2 = Rng.FindNext(Cel2)

        Loop While Firstaddress <> Cel2.Address
    End If




Colour = Colour + 1


End If
Next


End Sub

答え4

条件付き書式による自動色選択は、Microsoft Excel の機能ではありません。

ただし、カテゴリ列の値に基づいて行全体を個別に色分けすることはできます。

  1. 条件付き書式で新しい書式ルールを作成します。
  2. 数式を使用して、書式設定するセルを決定します。
  3. 式: =$B1="bedroom"(カテゴリ列が B であると仮定)
  4. 書式を設定する（塗りつぶし色を使用）
  5. すべてのセルにルールの書式を適用する

関連情報