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