VBA UserForm中TextBox数组引用触发类型不匹配错误的问题咨询

错误原因 #

你碰到的类型不匹配，本质是VBA中不同库的同名控件类型冲突：用户窗体里的文本框属于MSForms.TextBox类型，而如果直接声明Dim arTBs(3) As TextBox，在Excel环境下默认会引用Excel.TextBox（工作表控件），这两个是完全不同的对象类型，哪怕名称都是TextBox，也无法直接赋值，因此触发错误。本地窗口显示的“TextBox/TextBox”其实是不同库下的同名类型，并非同一类型。

解决方案 #

方案1：明确声明数组为MSForms.TextBox类型

在窗体的通用声明段（所有过程之外）明确指定数组的类型为用户窗体的TextBox：

' 窗体通用声明段
Dim arTBs(1 To 3) As MSForms.TextBox

Sub InitTBs()
    Set arTBs(1) = tbx1
    Set arTBs(2) = tbx2
    Set arTBs(3) = tbx3
End Sub

方案2：通过控件集合批量绑定（更高效）

如果文本框命名有规律（如tbx1、tbx2、tbx3），可以遍历窗体的Controls集合自动填充数组，省去手动逐个赋值的步骤：

' 窗体通用声明段
Dim arTBs(1 To 3) As MSForms.TextBox

Sub InitTBs()
    Dim i As Integer
    For i = 1 To 3
        Set arTBs(i) = Me.Controls("tbx" & i)
    Next i
End Sub

批量设置文本框内容示例 #

完成数组初始化后，就可以通过索引批量给文本框赋值：

Sub LoadTextToTBs()
    Dim i As Integer
    ' 假设arText是已初始化的字符串数组(1 To 3)
    For i = 1 To 3
        arTBs(i).Text = arText(i)
    Next i
End Sub

内容的提问来源于stack exchange，提问作者harleygnuya