加速VisualBasicForApplication(VBA)
2019-11-18 17:52:48
供稿：网友
如今的CPU的发展是越来越快，从386、486到今天的Pentium、PentiumⅡ，发展速度可谓快矣。然而，在CPU高速发展的同时，应用软件的“体重”也随之猛涨，从我学电脑时的几K、几十K，到今天的几十兆、几百兆，这变化连我自己都感到吃惊。CPU的进步，使人们工作更加快速，效率大增，同时也养成了人们“不求简”的不良习惯。笔者曾见过一位朋友正在编写一段程序，用的是VBA，程序代码如下：
WithActiveWindow
IfWindowState=wdWindowStateMaximizeThen'thisisthefirstpart!
MsgBox"ThisisaMaximizeWindow"
EndIf
IfWindowState=wdWindowStateMinimizeThen'thisisthesecondpart!
MsgBox"HereisaMinimizeWindow"
EndIf
IfWindowState=wdWindowStateNormalThen'thisisthethirdpart!
MsgBox"Nowhere,isaNormalWindow!"
EndIf
EndWith
乍看一下，似乎结构还挺漂亮，是个好程序。但细分析一下，你会发现，这段程序是个败笔。因为这三段程序没有实现应该具有的逻辑结构。我将这个意见告诉了这位朋友，他到很能听进话，马上修改了上述程序，具体程序代码如下：WithActiveWindow
IfWindowState=wdWindowStateMaximizeThen'thisisthefirstpart!
MsgBox"ThisisaMaximizeWindow"
ElseIfWindowState=wdWindowStateMinimizeThen'thisisthesecondpart!
MsgBox"HereisaMinimizeWindow"
ElseIfWindowState=wdWindowStateNormalThen'thisisthethirdpart!
MsgBox"Nowhere,isaNormalWindow!"
EndIf
Endwith
我的那位朋友写完这段程序后，冲我笑笑，意思说：“怎麽样？”我看了看这段程序，心想：如果WindowState不等于wdWindowStateMaximize的话，则要在判断WindowState是否等于wdWindowStateMinimize，如果还不等于的话呢？则要继续判断是否等于wdWindowStateNormal，这样下来，要闯三个“家门”方可进对，累不累啊？我看着不耐烦了，自己亲自编了一段程序：
SelectCaseWindowState
CasewdWindowStateMaximize'thisisthefirstpart!
MsgBox"ThisisaMaximizeWindow"
CasewdWindowStateMinimize'thisisthesecondpart!
MsgBox"HereisaMinimizeWindow"
CasewdWindowStateNormal'thisisthethirdpart!
MsgBox"Nowhere,isaNormalWindow!"
EndSelect
正如你所看到的，这段程序简练、易懂、可读性强，相信会为程序增色不少。而且如果调试起来，你会发现它的其他优点。难怪朋友恍然大悟呢！
其实，使用哪种判断语句，也是有章可循的。比如：如果有两种可能性，那麽可毫不犹豫地选择If/Elseif；对于两种或两种以上的可能性，最好选择SelectCase/EndSelect。多数情况下，如果只有一种唯一选择性的关系，那麽，"ifthen/endif"将是最佳选择。->
