>>38 Dim DateInputRange As Range, d%, i& On Error Resume Next d = MsgBox("入力しますか？", vbYesNo) If d = vbYes Then '入力判定 If Not IsDate(TextBox1.Value) Then MsgBox "節子！それ日付と違う！": Exit Sub End If
'入力開始セル取得 Set DateInputRange = Worksheets("Sheet1").Range("C65536").End(xlUp).Offset(1)
'入力開始 For i = 0 To (12 - Month(TextBox1.Value)) DateInputRange.Offset(i).Value = DateAdd("m", i, TextBox1.Value) '月とか日が別で欲しいなら、適当に以下のような感じで 'DateInputRange.Offset(i, 1).Value = Month(TextBox1.Value) & "月" Next End If If Err.Number <> 0 Then MsgBox Err.Description 'なんかエラーが発生したとき用
