|
サムライさん、こんにちは。
InputBoxでやってみました。どやろ?
Sub test()
Dim 年 As Long
Dim 年2 As Long
Dim 月 As Integer
Dim 月2 As Integer
Dim カウント As Integer
With Range("A2:A17")
.NumberFormatLocal = "m""月""d""日""(aaa)"
.ClearContents
End With
年 = InputBox("年を入力して下さい。")
月 = InputBox("月を入力して下さい。")
カウント = 0
If 月 = 12 Then
月2 = 1
年2 = 年 + 1
Else
月2 = 月 + 1
年2 = 年
End If
For I = CDate(年 & "/" & 月 & "/1") To CDate(年2 & "/" & 月2 & "/1") - 1
If (Weekday(I) = 2) Or (Weekday(I) = 4) Or (Weekday(I) = 6) Then
Cells(カウント + 2, 1) = I
カウント = カウント + 1
End If
Next
End Sub
|
|