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