|
> そこでsheet_activateにてsheet3を開いたときに・・・
Worksheet_Activateイベントのことでいいのですね。
> sheet3のA1にyyyy年m月
一応、セルA1が、日付形式でも文字列でも構わないようにしました。
こんな感じで如何でしょうか。
Private Sub Worksheet_Activate()
Dim N As Integer
Dim AryD(0 To 30, 0)
Dim SetDate As Date
If IsDate(Range("A1").Text & "1日") Then
SetDate = DateValue(Range("A1").Text & "1日")
Do While Month(DateValue(Range("A1").Text & "1日")) = Month(SetDate)
AryD(N, 0) = SetDate
SetDate = SetDate + 1
N = N + 1
Loop
End If
With Range("A3:A33")
.NumberFormatLocal = "m月d日"
.Value = AryD
End With
End Sub
|
|