VBAの指定範囲での指定文字の色変更についてご教示ください

VBAの指定範囲での特定文字の色変更についてご教示をお願い致します。
添付画像を例とします。
A～Cセルまでの範囲で「みかん」=オレンジ、「りんご」=赤、「ぶどう」=紫。
とする為にはFont.colorをどの様に組み合わせればよろしいのでしょうか？

よろしくお願い致します。

No.1 ベストアンサー 回答者： runix2007 回答日時： 2017/05/28 21:20

Sub sample()

For i = 1 To 3
For j = 1 To 3
Select Case Cells(i, j)
Case "みかん"
Cells(i, j).Font.Color = RGB(255, 55, 0)
Case "りんご"
Cells(i, j).Font.Color = RGB(255, 0, 0)
Case "ぶどう"
Cells(i, j).Font.Color = RGB(128, 0, 128)
Case Else
Cells(i, j).Font.Color = RGB(0, 0, 0)
End Select
Next
Next
End Sub

この回答へのお礼

runix2007様回答ありがとうございます。
セルに出力する事が出来ました。
勉強させていただきます。

この度はありがとうございました。

お礼日時：2017/05/29 13:33