ユーザーフォーム:テキストボックスにセル値を表示(動画あり)

Sub ボタン1_Click()
    UserForm1.Show vbModeless
End Sub

Dim i As Long
Dim j As Long

Private Sub CommandButton1_Click()
'戻るボタン

    If j >= 2 Then
        j = j - 1
    Else
        Exit Sub
    End If

    'テキストボックスに値表示
    For i = 1 To 3
        Me.Controls("TextBox" & i) = Cells(j, i)
    Next i

End Sub

Private Sub CommandButton2_Click()
'進むボタン

    j = j + 1

    'テキストボックスに値表示
    For i = 1 To 3
        Me.Controls("TextBox" & i) = Cells(j, i)
    Next i

End Sub

Private Sub UserForm_Initialize()
'ユーザーフォーム立ち上げ時に表示

    j = 1

    For i = 1 To 3
        Me.Controls("TextBox" & i) = Cells(1, i)
    Next i

End Sub