Excel VBA質問箱 IV

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

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


45677 / 76732 ←次へ | 前へ→

【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
9 hits

【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 お礼

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