[已解决]excel宏多个模块如何定义同一个全局变量

水中游

我有a、b、c三个宏模块，每个里面都有一个变量 dim sj as date, 这三个模块使用时都会调用另外一个模块d模块，怎么才能a、b、c每个模块调用d模块时，都能把变量sj传递到d模块呢？

我现在a模块sub 上面最上一行 写上Public sj As Date 后，a模块运行sj变量可以传递到d模块
当我把a、b、c每个模块sub上面最上一行都加上Public sj As Date 后，每个模块运行到d模块后，就会出错，提示：发现二义性名称

请问各位老师，该怎么弄才能让a、b、c三个模块sj变量都能传递到d模块呢？


最后总算解决了：abc三个模块，不管哪个模块，运不运行，只需在任意一个(也只能一个)上面加个全局变量 Pablic就可以了

我是2个以上模块都加了相同的全局变量出问题的。

最佳答案

月排行榜 / 总排行榜

qh8600

2014-11-4 17:39

就定义一个公共变量就行了

跳转到最佳答案楼层

Select

看了附件，理解了需求，才好说

qh8600

就定义一个公共变量就行了

水中游

Select 发表于 2014-11-4 17:37
看了附件，理解了需求，才好说

代码在模块里面上传附件，好像上传不了：
大概这样：
sub 模块a()
dim sj as date
call 模块d
end sub

sub 模块b()
dim sj as date
call 模块d
end sub

sub 模块c()
dim sj as date
call 模块d
end sub

sub 模块d
range("a1")=sj
end sub

水中游

Select 发表于 2014-11-4 17:37
看了附件，理解了需求，才好说

代码在模块里面上传附件，好像上传不了：
每次模块abc都是单独使用的，大概这样：
sub 模块a()
dim sj as date
call 模块d
end sub

sub 模块b()
dim sj as date
call 模块d
end sub

sub 模块c()
dim sj as date
call 模块d
end sub

sub 模块d
range("a1")=sj
end sub

水中游

qh8600 发表于 2014-11-4 17:39
就定义一个公共变量就行了

a、b、c  3个模块都是单独使用的，怎么设置，在哪设置全局变量呢？

qh8600

水中游 发表于 2014-11-5 14:15
a、b、c  3个模块都是单独使用的，怎么设置，在哪设置全局变量呢？

模块上面
全局变量
sub t()
......
end sub
sub x()
....
end sub

qh8600

水中游 发表于 2014-11-5 14:15
a、b、c  3个模块都是单独使用的，怎么设置，在哪设置全局变量呢？

模块上面 如下
全局变量
sub t()
......
end sub
sub x()
....
end sub

Select

还是等看了附件，理解了需求，再看吧。
附件需要先压缩，不能过大，多试下上传看看？

水中游

qh8600 发表于 2014-11-5 14:24
模块上面 如下
全局变量
sub t()

全局变量是用 Public sj As Date  这个吗？

abc三个模块不是同时使用的，三个模块有不同功能，每次只使用其中一个，比如在a模块sub上上一行加上Public sj As Date 后，这个a模块就传递变量了，但是不用a模块时，用b或c模块时，就不能传递变量了？