VBA複数セル書き込みについて

Question

前提・実現したいこと

フォームで登録ボタンを押した際に、シートにテキストボックス１の内容と1月～12月までがセルに入力されるようにしたいです。

例：TextBox1に”アルバイト”と入力→登録
シートではこのように反映される

アルバイト
1月
2月
3月
4月
5月
…

のように書き込みされるようにしたいです。

該当のソースコード

Private Sub Button1_Click()
        Dim j As Long
     
        MonthCount = Cells(3, 1).End(xlDown).Row + 1
        Cells(MonthCount, 1).Value = Me.TextBox1.Value
        
        For j = 1 To 12
            Cells(MonthCount, 1).Value = j & "月"
            
        Next
End Sub

Comments

[ttyp03]

で、今は何に困っているのですか？

Answer 1

先に回答してしまいますが、たぶんどのシートかを指定していないので出来ないのではと思います。

Private Sub Button1_Click()
	Dim j As Long

	With Worksheets("シート")
		MonthCount = .Cells(3, 1).End(xlDown).Row + 1
		.Cells(MonthCount, 1).Value = Me.TextBox1.Value

		For j = 1 To 12
			.Cells(MonthCount, 1).Value = j & "月"
		Next
	End With
End Sub