|
当月の年月をA1に入れ
A3(月曜日用)とB3(金曜日)に該当する日にちをA列とB列に並べることをしたいのですが、日にちの処理で理解が進まず、ストップしました。この後のコードをどのようにすれば良いかアドバイスお願いします。
Sub 曜日取得と一覧()
Dim f As Long
Dim myY As Integer
Dim myM As Integer
Dim myD As String, myL
Dim LastDay As Integer, FistDay As Integer
myY = Year(Range("A1"))
myM = Month(Range("A1"))
myD = CStr(myY) & "/" & CStr(myM) & "/1"
FistDay = Day(DateAdd("d", 0, DateAdd("m", 1, myD)))
LastDay = Day(DateAdd("d", -1, DateAdd("m", 1, myD)))
myL = CStr(myY) & "/" & CStr(myM) & "/" & LastDay
MsgBox FistDay
MsgBox LastDay
' For f = Str(myD) To Str(myL) '←…ここで止まります。
' Next
End Sub
|
|