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

664094991

1. 
   

复制代码

664094991

micch 发表于 2019-6-14 09:10
我也不知道理解的对不对，简单说一下。

定义了一个公共变量，数组和常量。

对，就是这个意思！
首先是一个赋值过程，赋值给变量和数组，赋值以后他们的值已经固定。后面的过程不会再对他们赋值，但会调用他们。
我想要这样的效果，但是调用时数组会提示下标越界，变量也会成空值
怎么解决啊 ？

感谢感谢！！

micch

664094991 发表于 2019-6-14 09:23
对，就是这个意思！
首先是一个赋值过程，赋值给变量和数组，赋值以后他们的值已经固定。后面的过程不会 ...

赋值以后就固定不变，这个没关系，反正不影响调用。

调用时下标越界，变量a是空值，你可以查看是不是没有赋值。因为arr和a如果是空值，引用时会出现下标越界。

所以问题可能出在没有赋值上，调用公共变量的语句，必须在赋值语句之后，所以在调用前call一下赋值的子过程1.

lipton

尽可能不要使用公共全局变量，除非是常量，公共全局变量与过程是无耦合状态，

1. Sub cs1_a(ss() As Variant, lastRow As Long, shName As String)
   
2.     '过程：获取指定工作表列数据
   
3.     '参数：ss()动态数组,接收返回的数组
   
4.     '参数：lastRow，接收返回的指定列最大行数
   
5.     '参数：shName,要操作的工作表名
   
6.    
   
7.     Dim sh As Worksheet
   
8.     Dim i As Long
   
9.    
   
10.     '某种操作
    
11.     Erase ss '结果数组初始化
    
12.     Set sh = Sheets(shName) '实例化要操作的工作表
    
13.     lastRow = sh.Range("a65536").End(xlUp).Row '某列的最大非空行
    
14.     ReDim ss(1 To lastRow) As Variant '重新定义数组
    
15.    
    
16.     '数组赋值
    
17.     For i = 1 To lastRow
    
18.         ss(i) = sh.Cells(i, 1) '不要直接使用没有工作表前缀的Calls操作，容易出错
    
19.     Next i
    
20.     Set sh = Nothing '释放对象
    
21.    
    
22. End Sub
    
23. 
    
24. Sub cs2_main()
    
25.     '主过程
    
26.     Dim ss() As Variant
    
27.     Dim shName As String        '要操作的工作表名
    
28.     Dim lastRow As Long         '接收数组最大下标
    
29.     Dim i As Long
    
30.    
    
31.     '......
    
32.     shName = "sheet1"           '要操作的工作表名
    
33.     Call cs1_a(ss, lastRow, shName)
    
34.     '后续操作
    
35.     For i = 1 To lastRow
    
36.         ss(i) = ss(i) * 2 '操作返回的结果数组
    
37.     Next i
    
38.     '......
    
39. End Sub

复制代码

变化容易失控。应该用传递参数的方式来完成你期望的操作。

一个传递参数的例子：

664094991

求大佬们指点一下：
1、在两个子过程中都有变量a，而且重复赋值，有没有别的方法简化？
2、如何在cs2 中调用cs1 的数组arr()？

maditate

arr() 已经声明过公共变量了，在后面的过程中又重复声明，结果是前面声明的公共变量不起作用了。

664094991

maditate 发表于 2019-6-13 21:35
arr() 已经声明过公共变量了，在后面的过程中又重复声明，结果是前面声明的公共变量不起作用了。

大哥，不是这个原因，刚才重新编辑了

664094991

都没人看么？大哥们帮帮忙

ivccav

能帮你只有这么多了

1. Public arr, a%
   
2. 
   
3. Sub cs1()
   
4.     a = Range("A" & Rows.Count).End(3).Row
   
5.     arr = Range("a1:a" & a) '生成的必定是二维数组
   
6. End Sub
   
7. 
   
8. Sub cs2()
   
9.     Dim ss()
   
10.     Call cs1
    
11.     ReDim ss(1 To UBound(arr), 1 To 1)
    
12.    For i = 1 To UBound(arr)
    
13.         ss(i, 1) = arr(i, 1) * 2
    
14.    Next
    
15. End Sub
    
16. 
    

复制代码

664094991

ivccav 发表于 2019-6-13 21:59
能帮你只有这么多了

感谢热心回复，但是好像还是不行，变量a重复定义赋值的问题不是你说的这种解决方法，另外数组还是会提示下标越界

micch

没看懂，啥意思，一个过程给arr赋值，另一个过程想直接引用arr？

664094991

micch 发表于 2019-6-13 22:15
没看懂，啥意思，一个过程给arr赋值，另一个过程想直接引用arr？

对 ，是这个意思，这样 能不能行？

micch

664094991 发表于 2019-6-13 22:16
对 ，是这个意思，这样 能不能行？

我也是初学，刚测试了一下，定义公共变量，数组可以直接定义固定大小，然后一个过程给数组循环赋值，另一个过程可以直接引用数组，而不需要call过程。