【求教】不让msgbox弹出来？

xdwy81129

【求教】不让msgbox弹出来？
有很多宏，我里面都些了msgbox "学习向上"，等等
比如有宏：sub 用户，sub 考试，sub会计等等里面都含有msgbox语句
现在做了一个宏，如下
sub 总
run "用户"
RUN "考试"
run "会计"
endSUB
希望实现的是，在执行这个“总”宏的时候，里面的msgbox不要弹出来，请求各位看看有什么方法没有
备注：不把原来的如宏“用户”设计为带参数的宏来实现，因为这样要都出同样的宏出来

谢谢解答

吕?布

xdwy81129 发表于 2011-8-18 19:08
回复 吕?布 的帖子

if 什么呢？？

#Const DebugVersion = False
Sub tt()
    #If DebugVersion Then
        MsgBox "DebugVersion"
    #Else
        MsgBox "ReleaseVersion"
    #End If
End Sub

吕?布

这个估计你所有的MsgBox语句要写在#If...Then...#Else内，或 者象你所说的，自己把MsgBox封装一下，加入一个开关参数

xdwy81129

回复 吕?布 的帖子

if 什么呢？？
不知道怎么设计下，反正不想多写一个宏出来

Select

不知道。
看来没简单办法，就算有，恐怕不简单{:111:}

xdwy81129

回复 吕?布 的帖子

很谢谢吕布，只是看不懂里面的原理，可以讲解告诉下为什么实现吗？？

吕?布

1. 实际上原理与if... then语句一样的，就是一个条件语句再加一个常量控制开关。
2. 条件编译语句对于编译语言来讲，会选择性编译代码成可执行文件。对于VBA,是不是选择性编译不太确定。
3. VBA中条件编译参数可能在模块中设定，#Const DebugVersion = False;也可以在工程属性中设定，DebugVersion = 1

hhzjxss

总开关