|
全部一色で塗られてしまう・・・
どこが間違ってるかわからーーん(泣き
#############################################
曜日によって背景色を変える
#############################################
Sub InteriorColor()
Dim i As Integer 'カウント用
For i = 3 To 20
Select Case Cells(i, "D").Value 'D列に曜日がリストしてある
Case Is <> "SUN"
Cells(i, "D").Interior.Color = RGB(23, 12, 132) '適当な色
Case Is <> "MON"
Cells(i, "D").Interior.Color = RGB(243, 123, 12) '適当な色
Case Is <> "TUE"
Cells(i, "D").Interior.Color = RGB(243, 12, 12) '適当な色
Case Is <> "WED"
Cells(i, "D").Interior.Color = RGB(23, 123, 132) '適当な色
Case Is <> "THU"
Cells(i, "D").Interior.Color = RGB(43, 123, 132) '適当な色
Case Is <> "SUN"
Cells(i, "D").Interior.Color = RGB(123, 123, 12) '適当な色
Case Is <> "SUN"
Cells(i, "D").Interior.Color = RGB(222, 123, 132) '適当な色
Case Else
Cells(i, "D").Interior.Color = RGB(132, 132, 243)
End Select
Next
End Sub
|
|