我有一个可以有6或7个值的数组,下面的代码显示了我可以有6个或7个值:
Dim AB(1 To 7)
AB(1) = "1-P"
AB(2) = "1-L"
AB(3) = "1-E"
AB(4) = "1-I"
AB(5) = "1-O"
AB(6) = "1-T"
If TeachingTool.teacherInPlYes = True Then
AB(7) = "1-R"
End If
一旦填充了数组,我在当前工作表中搜索数组中的calues并填充一个列表框,其中包含单元格位置,但是因为数组中有一个空格,它会因为某些原因将我带回很多不需要的数据我无法弄清楚原因。我尝试过使用Dim AB(1 To 6 or 7)
但是没有用。所以关于这个问题的一些信息会有所帮助,谢谢
答案 0 :(得分:3)
使用ReDim
。这样您就可以相应地对数组进行维度。例如:
If TeachingTool.teacherInPlYes = True Then
ReDim AB(1 To 7)
AB(7) = "1-R"
Else
ReDim AB(1 to 6)
End If
AB(1) = "1-P"
AB(2) = "1-L"
AB(3) = "1-E"
AB(4) = "1-I"
AB(5) = "1-O"
AB(6) = "1-T"