说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

加速Visual Basic For Application(VBA)

HTML文档下载 WORD文档下载 PDF文档下载
加速Visual Basic For Application(VBA)
如今的CPU的发展是越来越快,从386、486到今天的Pentium、Pentium Ⅱ,发展速度可谓快矣。然而,在CPU高速发展的同时,应用软件的“体重”也随之猛涨,从我学电脑时的几K、几十K ,到今天的几十兆、几百兆,这变化连我自己都感到吃惊。CPU的进步,使人们工作更加快速,效率大增,同时也养成了人们“不求简”的不良习惯。笔者曾见过一位朋友正在编写一段程序,用的是VBA,程序代码如下:
  With ActiveWindow
  If WindowState = wdWindowStateMaximize Then ’this is the first part!
  MsgBox "This is a Maximize Window"
  End If
  If WindowState = wdWindowStateMinimize Then ’this is the second part!
  MsgBox "Here is a Minimize Window"
  End If
  If WindowState = wdWindowStateNormal Then ’this is the third part!
  MsgBox "Now here, is a Normal Window!"
  End If
  End With
  乍看一下,似乎结构还挺漂亮,是个好程序。但细分析一下,你会发现,这段程序是个败笔。因为这三段程序没有实现应该具有的逻辑结构。我将这个意见告诉了这位朋友,他到很能听进话,马上修改了上述程序,具体程序代码如下: With ActiveWindow
  If WindowState = wdWindowStateMaximize Then ’this is the first part!
  MsgBox "This is a Maximize Window"
  ElseIf WindowState = wdWindowStateMinimize Then ’this is the second part!
  MsgBox "Here is a Minimize Window"
  ElseIf WindowState = wdWindowStateNormal Then ' this is the third part!
  MsgBox "Now here, is a Normal Window!"
  End If
  End with
  我的那位朋友写完这段程序后,冲我笑笑,意思说:“怎麽样?”我看了看这段程序,心想:如果WindowState 不等于 wdWindowStateMaximize的话,则要在判断WindowState是否等于 wdWindowStateMinimize ,如果还不等于的话呢?则要继续判断是否等于wdWindowStateNormal,这样下来,要闯三个“家门”方可进对,累不累啊?我看着不耐烦了,自己亲自编了一段程序:
  Select Case WindowState
   Case wdWindowStateMaximize ’this is the first part!
   MsgBox "This is a Maximize Window"
   Case wdWindowStateMinimize ’this is the second part!
   MsgBox "Here is a Minimize Window"
   Case wdWindowStateNormal ' this is the third part!
   MsgBox "Now here, is a Normal Window!"
  End Select
  正如你所看到的,这段程序简练、易懂、可读性强,相信会为程序增色不少。而且如果调试起来,你会发现它的其他优点。难怪朋友恍然大悟呢!
  其实,使用哪种判断语句,也是有章可循的。比如:如果有两种可能性,那麽可毫不犹豫地选择If/Elseif;对于两种或两种以上的可能性,最好选择Select Case/End Select。多数情况下,如果只有一种唯一选择性的关系,那麽,"if then/endif" 将是最佳选择。
