Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

54748 / 76738

←次へ　｜　前へ→


	【26776】実行ボタンの省略について

mimi - 05/7/17(日) 17:01 -


	引用なし

	パスワード

お願いします。

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

0 hits

▼

【26776】実行ボタンの省略について mimi 05/7/17(日) 17:01

≪