Ошибка выполнения VBA 91

Question

У меня проблема с этим кодом в VBA, получая ошибку времени выполнения 91.

 Private ChkTemp(90) As Checkbox

 ChkTemp(0) = Temp1
 .
 .
 .
 ChkTemp(89) = Temp90

Я попытался назначить время разработки checkbox(Temp1) для моего недавно объявленного checkbox(ChkTemp).

Answer 1

Вам нужно;

Private ChkTemp(90) As MSForms.CheckBox

И чтобы присвоить ссылку на объект, вы должны использовать set;

Set ChkTemp(0) = Temp1

Вы также можете;

Private ChkTemp(1 To 90) As MSForms.CheckBox
...
Dim i As Long
For i = 1 To UBound(ChkTemp)
    Set ChkTemp(i) = Me.Controls("Temp" & i)
Next