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