|
▼Yoshim さん:
こんばんは
随分大胆な(?)というか、無茶なFor/Nextですね。
日付のFrom/Toでのループ(それもループ内で1日ずつアップ?)という器用なことは
できませんね。
オリジナルコード、ちょっと使い方で気になるところもありますが、できるだけいかして。
Sub Sample()
Dim f As Long
Dim myY As Integer
Dim myM As Integer
Dim myD As String
Dim LastDay As Integer
Dim TestDay As Date
myY = Year(Range("A1"))
myM = Month(Range("A1"))
myD = CStr(myY) & "/" & CStr(myM) & "/1"
LastDay = Day(DateAdd("d", -1, DateAdd("m", 1, myD)))
For f = 1 To LastDay
TestDay = DateSerial(myY, myM, f)
'このTestDayの曜日をここで判定してください
Next
End Sub
|
|