[VBA] 年度を指定し、以降の日付を表示する

質問

いつも大変お世話になっております。

しばらく、EXCEL担当になり、頻繁にご質問させていただくかもしれませんが、
宜しくお願いいたします。

回答をくださる方々にはいつも大変感謝をしております。

今回は、年度を指定し、以降の日曜日から始まる日付を取得できるＶＢＡを考えております。

プルダウンで年度を指定すると、日曜から始まる日付が「～週」とプルダウンで表示され、
選択すると、固定セル（どこでも可）に　2012/8/15といった形式で、入力されるというものです。

年度指定時に、本日付近の週が表示されるとなお良いです。

追伸

実は、このあと、もう少しややこしい難題がありますので、再度投稿させていただきますが、併せて宜しくお願いいたします。

それでは、何卒宜しくお願いいたします。

回答No.1

noname#192382 · ベストアンサー

年度と何週目かを指定すると指定した個数の日曜日を書き出すプログラムを作りました。試してみてください。年度はB4、何週目かはB5、個数はB6にいれてマクロを動かせば師弟の個数の日曜日の日付が表示されます。
Sub Macro2()
'
' Macro2 Macro
' マクロ記録日 : 2012/7/12 ユーザー名 :
'

'
Dim kazu As Integer, hosei As Variant, newser As Variant, serial As Variant, kurikaeshi As Integer, i As Integer, hi As Variant

Range("a4") = "年"
Range("a5") = "何番目"
Range("a6") = "いくつ"

Range("e4") = Range("b4") & "年1月1日"
Range("f4") = DateValue(Range("e4"))
serial = Range("f4")
Range("g4") = WeekDay(Range("f4"))
kazu = Range("G4")
'MsgBox (kazu)
Select Case kazu
Case Is = 7
hosei = 1
Case Is = 6
hosei = 2
Case Is = 5
hosei = 3
Case Is = 4
hosei = 4
Case Is = 3
hosei = 5
Case Is = 2
hosei = 6
Case Is = 1
hosei = 0
Case Else
End Select
newser = serial + hosei
Range("h4") = newser

Range("i4") = newser + (Range("b5") - 1) * 7

Range("I4").Select
Selection.Copy
Range("C5").Select
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

'MsgBox (Range("c5"))
hi = Range("c5")
kurikaeshi = Range("b6") + 5
For i = 7 To kurikaeshi
Cells(i, 2) = i - 5
Cells(i, 3) = hi + 7
hi = Cells(i, 3)
Next

End Sub