[已解决]如何知道一直运行的程序在那个 sub 中运行？

和气生财

有个疑问，还请指点：

我运行包含几个sub ... end sub 组成的VBA代码时，VBA窗口一直显示“运行”状态 ----- 实际也是一直运行，连键盘信息都不接收。

那么有啥方法知道代码运行在那个 sub ... end sub 中么？

我现在用两个 msgbox 语句放在开头和结尾进行排查，可我觉得应该有更好的方法。谢谢。

[此贴子已经被作者于2009-11-25 12:45:31编辑过]

最佳答案

月排行榜 / 总排行榜

FookYou

2009-11-25 07:44

Sub aa()
  Application.StatusBar = "程序运行中..."
  [程序]
  Application.StatusBar = "就绪"
End Sub

跳转到最佳答案楼层

wsfsy

F8逐条执行、F9设置断点

caya03

加个stop试试

和气生财

谢谢楼上两位，如果 sub ... end sub 少的话建议是行得通的。可是目前的Excel 文件中 sub .... end sub 太多，，，，

FookYou

Sub aa()
  Application.StatusBar = "程序运行中..."
  [程序]
  Application.StatusBar = "就绪"
End Sub

g11

我也碰到过这种情况，怀疑代码设置不当引起的，不知道怎么解决

吕?布

按Ctrl+Break中断，进入调试状态

用Msgbox？要吧进一步改成Debug.Print,文本文件

和气生财

5楼，7楼的方法都有道理，特别是5楼，看看能否将sub 名称弄上去，，，，，，

谢谢各位，，，

和气生财

QUOTE:

以下是引用FookYou在2009-11-25 7:44:00的发言：
Sub aa()
  Application.StatusBar = "程序运行中..."
  [程序]
  Application.StatusBar = "就绪"
End Sub

我改动了一下。虽然还要一个一个的加这两行，不是我想象中的那么快速，还是给出最佳以资鼓励吧，，，，

Sub aa()
  Application.StatusBar = "aa() 运行中..."
  [程序]
  Application.StatusBar = "就绪"
End Sub

[此贴子已经被作者于2009-11-25 14:48:02编辑过]

和气生财

QUOTE:

以下是引用吕?布在2009-11-25 10:50:00的发言：

按Ctrl+Break中断，进入调试状态

用Msgbox？要吧进一步改成Debug.Print,文本文件

这个方法也行，而且有记录保存。不过对我这个情况，还是在界面上看直观一些。

谢谢啊，不愧同是一个队的，，，，