Excelの列には、その行のカテゴリを表すテキスト値が含まれています
各値の条件付き書式を手動で作成せずに、異なる値を持つすべてのセルを一意の色で書式設定する方法はありますか？
例。カテゴリがbedroom, bedroom, bathroom, kitchen, living roomの場合、bedroomを含むすべてのセルを特定の色にしたり、bathroomを別の色にしたりしたいと思います
23 None 2011-07-27
ベストアンサー
- フォーマットしたい列を空のワークシートにコピーします
- 列を選択し、リボンの「データ」タブの「データツール」パネルから「重複を削除」を選択します
- 値や文字列のユニークなリストの右側には、数字のユニークなリストを作成します。例えば、6つのカテゴリに色をつける場合、2番目の列は1-6だけにします。これがルックアップテーブルです
- 新しい列では、
VLOOKUPを使用して、テキスト文字列を新しい色にマッピングします - 新しい数値列に基づいて条件付き書式設定を適用します
6 Eric 2015-07-24
以下のスクリーンショットはExcel 2010のものですが、2007のものと同じはずです
セルを選択してConditional Formatting | Highlight Cells Rules | Text that Containsへ
UPDATE: ワークシート全体に条件付き書式設定を適用するには、すべてのセルを選択してから条件付き書式設定を適用します
(画像をクリックすると拡大します)
今ちょうどあなたがしたい書式設定を選択します
11 Nicu Zecheru 2011-07-27
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
2 Karmo 2016-09-02
自動で色を選択する条件付き書式設定は、Microsoft Excelの機能ではありません
ただし、カテゴリ列の値に基づいて個別に行全体に色を付けることができます
- 条件付き書式設定で新しい書式設定ルールを作成します
- 式を使用して、どのセルをフォーマットするかを決定します
- の式を用いています。
=$B1="bedroom"（カテゴリー欄をBとする） - フォーマットを設定します（塗りつぶしの色を使用）
- すべてのセルにルールの書式設定を適用します
1 Steven 2015-07-07
