[已解决]如何调用其他程序里面的数组

yilang521

我想用数组写成个数据源，但是在其他程序调用不了，用什么方法能解决呢

最佳答案

月排行榜 / 总排行榜

dsmch

2014-5-22 12:50

1. Dim arr
   
2. Sub 数据源()
   
3. arr = [a14:d16]
   
4. End Sub
   
5. Sub lb()
   
6. 数据源
   
7. MsgBox arr(2, 1)
   
8. End Sub
   

复制代码

跳转到最佳答案楼层

qh8600

dim arr(1 To 3, 1 To 4)
放到最上面，定义为模块级变量
其他模块要调用用，就定义为公共变量public arr(1 to 3, 1 to 4)  

dsmch

1. Dim arr
   
2. Sub 数据源()
   
3. arr = [a14:d16]
   
4. End Sub
   
5. Sub lb()
   
6. 数据源
   
7. MsgBox arr(2, 1)
   
8. End Sub
   

复制代码

yilang521

dsmch 发表于 2014-5-22 12:50

这个分类标准是我在表中方便看的，实际情况是不存在的，只有在程序中才看得见

yilang521

yilang521 发表于 2014-5-22 15:00
这个分类标准是我在表中方便看的，实际情况是不存在的，只有在程序中才看得见

恩，好，我试试