VBA実行時エラー91

私はVBAでこのコードに問題があり、実行時エラー91が発生します。

 Private ChkTemp(90) As Checkbox

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

新しく宣言されたチェックボックス(ChkTemp)にデザインタイム checkbox(Temp1)を割り当てようとしました。

1
どの味VBA? Excel、Word、Access ...?
追加された 著者 Fionnuala,

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
3
追加された