vba把模块名做参数变量？

0wchz · 发表于 2019-9-14 18:53

本帖最后由 0wchz 于 2019-9-16 09:52 编辑

cel-.zip (11.09 KB, 下载次数: 0) vba把模块名做参数变量

比如有
sub aa()'是第一个模块，名称=aa

end sub

现在怎么写公共变量，或参数引用sub aa()?
sub bb()

call aa''这可以
现在问题aa 怎么知道父程序bb,a,b,c,d...的模块名，序号？name  , codename,?
end sub谢谢
name=bb,codename=1??

编辑一下：
For Each m In ThisWorkbook.VBProject.VBComponents
  i = i + 1
  Cells(i, 1) = m.Type‘’m 不知道是哪个模块，现在需要m 是对应模块bb,a,b,c,d...，可是如何对应上？
  Cells(i, 2) = m.Name
Next

类似这代码，问题他不知道当前的父模块bb,a,b,c,d的序号i是什么？i应该等于自己模块的序号，并且序号很多而且不一定都全，比如序号1-100，可是可能没有模块2，模块35，36，因为工作簿自己会删除某些模块其余的保存，
要知道bb,a,b,c,d的 i值，怎么求，谢谢

yylucke · 发表于 2019-9-14 19:14

你自己写代码为何要采用这种动态过程名，为难自己。

0wchz · 发表于 2019-9-14 19:43

本帖最后由 0wchz 于 2019-9-14 19:48 编辑

因为要运行模块，可能几个模块一次一起运行，有的另外单独的运行。
主要是运行时要把模块的 name codename做参数变量，引用他们怎么办，谢谢
可这样有的一起运行，有的独立运行，怎么放公共变量？放在哪里？

zopey · 发表于 2019-9-14 20:33

stra=“aa”
Application.Run stra

YZC51 · 发表于 2019-9-14 20:38

请参考http://club.excelhome.net/thread-980726-1-1.html

0wchz · 发表于 2019-9-14 20:39

需要 VBProject.VBComponents
模块的 name codename
怎么把两个名称做参数，或作公共变量引用？

0wchz · 发表于 2019-9-14 20:46

本帖最后由 0wchz 于 2019-9-14 20:49 编辑

谢谢你好，可是不用循环不用for那些，
一个句子直接找到 name codename有办法吗？
只取出现在的运行的模块名称变量，不取其他模块的名称变量怎么办，

0wchz · 发表于 2019-9-15 08:12

请问哪个模块运行就把此模块 name codename做变量记下，
可以在每一个模块加入这个功能的语句，
也可以单独写个过程函数实现功能，
怎么办

0wchz · 发表于 2019-9-15 09:21

可以在每一个模块加入这个功能的语句，
也可以单独写个过程函数实现功能，
怎么办

microyip · 发表于 2019-9-15 09:33

怎么看了半天，一直都在自言自语？

		自动登录	找回密码
密码			免费注册

[求助] vba把模块名做参数变量？