>30,38 日付をyyyy/m/d形式でテキストボックスに入力するという前提で作って見ました。 ユーザーフォームのコマンドボタン１のスクリプトです。 Option Explicit Private Sub CommandButton1_Click() Dim ary_date As Variant Dim tate As Long, tuki As Integer ary_date = Split(UserForm1.TextBox1, "/") If UBound(ary_date) <> 2 Then ' 要素が3個あるか GoTo ERR_PROC End If tate = ActiveSheet.Range("C65536").End(xlUp).Row + 1 '出力開始行 On Error GoTo ERR_PROC For tuki = ary_date(1) To 12 ActiveSheet.Cells(tate, 3).Value = _ DateValue(ary_date(0) & "/" & tuki & "/" & ary_date(2)) tate = tate + 1 Next tuki Exit Sub ERR_PROC: MsgBox ("日付が正しくありません") End Sub 以上 splitコマンドで日付データから年、月、日の３要素を一度に配列に格納できて便利です。
