Excel 在模块（运行时）的循环（下一步）期间生成复选框和文本框

我想从模块到userform生成元素（复选框和文本框），这些元素的数量是数组所拥有的数组元素的数量。例如：

• 阵列4（）
• 阵列4（1）：“彼得·梅尔”
• 阵列4（2）：“乔·加纳”
• 阵列4（3）：“菲尔大师”
• 等等

• array2（）

• 阵列2（1）：2
• 阵列2（1）：2
• 阵列2（2）：6
• 阵列2（3）：160
• 等等

两个数组的数组数始终相同

用户表单应显示afterwoods：

复选框/Textfield.Text=Peter Meier/Textfield.Text=2

复选框/Textfield.Text=Joe Garner/Textfield.Text=6

等等

等等 当做

---

Yab86将两个值存储在同一个数组中可能更优雅

数组（1,1）=“Peter Meier”
数组（1,2）=“2”
数组（2,1）=“乔·加纳”
数组（2,2）=“2”

等等

至于你的问题，可能是这样的：

Sub-Stuff（）
将vrData（2，1）作为“变量”或vrData（）进行调校，然后重新调校
Dim CTAS控制
Dim intPosX，intPosY为整数
Dim ufForm As BlankForm'即首先创建的空白用户表单
vrData（0，0）=“无论什么”
vrData（0，1）=“3”
vrData（1，0）=“某物”
vrData（1，1）=“2”
vrData（2，0）=“马”
vrData（2，1）=“7”
intPosX=20
intPosY=20
Set ufForm=新的BlankForm
对于i=0到UBound（vrData，1）
设置ctControl=ufForm.Controls.Add（“Forms.CheckBox.1”）
用CTC控制
.Caption=vrData（i，0）
.Left=intPosX
.Top=intPosY
以
Set ctControl=ufForm.Controls.Add（“Forms.TextBox.1”）
用CTC控制
.Text=vrData（i，1）
.Left=intPosX+100
.Top=intPosY
以
intPosY=intPosY+20
下一个
ufForm.Show
端接头