■解説
'日曜日だった場合
if Weekday(Date) = 1
'文を繋げる
And
'今日の日付に6を足して3で割る
'(Day(Date)+6)\3
'計算結果が結果が３（3週目）だった場合
= 3 Then
'"A1"のセルに「本日は第３日曜日です」と入力する
Range("A1").Value = "本日は第３日曜日です"
'IF文を終わる
End if
今月の第三週目を求めると言うのは解りにくいですが、簡単に説明すると今日の日付を7日で割ればいいのです。しかし、０週目と言うのは存在しませんので、今日の日付に６を足したものから割ります。
こうする事で月初１日目でも 1(今日)+6÷7=1 となり１日でも１週目と表記できます。
PR
