ExcelVBAで特定条件の塗りつぶし方法

質問

例えばB1:B100行に色々な果物名の文字列が入っているとします。
そこで、「みかん」が入ってるセル背景をオレンジ色、「りんご」が入ってるセルは赤色に、
みたいな事をVBAでやりたいのですがどうすれば良いでしょうか。

回答No.1

xls88 · ベストアンサー

総当たりでやってみます。
（例1）
Dim rng As Range
Dim c As Range
Dim idx As Variant

Set rng = Range("B1:B100")
For Each c In rng
Select Case c.value
Case "りんご": idx = 3
Case "オレンジ": idx = 46
Case Else: idx = xlNone
End Select
c.Interior.ColorIndex = idx
Next c

お礼

素晴らしい。思い通りの事ができました。
回答ありがとうございました。