|
だいだい さん、こんばんわ。
>Sub InteriorColor()
>
>Dim i As Integer 'カウント用
>
>For i = 3 To 20
>
> Select Case Cells(i, "D").Value 'D列に曜日がリストしてある
この条件では"SUN"以外全部ヒット
> Case Is <> "SUN"
> Cells(i, "D").Interior.Color = RGB(23, 12, 132) '適当な色
この条件では"MON"以外、ただし"SUN"以外は上でヒットしているので、ここでは"SUN"のみ
> Case Is <> "MON"
> Cells(i, "D").Interior.Color = RGB(243, 123, 12) '適当な色
これ以下は上で全てヒットしてるので無効な分岐。
> Case Is <> "TUE"
> Cells(i, "D").Interior.Color = RGB(243, 12, 12) '適当な色
(略)
>
> End Select
>
>Next
>
>End Sub
あと、
RGBでセルの色を指定する方法
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=42512;id=excel
の角田さんのアドバイスにありますが、
>パレット56色以外の色の組み合わせ(R,G,B)をセルに設定しても
>56色の内のどれかで設定されます。
ということです。
ブックのパレットを変更する方法もあるので、ツリーを参考にしてみてください。
でも、とりあえず、やりたいことはこういうことですか?
Sub InteriorColor()
Dim i As Integer, ci As Integer
For i = 3 To 20
With Cells(i, "D")
Select Case .Value 'D列に曜日がリストしてある
Case "SUN": ci = 38 '薄赤
Case "MON": ci = 40 '薄橙
Case "TUE": ci = 36 '薄黄
Case "WED": ci = 35 '薄緑
Case "THU": ci = 37 '薄青
Case "FRI": ci = 39 '薄紫
Case "SAT": ci = 15 '薄灰
Case Else: ci = 1 '黒
End Select
.Interior.ColorIndex = ci
End With
Next
End Sub
こんな感じです。
|
|