|
ともと言います。
シートのA列には日付を1か月分入力します(スタート日は任意)。
A列の日付に対応する曜日がB列に入力されるようになっています。
B列の文字の中から「日」を検索して、その行のA〜Zまでの
セルの色を変えたいと思います。
いろんな本とかで学習しながら自分なりに作って見ましたが
思うように動いてくれません。
Sub 色分け()
Dim Gyou As Long
Application.ScreenUpdating = False
Gyou = 6
Do While Sheets("準備").Cells(Gyou, 2).Value <> ""
With Sheets("準備").Cells(Gyou, 2)
Select Case .Value
Case Is = "日"
.Interior.ColorIndex = 48
End Select
End With
Gyou = Gyou + 1
Loop
Application.ScreenUpdating = True
End Sub
正直、初心者で本に書いてあった内容を分かる範囲で
変更しそのまま使っていますが、よく分かってないのが
本当のところです。
上の場合ですとB列の「日」のところだけは色がつくのですが
条件に合った行のA〜Zの色を変える方法を教えていただけないでしょうか。
宜しくお願いします。
Excelは2000です。
|
|