|
お願いします。
A1に"年"、b1に"月"を入れ、実行すると自動的にA列に1ヶ月の日付が入力されるマクロを作りました。
これを実行操作をすること無く、年と月をセルに入力したら自動で日付が挿入されるにはどうすればよいでしょうか?
Sub smpmonthly()
Dim rg As Range
Dim rgall As Range
Dim themonth As Integer
Dim theyear As Integer
Dim days As Integer
Range("a4:a35").ClearContents
theyear = Range("a1")
themonth = Range("b1")
Set rg = Range("a4")
days = Day(DateSerial(theyear, themonth + 1, 1) - 1)
rg.Value = DateSerial(theyear, themonth, 1)
Set rgall = Range(rg, rg.Offset(days - 1, 0))
Range("a4").AutoFill Destination:=rgall, Type:=xlFillDays
Set rg = Nothing
Set rgall = Nothing
End Sub
|
|