公共变量如何定义？ 数组如何调用？

664094991

micch 发表于 2019-6-13 22:25
我也是初学，刚测试了一下，定义公共变量，数组可以直接定义固定大小，然后一个过程给数组循环赋值，另一 ...

这只是个例子，我写别的代码的时候需要这样用，示例中我只是简化了代码 仅仅放出问题而已

zopey

在 主sub 中，  call  子sub：数组初始化。这个只是在用到arr的时候 才加载内存， 比较好。

micch

664094991 发表于 2019-6-13 22:28
这只是个例子，我写别的代码的时候需要这样用，示例中我只是简化了代码 仅仅放出问题而已

1. Dim arr(), a%
   
2. Sub test1()
   
3.     a = 99
   
4.     ReDim Preserve arr(1 To a)
   
5.     arr(5) = 100
   
6. End Sub
   
7. Sub test2()
   
8.     x = a
   
9.     x = arr(5)
   
10. End Sub

复制代码

执行代码时，x=a 结果是99
x=arr(5)结果是100
不需要a赋值两次，也不需要call test1()

zopey

micch 发表于 2019-6-13 22:32
执行代码时，x=a 结果是99
x=arr(5)结果是100
不需要a赋值两次，也不需要call test1()

开始 不运行test1 ，你直接 运行test2 ，试试看 。

664094991

zopey 发表于 2019-6-13 22:36
开始 不运行test1 ，你直接 运行test2 ，试试看 。

所以到底怎么解决啊？大哥
感谢热心回复。。

micch

zopey 发表于 2019-6-13 22:36
开始 不运行test1 ，你直接 运行test2 ，试试看 。

呃，直接运行test2，结果都是空值，很正常啊，定义了变量不赋值，当然变量是空值啊，公共变量也得赋值啊；

如果在test2给公共变量赋值，那在test1里直接引用变量，值就是test2赋值的值。

无论哪个过程引用公共变量，都是变量当前的值吧？

zopey

664094991 发表于 2019-6-13 22:40
所以到底怎么解决啊？大哥
感谢热心回复。。

1. Public arr, a
   
2. 
   
3. Sub cs1()
   
4.     a = [a1].End(4).Row
   
5.     arr = [a1].Resize(a, 1)
   
6. End Sub
   
7. 
   
8. Sub cs2()
   
9.     Dim ss()
   
10.     Call cs1
    
11.    
    
12.     ReDim ss(1 To a)
    
13.     For i = 1 To UBound(arr)
    
14.         ss(i) = arr(i, 1) * 2
    
15.     Next
    
16. End Sub

复制代码

vbexcelhome

如果要作为全局公共变量，就要把这个变量放在模块中。

renkangjizhen

到底想达到啥目的？把诉求说明白，大家才能帮你！你是对引用二维数组的值的方法不明白，还是对引用公共变量不明白？

ivccav

664094991 发表于 2019-6-13 22:05
感谢热心回复，但是好像还是不行，变量a重复定义赋值的问题不是你说的这种解决方法，另外数组还是会提示 ...

你什么都不懂，多学少说。变量a根本不需要重复定义，两个过程的值都是最后一行。最重要的，你问的问题是什么玩意啊，你自己看得懂你在问什么吗？我只能猜你你到底想问什么。但你的方法是错误的