該当の曜日に色を塗るマクロの作成方法2（VBA）

質問

いつも拝見させていただき、みなさまのご回答に感謝しています！

以前、質問をさせていただいたのですが、
VBA初心者の私では、やはり自分自身で応用ができず、
大分悩んだのですが解決できず、とても困っています。

前回ご回答してくださったtom04様、ありがとうございました。

『該当の曜日に色を塗るマクロ』を作成したいのですが、
当然ですが行や列を挿入すると「Weekdayプロパティを取得できません。」と
エラーになってしまいます。

実際のセル番地を記載しますので、
ご回答をお願いいたします。
勉強不足で申し訳ございません。

【サンプルVBA】-----------------------------

≪使用PC≫
windows XP
Excel2003
前回質問URL：http://okwave.jp/qa/q7714972.html

■曜日毎の『ボタン』を7つ作成する。

『月曜日』というボタンを押すと、日付と月曜日のセルに色を塗る。
『火曜日』というボタンを押すと、日付と火曜日のセルに色を塗る。
『水曜日』・・・・・

【例】
年は（セルA1）
月は（セルA2）
日は（セルA3～セルAE3）
曜日は（セルA4～セルAE4）

※年と月と日は、べた打ちで数値を入力。

※曜日は月と日から関数を入力し、自動で出ています。
IF(A$3="","",DATEVALUE($A$1&"/"&$A$2&"/"&A$3))

【月曜日sample VBA】
Sub monday_sample()
Dim j As Long
Rows(3 & ":" & 4).Interior.ColorIndex = xlNone
For j = 1 To 31
If Cells(4, j) <> "" Then
If WorksheetFunction.Weekday(Cells(4, j)) = 2 Then
Range(Cells(3, j), Cells(4, j)).Interior.ColorIndex = 6
End If
End If
Next j
End Sub

【実用したいVBA】---------------------------

年は（セルA3）
月は（セルA4）
日は（セルD6～セルAH6）
曜日は（セルD7～セルAH7）

※年と月と日は、べた打ちで数値を入力。

※曜日は月と日から関数を入力し、自動で出ています。
例：セルD7→『IF(D$6="","",DATEVALUE($A$3&"/"&$A$4&"/"&D$6))』

--------------------------------------------

なにとぞよろしくお願いいたします。

回答No.2

tom04 · ベストアンサー

こんばんは！
前回回答したおっさんです。

画像をアップしておきます。
余計なお世話かもしれませんが・・・

＞年と月と日は、べた打ちで数値を入力・・・

とありますが、↓の画像で
D6セル（セルの書式設定　→　表示形式　→　ユーザー定義から　d　としておきます）に
=IF(OR(COUNTBLANK($A3:$A4),MONTH(DATE($A3,$A4,COLUMN(A1)))<>$A4),"",DATE($A3,$A4,COLUMN(A1)))

D7セル（セルの表示形式はユーザー定義から　aaa　としておきます）に
=IF(D6="","",D6)

という数式を入れ、D6・D7を範囲指定　→　D7セルのフィルハンドルでAH列までオートフィルでコピーしておきます。

これでA3・A4データを入れるだけでちゃんと日付・曜日が表示できると思います。
当然、大の月・小の月にも対応できます。

さて、本題ですが、

Sub monday_sample()
Dim j As Long
Range(Cells(6, "D"), Cells(7, "AH")).Interior.ColorIndex = xlNone

'↑ Range(Cells(6, 4), Cells(7, 34)).Interior.ColorIndex = xlNone
'としても同様の結果になります。

For j = 4 To 34 '←D列～AH列までの列番号
If Cells(7, j) <> "" Then
If WorksheetFunction.Weekday(Cells(7, j)) = 2 Then
Range(Cells(6, j), Cells(7, j)).Interior.ColorIndex = 6
End If
End If
Next j
End Sub

こんな感じではどうでしょうか？m(_ _)m

お礼

tom04様
まさかまた見つけてくださるとは・・・感動して泣きそうになりました(笑)
まずは、理解力・応用力が足らず、ごめんなさい。
そして、ありがとうございます！
多くの方が命令文を教えてくださり、そのどれも実行できましたが、tom04様の命令文を元にだいぶ悩んだり、勉強したりしたので、馴染み深さがあったことと、再度見つけてくださったというお礼からベストアンサーにさせていただきます。
お礼ばかり重複いたしますが、本当にありがとうございました！

回答No.4

keithin

まず先にワークシートの改良から。

Ｄ６に
=IF($A$4=MONTH(DATE($A$3,$A$4,COLUMN(A6))),DATE($A$3,$A$4,COLUMN(A6)),"")
と記入、セルの書式設定の表示形式のユーザー定義で
d
と設定してＡＨ６までコピー

Ｄ７に
=TEXT(D6,"aaa;;;")
と記入してＡＨ７までコピー

月曜日マクロ：
sub macro1()
　dim h as range
　range("D6:AH7").interior.colorindex = xlnone

’所定の「日付の」セル範囲について
　for each h in range("D6:AH6")

　’月曜日なら色を塗る
　　if h.offset(1).value = "月" then　’他の曜日なら"火","水"に修正
　　　h.resize(2, 1).interior.colorindex = 6
　　end if
　next
end sub

お礼

keithin様
ご回答ありがとうございました！
ワークシートの改良部分、いただきました！！！見慣れた関数ばかりだったので、安心して使えます。ベストアンサーが付けれず心苦しいばかりです＞＜
本当にありがとうございました！

回答No.3

tom04

No.2です！
たびたびごめんなさい。

投稿後に気づいたのですが、画像ではA2・A3セルに入力していますが、
数式そのものはA3・A4セルに入力した場合の数式ですので
画像のA列配置は気にしないでください。
（画像を変更するのを忘れていました）

何度も失礼しました。m(_ _)m

お礼

tom04様
何度も気にかけてくださって、ありがとうございます！
画像に関しては、すぐ理解できたので大丈夫ですよ～ありがとうございました！

回答No.1

tsubuyuki

Sub monday_sample()
Dim j As Long
　　Rows("6:7").Interior.ColorIndex = xlNone
　　For j = 1 To 31
　　　　If Cells(6, j + 3) <> "" Then
　　　　　　If WorksheetFunction.Weekday(Cells(6, j + 3)) = 2 Then
　　　　　　　　Range(Cells(6, j + 3), Cells(7, j + 3)).Interior.ColorIndex = 6
　　　　　　End If
　　　　End If
　　Next j
End Sub

詳細は省略しますが・・・一つだけヒント。
　　Cells(行,列)
で、セル番地（何行目の何列目）を指定します。
行・列には数字が入ります。式も可です。
　　Cells(3 , 4)　⇒　３行目の４列目（Ｄ列）　⇒　Ｄ３セル
逆もしかりです。
　　Ｅ６セル　⇒　６行目のＥ列（５列目）　⇒　Cells(6 , 5)
こう書きます。

命令文にはそれぞれ意味があります。
「できた！」と喜ぶだけではなく、
１行ごとの意味もちゃんと押さえてくださいませ。

もう一つ、私なら７行目の「曜日」は
　　IF(D$6="","",DATE($A$3,$A$4,D$6))
とします。大差はありませんが、
（あり得ない日、９／３１などで）比べるとお分かりいただけると思います。

お礼

tsubuyuki様
ご回答ありがとうございました！
できました！命令文ってちょっとずつ理解できると楽しいですね。
わからなかったところに手が届く思いです。
初心者の私には『喜び』が原動力で、tsubuyukiさんにいっぱいヒントやらなんやらをいただきました。本当にありがとうございました！