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 質問
【55729】Re:条件に一致した行の色を変えたい ひげくま 08/5/17(土) 10:19 回答
【55730】Re:条件に一致した行の色を変えたい kanabun 08/5/17(土) 10:21 発言
【55731】Re:条件に一致した行の色を変えたい とも 08/5/17(土) 10:57 お礼

26335 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free