マクロ インプットボックスについての質問

質問

いつも回答して頂きありがとうございます。
本とかネットとかで確認しましたが、自分が理解できる説明がされているものがありませんでした。B4セルから下方向に日付を連続して入力させるインプットボックスの記述方法について質問したいのですが・・・。御指導の程宜しくお願い致します。

回答No.2

KURUMITO · ベストアンサー

次のようなマクロにしてはどうでしょう。

Sub 日付連続入力()
Dim I As Integer
Dim Date1 As Date
Dim Date2 As Date
Date1 = Application.InputBox("最初の日付を2012/12/1のように入力してください。")
Date2 = Application.InputBox("最後の日付を2012/12/31のように入力してください。")
Range("B4:B1000") = ""
Range("B4").Value = Date1
I = Date2 - Date1 + 1
Range("B4").AutoFill Range("B4").Resize(I), xlFillDays
End Sub

お礼

知らない記述が結構あったので、ネットで確認しながら勉強させてもらいました。自分がしたかった記述まで作ってくれて感謝しています。また、御指導お願い致します。

回答No.1

kybo

インプットボックスに何を入力させて、日付はいつからスタートなのかなど不明な点がおおいですが、
とりあえず、B4が確定事項だとして、B4に今日の日付、インプットボックスで入力した日数分下へ連続データを入力するサンプルです。

Sub macro()
Dim I As Integer
I = Application.InputBox("日数を入力して下さい", Type:=1)
Range("B4").Value = Date
Range("B4").AutoFill Range("B4").Resize(I), xlFillDays
End Sub

お礼

知らない記述が結構あったので、ネットで確認しながら勉強させてもらいました。また、御指導お願い致します。