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

ivccav

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

不懂别装懂。你首先要有把问题说清楚的能力(目前看来你不具备这种能力，不知是不是基础太差的原因)，其次你得有附件

664094991

micch 发表于 2019-6-13 22:44
呃，直接运行test2，结果都是空值，很正常啊，定义了变量不赋值，当然变量是空值啊，公共变量也得赋值啊 ...

感谢热心回复 ，我重新编辑了，你看看我上传的文字说明吧。

664094991

renkangjizhen 发表于 2019-6-14 05:38
到底想达到啥目的？把诉求说明白，大家才能帮你！你是对引用二维数组的值的方法不明白，还是对引用公共变量 ...

感谢热心回复 ，我重新编辑了，你看看我上传的文字说明吧。

664094991

ivccav 发表于 2019-6-14 07:46
不懂别装懂。你首先要有把问题说清楚的能力(目前看来你不具备这种能力，不知是不是基础太差的原因)，其次 ...

有附件了的 ，麻烦下载看看， 另外我重新编辑了，你看看我上传的文字说明吧。

micch

664094991 发表于 2019-6-14 08:50
感谢热心回复 ，我重新编辑了，你看看我上传的文字说明吧。

我也不知道理解的对不对，简单说一下。

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

你想在多个过程中调用，但是这两个变量的值需要一个过程来赋值。那么你就需要运行赋值的子过程1，否则直接运行调用公共变量的过程，公共变量还没赋值就是空值。

所以执行任意子过程之前需要调用一次赋值的子过程，这样公共变量才是有值的。然后再执行任意子过程时，公共变量都是有值的，并且在子过程2执行时改变了公共变量的值，在子过程3执行时调用的公共变量的值就是子过程2改变后的值。

如果子过程2没对公共变量进行改变，那么子过程3调用时值还是赋值过程对公共变量赋值的结果。

执行程序肯定有个先后，如果想第一个执行子过程2，那么公共变量还没有赋值，所以需要call子过程1进行赋值，之后执行子过程3,4,5等等就不需要再call了。

如果你只有两个过程，那就不用麻烦了，合一个过程吧。如果有很多过程，如果每个过程都是单独执行，互不联系，那么每个过程执行前都需要call子过程1，赋值，然后再执行本过程。如果是很多过程一起执行，那么保证执行的顺序，第一个是子过程1赋值，后面不需要call了。如果执行顺序里没有子过程1，那么执行的第一个子过程需要加call子过程1的步骤

fanyoulin

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

1、我看了你代码，下标出界是指ss这个数组出界，你没有定义任何数组元素，你的代码：
    Dim ss()
    a = Range("A" & Rows.Count).End(3).Row
    Call cs1
    For i = 1 To UBound(arr)
         ss(i) = arr(i) * 2         '这个地方明显不行
    Next

2、定义公共变量用public，你定义的没问题。把你的代码修改下就可以通过了
    Dim ss()
    ReDim ss(1 To a)      ’这里的a会使用cs1过程里设定的参数值
    Call cs1
    For i = 1 To UBound(arr)
         ss(i) = arr(i) * 2
    Next

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

lipton 发表于 2019-6-14 11:01
尽可能不要使用公共全局变量，除非是常量，公共全局变量与过程是无耦合状态，变化容易失控。应该用传递参数 ...

非常感谢您的热心回复！