在VBA中为数组分配值

Question

我正在尝试在VBA中更改数组的值，但是发生了运行时错误“13”类型不匹配 我尝试做的是打开一个用户表单，其中有6个按钮，当按下前5个按钮时，第6个按钮将被启用

Public I As Integer
Public Botones As Variant

Sub funcion_final()
Botones = Array(False, False, False, False)
MainFrame.Show
End Sub

Function ChangeValue(I)
Botones(I) = True //Here is the error
End Function

这里的按钮代码都有完全相同的代码，只是更改作为参数发送的数字

Private Sub BPieza_1_Click()
ChangeValue 0
End Sub

Answer 1

永远不会调用

funcion_final()，因此数组永远不会被初始化。在致电ChangeValue()之前，请确保致电funcion_final()。