Excel VBA質問箱 IV

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

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


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

【36016】特定セルを検索し行に色を付ける方法 アカサ 06/3/18(土) 23:21 質問[未読]
【36018】Re:特定セルを検索し行に色を付ける方法 春まき 06/3/19(日) 4:24 回答[未読]
【36042】Re:特定セルを検索し行に色を付ける方法 ponpon 06/3/19(日) 22:59 発言[未読]
【36257】Re:特定セルを検索し行に色を付ける方法 アカサ 06/3/26(日) 21:46 お礼[未読]

【36016】特定セルを検索し行に色を付ける方法
質問  アカサ  - 06/3/18(土) 23:21 -

引用なし
パスワード
   お世話になります。
初心者ですのでよろしくお願いします。
早速ですが、例えばカレンダーのようなもので土、日の日を検索してセルだけでなく、その行を色を付けたいのですがどうしたら良いでしょうか。
巧い方法がありましたら是非ご教授お願い出来ませんでしょうか。
何卒よろしくお願いします。

【36018】Re:特定セルを検索し行に色を付ける方法
回答  春まき  - 06/3/19(日) 4:24 -

引用なし
パスワード
   私も丁度カレンダーの土日の罫線を変更するVBAを書いてましたが条件付き書式
を使い切っているので仕方なくやってます。
条件付き書式を使ってないならそちらを使った方が楽だと思います。

【36042】Re:特定セルを検索し行に色を付ける方法
発言  ponpon  - 06/3/19(日) 22:59 -

引用なし
パスワード
   こんばんは。

シートのレイアウトが分からないので・・・
   A     B      C       D       F 
1  月日    曜日    項目1    項目2    項目3    …
2  1/1    日    ・    ・    ・    …
3  1/2    月    ・    ・    ・    …
4  1/3    火    ・    ・    ・    …
5  1/4    水    ・    ・    ・    …
6  1/5    木    ・    ・    ・    …
7  1/6    金    ・    ・    ・    …
8  1/7    土    ・    ・    ・    …
9  1/8    日    ・    ・    ・    …
10 1/9    月    ・    ・    ・    …

このようになっていると仮定して
A列は、シリアルで表示でm/d、B列はWeekday関数で、表示でaaaとしているものとします。
こんな感じでしょうか?
Sub test()
  Dim myR As Range
  Dim r As Range
  
  Application.ScreenUpdating = False
  Set myR = Range("B2", Range("B65536").End(xlUp))
  For Each r In myR
    Select Case r.Value
     Case 1: r.EntireRow.Interior.ColorIndex = 3
     Case 7: r.EntireRow.Interior.ColorIndex = 5
    End Select
  Next
  Application.ScreenUpdating = True
End Sub

【36257】Re:特定セルを検索し行に色を付ける方法
お礼  アカサ  - 06/3/26(日) 21:46 -

引用なし
パスワード
   ponpon さん 真にありがとう御座いました
御礼の挨拶が大変遅くなり申し訳御座いません
早速使用させて戴きます。
先ずは御礼まで

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