雅虎宣布开发新的搜索工具 创新用户界面 前谷歌高管给初入职场新人的14条忠告 业界良心 Facebook下一步将开源交换机 Google Glass:未上市先遇阻 TIOBE 2013年5月编程语言排行榜:Objective-C再度反超C++ 开发者需知的10类工具 林仕鼎:架构设计与架构师 跨平台工具火拼:Icenium与PhoneGap Build谁属王者? 索尼终于想明白了:PlayStation生态走向开放 高达10亿美元,Facebook为什么要收购Waze? Cocos2D-X成全球第二大游戏引擎 仅次于Unity 亲爱的苹果,能不能别让应用太廉价? 陈晓影:一位女海归曲折的拓荒故事 IDG李丰:在中国,创业公司最好是一个One Man Company Google Drive新增“保存到Drive”按钮功能 可自行添加 腾讯CDC创始人唐沐加盟小米 总经理陈妍接任 老板我想辞职:因为小米100万元征集一张壁纸 移动周报:GitHub上最火的Android开源项目 免费才是王道:盘点开发者须知的25个免费数据可视化工具 Pivotal获通用电气1.05亿美元支持 或将改变大数据和物联网的游戏规则 大掌门与阿里云和解:云生态系统呼之欲出 刘有涛:恩信科技云计算大潮中扬帆起航 Cloudera释放Impala 1.0:与Hadoop完全整合,各方面完爆Hive 云通讯平台:让你的应用会说话 触宝用户过亿,CEO王佳梁常说的词是“创新” 全国电脑健康日启动 360搭建电脑维修开放平台 C语言实现归并排序 360石晓虹:针对移动Apps的DDoS攻击将成重大威胁 更社交化:谷歌将推出Google Play平台服务 C语言对磁盘文件进行快速排序 传Google已关闭短信搜索服务 哪里有windows xp sp1+vlk 版的下载? 关于JSP和SERVLET 请问哪里有关于directShow的论坛? Delphi5.0 & Paradox 域的本机模式和混合模式都指的事什么 老师要求编写五子棋的程序可是我实在想不出该怎么设定估价函数啊帮帮忙啊? 关于客户端和服务器端连接的问题 在C书上看到这个题目,不会,请高手帮忙解决一下:) submit与frame 焦点移动的问题……(高分求助)!(--已经发过一次了) 微软,我该如何跟随你?(来讨论一下,没分送哦) 关于Request的问题 向高手请教一些专业网址! 网络IP前后不一样 如何查看csdn的精华帖子? [原创]VC#.NET:XML代码注释在智能感应中的使用 怎样在WIN98下不重新启动就可以删除打印处理器文件? 批量复制数据问题,access数据库 在页面中现实数据库的一个字段(大量的文本),用什么最好?? 一些问题,希望大家给点指点! 谁有那种实现股票走势图/趋势图的那种控件 如何控制随意修改个人IP地址 如何叠加两幅大小相等的图片成为一幅图片?其中上面的图片有透明的部分。 请教一个小小的时钟程序 爱情?亲情?友情? COM+问题 请问有关group by,并且insert数据的问题. 如何设置edit中的内容自动折行,能出现垂直滚动条???在线等待!!! 关于在DLL中使用Mscom控件的问题 如何將字符串以十六進制的形式顯示在Edit中 关于SOCK5代理服务器的第二次协商问题? 为什么oracle的sql语句的表名必须加“”??? 谁能解决工具条中的一问题?50分相送 ##### 100分求教:如何实现框架集下页面的定向输出?##### 菜单菜单!!! 如何用Schema验证XML文档 JSP中jsp文件和bean的class文件的相对位置是怎么样啊? excel中的两个问题:1、如何关闭userForm1窗口?2、如何在打开userForm1窗口时使主窗口最小化? Dll函数问题 咋判断用户点的四点能围成一个四边形? 网站中的某一页嵌入VB的AtiveX 控件,客户端能访问网站,但不能打开AtiveX控件。。。高分 请问怎么把 string 型转换成 System.Data.SqlDbType 型? 机器无法启动 主板有问题吗 高分请教 创建不了C#Web项目,急!!!(刚学C#) [求助] 用fopen函数读不出URL文件? 怎么判断listview是否有一个item被选中? 请说一下硬盘容量和内存容量的关系! ▄▅▆▇█ 水园的大背景离不开吵架 █▇▆▅▄ 请教mm有个问题! linux下的编程问题 什么是动滑轮和定滑轮? 有关女精神病宇航员的科幻电影,女天才飞行员,一个人驾驶宇宙飞船在太空生活,经常念莎士比亚的名言 有一个粮库,原来存有一批粮食,运走3分之2后,又运进粮食5.6吨,这时现有存量是原来存量的5分之4,粮库原有存量多少吨?要用分数的应用的方法来计算! 驱动力怎么样 麻利的反义词 谁有世博馆叶子车的详细介绍? 用山清水秀,美不胜收,万紫千红写几句描写风景秀丽话.作业本上划了4条线,估计50字多一点. 为什么说推动例子跨膜扩散的是化学驱动力 空旷和麻利的反义词 写几句话,40字左右.在军训中肯定遇到过困难,你是怎样克服的?请简要说出理由. 求表达爱慕的古诗诗句.诗中要隐含白耀和许心蕊.希望可以在最近几天解决. 蜗牛在哪里爬得快 关于薛定谔的猫 有没有人有比较独到的体会领悟~求教 经典量子物理学说 反义词:枯燥 通俗 爱慕 慈祥还有近意词:教诲 激励 这只蜗牛爬了多少厘米? 求物理小故事 快恩...一个物理小故事..几百字就好..最好是有关初中物理知识的......精彩点的... 高中详细人物素材 为什么一个蜗牛要爬到另一个蜗牛上? 为什么一个橡皮泥可以沉底,但是把它捏成一个船型的就可以漂浮呢,谁能用阿基米德原来解释. 求高中人物素材 一三是反义词的成语? 学霸快到这里来 明亮,黄昏,敞开的反义词是什么? 初几学物理化学? 为何促织中“操童子业”作读书解?是不是有来由呢? 敞开和关闭是反义词 元素的族怎么背? (.Y.)这个图案有什么无解操含义? 下列物质的归类正确的是?化合物:中水、双氧水、矿泉水非电解质:Cl2、BaSO4、C2H5OH共价化合物:CO2、SO3、AlCl3 对称轴的条数最少的是 a 等边三角形 b 正六边形 c正方形 d圆 手操器和变送器通讯时,为什么要串联250欧电阻, 沉重的反义词是什么?责备的反义词是什么?敞开的反义词是什么? 记金华的双龙洞作者从哪三个方面来写溪流的? 为什么c离子的化合价是Mn离子的0.4倍? 敞开的反义词是什么. 形式逻辑与语言交际的一.填空.对“所有抢劫犯罪都不是过失犯罪”换位后所得命题是( ).二.证明如下推出关系1.A→B,A→C├A→B∨C 2.A→C,B →D,A ∨B ├ C ∨D 人在全氧的环境下能活吗? 甲、乙两人分乘两只小船在湖中掉鱼,相距24M,有一列水波从湖面上传播开来,每知船每分钟上下振动20次,当帮我解决一下 英语翻译 Na有几种化合价?它的最高化合价和最低化合价分别是多少?是学到高中电子排部式时的课后习题……说是...Na有几种化合价?它的最高化合价和最低化合价分别是多少?是学到高中电子排部式时 光的干涉与光的衍射从“粒子性”角度如何解释? 请根据提示的语言,用成语写出交往模式年龄相差悬殊之交( )平民之交( )情谊极深之交( )思想感情一致之交( )道义之交( ) 下午2时,小红在操场上插一根1m高的竹竿,量得竹竿的影长是0.8米,在同一时刻,小红量得一棵树的影长为5.6m,你能算出这棵树的实际高度吗?在同一时刻,小华也在操场上插了根3米长的竹竿,你知道 在海上有一长35m的船以相对3m/s的速度逆着水波行进的方向航行.同一波峰从与船头相遇到离开船尾历时5s,两个相邻的波峰到达码头的时间间隔为6s.试计算该波相对于岸的波速和波长.这道题我 口语是什么的体现,是运用说话的方式达到交际的目的的什么? 下午2时,小红在操场上插了一根1m高的竹竿,量得竹竿的影长0.8m,在同一时刻,小红量得一棵树的影长为5.6m,你能算出这棵树的实际高度吗?在同一时刻,小华也在操场上插了一根3m长的竹竿,你知道 如图,Rt△ABC是一防洪堤背水波的横截面图,斜坡AB的长为13米,它的坡角为45°,为了 提高防洪能力,现将背水坡改造成坡比AC:DC为1:1.5的斜坡AD,求DB的长,结果精确到0.1m 短周期元素 下午2时,小红在操场上插了一根1m高的竹竿,量得竹竿的影长是0.8m,在同一时刻,小红量得一棵树的影长为5.6m这棵树的实际高度是多少?同一时刻,小华也在操场上插了一棵3m长的竹竿,这小华竹竿 麻利的反义词是 一个粮仓,原来存有一批粮食,远走2/5以后,又运进粮食5.5吨,这时的存粮恰好是原来存粮的80%,问原来存有粮食多少吨? ABCDE分别是什么 麻利的近反义词是什么 短周期元素的特点 随着山势,溪流时而宽,时而窄,时而缓,时而急,溪声也时时变换调子 这句话从声音的角度描写景物,运用的修辞方法( )A比喻B拟人C夸张 在研究声在空气中是怎样传播时,与水波的传播进行比较的方法称为 有一个粮库,原来存有一批粮食,运走1/4后有一个粮库,原来存有一批粮食,运走四分之二后,又进粮食5.6吨,这时,现在粮食是原来存粮的120%,原有粮食多少吨? 相同温度下,下列实验过程中,溶液的浓度和质量始终不变的是 A.向浓度盐酸中持续通入干燥洁净的空气 B.A.向浓度盐酸中持续通入干燥洁净的空气B.向KNO3饱和溶液中加入ngKNO3晶体C.向质 美国宇航员阿姆斯特登上月球时所说的名言是? 人类是怎么创造出语言的?人本来不是什么都不会就是猴子进化来的,怎么会有主宰的?为什么会选主宰,在那时语言不是都不知道是什么吗?人类是怎么产生主宰的,是不是先是那些族长做主宰 智利科金博附近海域发生6.6级地震 杭州本周末或是最后一个有桂花香的周末夏宝龙:治污水防洪水防内涝 全面打好斯诺登将为俄网站“打工”芝加哥农产品期价31日全面下跌菲律宾议员“港人生命值钱说”激起香港美国女童目睹家人被烧死 获赔1.5亿梅丽尔·斯特里普曾有婚外恋俄罗斯核武部队大规模战略演习 抗衡北儿子接父亲同住享清福 父亲天天赌博逼男子电话打到派出所求厕纸 不多久再抱杭州13岁女生撒谎离家失踪5天 曾结医生举报官员公款出游 出门戴钢盔执擀台湾花莲地震波及浙江 温州某酒店上演台湾花莲地震波及浙江 居民称高楼摇晃国家级电视剧节目推介会首次移师杭州杭州政协委员建议传统产业“电商化”杭州重机厂将变身时尚商业中心浙江省提前3个多月完成全年保障房任务杭州未来两年技术研发类人才需求最大感动!美男子车祸变残障女友不弃结连理图解各个行业的成本真相月初上传说两套卡组推荐 动物园咆哮德小伙手拿父亲遗照游遍北京海报时尚网专访意大利“极简主义建筑设FIFA国家队排名:阿根廷第一兰帕德:切赫让枪手成为争冠热门东风汽车哭晕在厕所:一亿存款不翼而飞官方:阿斯顿维拉签约诺维奇门将李克强释放重要信号:请注意一个数字威尔希尔:英超强度要求高的惊人微软公布Windows 10 技术预现实版变形金刚 美日两大机器人将对决你还戴套吗?看完吓死你!吉米-巴特勒经纪人:巴特勒很满意新合300年后的人类,惊呆了!沃格尔:加快进攻的同时不忘防守万一被骗,钱已汇出,教你拿回钱的绝招LG中端机G4 Beat发布 激光对旅德设计师:我为什么劝你让孩子重玩积阿里巴巴大动作提振阿里健康业务 移动有时候,越狱也是一件蠢事
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