Excel VBAでのテキストボックスからのセルへの転記

前提・実現したいこと

Excel2016で一日の作業内容を表に転記するマクロを制作しています。
コマンドボタンを押して5つのテキストボックスの値を表内の任意のセルへ順番に転記する時に
テキストボックス　　　　→　　　　　セル
１・２・３・４・５　　　　　　　　５・５・５・５・５

上記のように5つ目のテキストボックスの値が他のセルにコピーされてしまいます。

解決策を教えていただきたくて投稿させていただきました。

未熟な上に解りにくい質問でしょうがお知恵を貸してください。

発生している問題・エラーメッセージ

テキストボックスからセルへの転記がうまくいかない。

該当のソースコード

ExcelVBA
Private Sub CommandButton2_Click()
Dim h As Integer
Dim i As Integer
Dim j As Integer
With UserForm2
If TextBox16.Value = "" Then
MsgBox "今日の日付を入力してください"
Exit Sub
End If
h = UserForm2.Controls("TextBox16").Value
For j = 6 To 10
For i = 1 To 5
Cells(4 + h, i + 13).Value = UserForm2.Controls("TextBox" & j).Value

    Next i
    Next j
End With

End Sub


### 試したこと



### 補足情報（FW/ツールのバージョンなど）

使用ソフト
Excel2016

行動規範の内容に同意します

回答2件

ベストアンサー

ここを

vba
1For j = 6 To 10
2    For i = 1 To 5
3        Cells(4 + h, i + 13).Value = UserForm2.Controls("TextBox" & j).Value
4    Next i
5Next j

こうでしょうか

vba
1For i = 1 To 5
2    Cells(4 + h, i + 13).Value = UserForm2.Controls("TextBox" & i + 5).Value
3Next i

投稿2021/01/28 07:09

radames1000

総合スコア1923

momomo1986

2021/01/28 07:31

ありがとうございました！！地獄に仏な気持ちです！！正しいコードを見て変な方向に走ってたのがよくわかりました。

行動規範の内容に同意します

2重For文の順番をよく確認してください。
以下のように処理が動いてしまっています。

VBA
1Cells(4 + h, 1 + 13).Value = UserForm2.Controls("TextBox" & 6).Value
2Cells(4 + h, 2 + 13).Value = UserForm2.Controls("TextBox" & 6).Value
3Cells(4 + h, 3 + 13).Value = UserForm2.Controls("TextBox" & 6).Value
4Cells(4 + h, 4 + 13).Value = UserForm2.Controls("TextBox" & 6).Value
5Cells(4 + h, 5 + 13).Value = UserForm2.Controls("TextBox" & 6).Value
6Cells(4 + h, 1 + 13).Value = UserForm2.Controls("TextBox" & 7).Value
7Cells(4 + h, 2 + 13).Value = UserForm2.Controls("TextBox" & 7).Value
8Cells(4 + h, 3 + 13).Value = UserForm2.Controls("TextBox" & 7).Value
9Cells(4 + h, 4 + 13).Value = UserForm2.Controls("TextBox" & 7).Value
10Cells(4 + h, 5 + 13).Value = UserForm2.Controls("TextBox" & 7).Value