VBA中如何在标准模块中定义动态数组为全局变量
FunctionloadP()DimPPAsVariantDimintTAsIntegerDimindexAsIntegerReDimarr1(0To10)AsStrin...
Function loadP()
Dim PP As Variant
Dim intT As Integer
Dim index As Integer
ReDim arr1(0 To 10) As String
ReDim arr2(0 To 10) As String
For intT = 0 To 10
If combox.selectedText = arr1(intT) Then
PP = Split(arr2(intT), ",")
For index = 0 To UBound(PP)
Call checkboxlist.addItem(PP(index), "")
Next
End If
Next
End Function
我在标准模块中定义了，然后在loadP方法中调用p方法中的数组为啥没有数据？ 展开
Dim PP As Variant
Dim intT As Integer
Dim index As Integer
ReDim arr1(0 To 10) As String
ReDim arr2(0 To 10) As String
For intT = 0 To 10
If combox.selectedText = arr1(intT) Then
PP = Split(arr2(intT), ",")
For index = 0 To UBound(PP)
Call checkboxlist.addItem(PP(index), "")
Next
End If
Next
End Function
我在标准模块中定义了，然后在loadP方法中调用p方法中的数组为啥没有数据？ 展开
1个回答
展开全部
在标准模块中：public a() as integer
然后到用的地方：redim a(100,50)
然后到用的地方：redim a(100,50)
更多追问追答
追问
用的地方要用redim再定义一下是吗？
追答
是的。
如果要保持数据不丢失要加Preserve
redim Preserve a(20,20)
自己测试吧。
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
