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

0wchz

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,结果会是bb,a,b,c,d..  求a,结果会是bb,a,b,c,d.. 求b,结果会是bb,a,b,c,d..所以不好用，应该求bb,结果是bb   求a,结果会是a 求b,结果会是b..

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


前面帖子看不清重发一下，谢谢侠圣版主大家

0wchz

在新帖回复一下谢谢了，可以吗谢谢回复我的

0wchz

？？您看了那个 m只是集合呀，一下就是全部的bb,a,b,c,d,这些主模块父模块，
需要【调用aa模块，或公共变量】就可以在【哪个主模块】运行就得出主模块其 - type,name,codename,
bb要得出type=? ,name=bb ,codename=1
a要得出type=? ,name=a ,codename=3
这样，期盼你回复

0wchz

Sub bb()
proc = "bb" ''proc=bb???怎么求bb,a,b,c,d...
Call aa
MsgBox temp

End Sub

Sub a()
proc = "bb" ''proc=bb???怎么求bb,a,b,c,d...
Call aa
MsgBox temp

End Sub

Sub b()
proc = "bb" ''proc=bb???怎么求bb,a,b,c,d...
Call aa
MsgBox temp

End Sub

-----
Public proc, temp  'proc=当前程序，temp=父程序
Sub aa() 'proc="aa"
'子程序
temp = proc
Application.Run proc
proc = temp
MsgBox "temp.name= " & temp.Name & " ,temp.codename= " & temp.CodeName
End Sub
请问怎么实现？

0wchz

求助大家谢谢，

YZC51

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

大灰狼1976

不知道有没有理解错误，以下代码请参考。

1. Sub aa(Subname$, id&)
   
2. MsgBox "Parent's name: " & Subname & Chr(10) & "Parent's codename: " & id
   
3. End Sub
   
4. 
   
5. Sub bb()
   
6. Call aa("bb", 3)
   
7. End Sub
   
8. 
   
9. Sub a()
   
10. Call aa("a", 4)
    
11. End Sub
    
12. 
    
13. Sub b()
    
14. Call aa("b", 5)
    
15. End Sub

复制代码

0wchz

你好在呀，可是参数都要手写，很多父模块怎么办
Call aa("bb", 3)
类似括号里的参数需要语句给出才行的，
是怎么给出呀，公共的变量还是调用类似aa模块，

0wchz

父程序bb,a,b,c,d等等，如果可以有变量对应得到括号里面的两个参数吗

lipton

消息看到了，你的问题上个帖子已经答复你了。
明确的说你的思路是错的，没有必要这样使用模块。函数（方法）加上公用标识符在整个工程都可以直接调用
比如
Public Function 函数1（）
Public Sub 方法1（）
在使用模块时需要先了解这些模块的函数方法能做什么，只有了解了才会去使用，间接的调用方式不可取，越往后越累。