在用户表单vba上按行和列创build文本框

任何人都可以指引我正确的方向以下代码? 我想在运行时按行和列创build一个文本框。下面只创build一行而不是多行。 我想列保持不变,只是不断增加的行。 提前致谢 :)

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 

每个维度(行列)都需要一个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 

结果:

在这里输入图像说明