Excel VBA質問箱 IV

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

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


4597 / 13644 ツリー ←次へ | 前へ→

【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 お礼[未読]

【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です。

【55729】Re:条件に一致した行の色を変えたい
回答  ひげくま  - 08/5/17(土) 10:19 -

引用なし
パスワード
   VBAではなく、条件付き書式をお勧めします。

色を変えたい範囲(A6からZ36?)を選択した状態で、「書式 − 条件付き書式」で、
「数式が」「=$B6="日"」
にして、書式を設定するだけです。

VBAの勉強のために、あえてVBAでやろうとしているのであれば、的外れな回答になってしまいますが。

【55730】Re:条件に一致した行の色を変えたい
発言  kanabun  - 08/5/17(土) 10:21 -

引用なし
パスワード
   ▼とも さん:
>B列の文字の中から「日」を検索して、その行のA〜Zまでの
>セルの色を変えたいと思います。

それでしたら、

>         .Interior.ColorIndex = 48

         .Offset(,-1).Range("A1:Z1").Interior.ColorIndex = 48

で、どうでしょう?

【55731】Re:条件に一致した行の色を変えたい
お礼  とも  - 08/5/17(土) 10:57 -

引用なし
パスワード
   ひげくまさん、kanabunさん、早速のご教授
ありがとうございました。
kanabunさんに教えていただいた、

  .Offset(, -1).Range("A1:Z1").Interior.ColorIndex = 48

ですぐに出来ちゃいました。
すごいです、感動しております。
実際、本の内容のをコピーしたも同然で
内容もまだまだ理解していません。

でも出来るんですね〜
いろんなことが、ひげくまさん、kanabunさんのように
がんばってもっともっと学習したくなりました。
今後もまたお世話になると思いますので
そのときには、ご指導宜しくお願いします。

本当に有難う御座いました。

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