excel - 正在获取编译器错误(无效的标识符)

Question

如上所述，在我的以下代码中，我收到一个编译器错误，告诉我存在无效的标识符。我没有真正看到问题，基本上这是一个非常简单的代码。问题应该出在使用backcolor-Function的行中。

Sub addmaterial()

Dim AMU As UserForm
Set AMU = AddMaterialUserform1
Dim SCU As ComboBox
Set SCU = AMU.SelectComboBoxUserform
Dim APCU As ComboBox
Set APCU = AddMaterialUserform1.AddedPropertiesComboBoxUserform
Dim TextBoxObject As Combobox
Dim i As Integer


SCU.AddItem "Material"
SCU.AddItem "Material Group"

APCU.BorderColor.ColorIndex = 15

For i = 1 To 12
    TextBoxObject = "Textbox" & i
    AMU.TextBoxObject.BackColor.ColorIndex = 15
Next

AMU.Show

End Sub

Answer 1

您尝试将字符串分配给对象

TextBoxObject = "Textbox" & i

您可以使用 AMU.Controls-集合

Set TextBoxObject = AMU.Controls("Textbox" & i)

如果您没有引用，只需输入名称。

或者如果其他对象上没有Collection，请查看

CallByName(Object As Object, ProcName As String, _
           CallType As VbCallType, Args() As Variant)`

`。