Bir kullanıcı formundaki satır ve sütuna metin kutusu oluşturma vba

Question

Aşağıdaki kod için herhangi biri beni doğru yönde yönlendirebilir mi? Çalışma zamanında satır & sütunuyla bir metin kutusu oluşturmak istiyorum. Aşağıdaki, birden çok satır değil, yalnızca bir satır & oluşturur. Sütunların aynı & kalmasını istiyorum, sadece artan satırları tut.

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

:) Şimdiden teşekkürler Her bir boyut (satırlar ve sütun) için For döngü gerekir.

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 

Sonuç: