Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

26335 / 76732

←次へ　｜　前へ→


	【55728】条件に一致した行の色を変えたい

とも - 08/5/17(土) 9:52 -


	引用なし

	パスワード

ともと言います。

シートの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です。

0 hits

▼

【55728】条件に一致した行の色を変えたい とも 08/5/17(土) 9:52

≪