|
素人で回りくどい第2月曜日を求めようと思って下記のようなVBA作りました。
毎月1日の曜日を求めてそこから何日目が第二月曜日というようなものにしました。
しかし、1日の曜日がうまく判定できなくて困っています。
もう少しシンプルなのがあるのでしょうか?
Sub dai2getu()
yyyy = Cells(1, 1)
en = 0
Cells(1, 5) = yyyy & "/" & 1 & "/" & 1
ymd = Cells(1, 5)
you = Weekday(ymd, vbSunday)
dai2 = 1
Select Case you
Case 1
Cells(3, 3) = 8 + 1
Case 2
Cells(3, 3) = 7 + 1
Case 3
Cells(3, 3) = 13 + 1
Case 4
Cells(3, 3) = 12 + 1
Case 5
Cells(3, 3) = 13 + 1
Case 6
Cells(3, 3) = 10 + 1
Case 7
Cells(3, 3) = 9 + 1
End Select
Cells(3, 2) = yyyy & "/" & 1 & "/" & Cells(3, 3)
end sub
|
|