ユーザーフォームvbaの行と列によるテキストボックスを作成

Question

次のコードのいずれかを正しい方向に向けることができますか？実行時に&行のテキストボックスを作成したいとします。次の行は複数行ではない行&のみを作成します。私は同じ列を維持するために&だけ行を増やしておきたい。事前に感謝:)

Dim txtB1 As Control 
    Dim i 
    For i = 0 To 4 
    Set txtB1 = UserForm.Controls.Add("Forms.TextBox.1") 
    With txtB1 
     .Name = "chkDemo" & i 
     .Height = 20 
     .Width = 50 
     .Left = 30 * i * 2 
     .Top = 15 
     .ControlTipText = "Type of Bug" 
     End With 
    Next i 

Answer 1

あなたは各次元のForループ（行と列）が必要です。

Dim txtB1 As Control 
Dim i, jrow 

For jrow = 1 To 5 
    For i = 0 To 4 
     Set txtB1 = UserForm.Controls.Add("Forms.TextBox.1") 
     With txtB1 
     .Name = "chkDemo" & i 
     .Height = 20 
     .Width = 50 
     .Left = 50 * i + 2 
     .Top = 20 * jrow + 15 
     .ControlTipText = "Type of Bug" 
     End With 
    Next i 
Next jrow 

結果：