[已解决]能否判断是自身运行，还是被调用运行

爱疯

1. 
   
2. Sub a()
   
3.     Call c
   
4. End Sub
   
5. 
   
6. Sub b()
   
7.     Call c
   
8. End Sub
   
9. 
   
10. Sub c()
    
11.     '希望c能单独运行，又能选择执行c:
    
12.     '如果是被a调用，就执行call d
    
13.     '如果是被b调用，不执行call d
    
14.     Call d
    
15. End Sub
    
16. 
    
17. Sub d()
    
18.     MsgBox "d"
    
19. End Sub
    

复制代码

请问：当C开始运行后，能否判断出是自身（c）运行，还是被哪个程序（a或b）调用才运行？
谢谢！

最佳答案

月排行榜 / 总排行榜

无聊的疯子

2012-8-16 09:37

爱疯 发表于 2012-8-16 09:23
谢谢无聊的疯子！
执行a后，没有执行d呀？

把过程放进去就可以了啊

1. 
   
2. Option Explicit
   
3. Dim Dy As String
   
4. Sub a()
   
5.   Dy = "a"
   
6.   Call c
   
7. End Sub
   
8. Sub b()
   
9.   Dy = "b"
   
10.   Call c
    
11. End Sub
    
12. Sub c()
    
13.   If Dy = "a" Then
    
14.     '放你的过程
    
15.     Call d("这是 由 A 过程传递过来的值！")
    
16.     Dy = ""
    
17.   ElseIf Dy = "b" Then
    
18.     '放你的过程
    
19.     Dy = ""
    
20.   Else
    
21.     Call d("这是C过程传递过来的")
    
22.   End If
    
23. End Sub
    
24. 
    
25. Sub d(S As String)
    
26.   MsgBox S
    
27. End Sub
    

复制代码

跳转到最佳答案楼层

fangcheng52013

这个得兰版解释了，~~~~~

无聊的疯子

过程里添加一个变量就行了啊

1. 
   
2. Dim Dy As String
   
3. Sub a()
   
4.   Dy = "a"
   
5.   Call c
   
6. End Sub
   
7. 
   
8. Sub b()
   
9.   Dy = "b"
   
10.   Call c
    
11. End Sub
    
12. 
    
13. Sub c()
    
14.   If Dy = "a" Then
    
15.     '放你的过程
    
16.     Dy = ""
    
17.   ElseIf Dy = "b" Then
    
18.     '放你的过程
    
19.     Dy = ""
    
20.   Else
    
21.     Call d
    
22.   End If
    
23. End Sub
    
24. 
    
25. Sub d()
    
26.   MsgBox "d"
    
27. End Sub
    

复制代码

爱疯

无聊的疯子 发表于 2012-8-16 07:49
过程里添加一个变量就行了啊

谢谢无聊的疯子！
执行a后，没有执行d呀？

无聊的疯子

爱疯 发表于 2012-8-16 09:23
谢谢无聊的疯子！
执行a后，没有执行d呀？

把过程放进去就可以了啊

1. 
   
2. Option Explicit
   
3. Dim Dy As String
   
4. Sub a()
   
5.   Dy = "a"
   
6.   Call c
   
7. End Sub
   
8. Sub b()
   
9.   Dy = "b"
   
10.   Call c
    
11. End Sub
    
12. Sub c()
    
13.   If Dy = "a" Then
    
14.     '放你的过程
    
15.     Call d("这是 由 A 过程传递过来的值！")
    
16.     Dy = ""
    
17.   ElseIf Dy = "b" Then
    
18.     '放你的过程
    
19.     Dy = ""
    
20.   Else
    
21.     Call d("这是C过程传递过来的")
    
22.   End If
    
23. End Sub
    
24. 
    
25. Sub d(S As String)
    
26.   MsgBox S
    
27. End Sub
    

复制代码

爱疯

学习了！

能取得当前执行的过程的过程名么?
虽然听来有些别扭，就像现实中在别人家玩的时候，突然想问他家的门牌号。{:011:}

无聊的疯子

爱疯 发表于 2012-8-16 09:55
学习了！

能取得当前执行的过程的过程名么?

来个比如呢？看看你想要的是啥样的结果

无聊的疯子

爱疯 发表于 2012-8-16 09:55
学习了！

能取得当前执行的过程的过程名么?

类似这样的效果么？

1. 
   
2. Option Explicit
   
3. Dim Dy As String
   
4. Sub a()
   
5.   Dy = "a"
   
6.   Call c
   
7. End Sub
   
8. Sub b()
   
9.   Dy = "b"
   
10.   Call c
    
11. End Sub
    
12. Sub c()
    
13. Dim S As String
    
14.   If Dy = "b" Then Exit Sub
    
15.   S = IIf(Dy = "a", "a", "c")
    
16.   Call d(S)
    
17. End Sub
    
18. 
    
19. Sub d(S As String)
    
20.   MsgBox "现在运行的是过程： " & S & " 传递过来的值！"
    
21. End Sub
    
22. 
    

复制代码

爱疯

无聊的疯子 发表于 2012-8-16 09:56
来个比如呢？看看你想要的是啥样的结果

瞎想的，因为看到有当前工作簿、当前工作表、当前单元格，

所以想有没有 当前模块、当前过程，

如果没有，是为什么。

无聊的疯子

爱疯 发表于 2012-8-16 10:08
瞎想的，因为看到有当前工作簿、当前工作表、当前单元格，

所以想有没有 当前模块、当前过程，

你可以去研究下病毒里的代码，应该对你有点用处