我正在使用Excel VBA用户表单而我正在尝试填充ComboBox
但我收到错误Could not set the Column property. Type mismatch.
ComboBox
将ColumnCount
属性设置为3
。
我使用下面的代码填充ComboBox
:
Dim i As Long
Dim varList As Variant
With UF_Main
'Get CM list
With .cbNAEmployee
.Clear
varList = fGetCMs
If Not isArrayEmpty(varList) Then
For i = LBound(varList, 2) To UBound(varList, 2)
.AddItem varList(0, i)
.Column(1, i) = varList(1, i)
.Column(2, i) = varList(2, i)
Next i
End If
End With
End With
调试器将With UF_Main
行标记为违规行,但这只发生在第三个循环的开头(它应该循环1000次以上)。
在调试时突出显示该行时,会显示<Object variable or With block variable not set>
。
更改UserForm /控件中的任何属性没有其他任何操作。可能导致错误的原因是什么?