ошибка компилятора (неверный идентификатор)

Question

Как сказано выше, в моем следующем коде я получаю сообщение об ошибке компилятора, говорящее мне, что есть неверный идентификатор.Я не вижу проблемы, в основном это очень простой код.Проблема должна быть в строках, использующих backcolor-функцию.

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)

Если у вас нет ссылки, только имя.

Или, если на других объектах нет Коллекции, взгляните на

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

`.

Answer 2

 Dim TextBoxObject As String
 AMU.TextBoxObject.BackColor.ColorIndex = 15

Возможно, вам не нравится объявлять строковую переменную с тем же именем, что и текстовое поле