VBA実行時エラー91

Question

私は、実行時エラーに91

Private ChkTemp(90) As Checkbox 

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

を取得し、VBAでこのコードの問題を抱えている私は、新たに宣言checkbox(ChkTemp)に設計時間checkbox(Temp1)を割り当てようとしました。

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