善用VBA 提高工作效率

来源 :电脑迷 | 被引量 : 0次 | 上传用户:yizhanghong
下载到本地 , 更方便阅读
声明 : 本文档内容版权归属内容提供方 , 如果您对本文有版权争议 , 可与客服联系进行内容授权或下架
论文部分内容阅读
  在开始介绍本期的VBA相关技巧之前,我们先来复习一下VBA的操作方法:按下“Alt+F11”组合键,打开Microsoft Visual Basic for Applications编辑器窗口,依次选择“插入/模块”,在右侧窗格插入一个空白模块,手工输入或粘贴代码。代码检查无误之后,选择“文件/关闭并返回到Microsoft Excel”命令,返回Excel主界面,按下“Alt+F8”组合键,打开“宏”对话框,选择并运行宏即可实现相应操作。
  利用VBA代码快速查找数据
  并提取内容
  在工作中遇到一个问题,要求从Sheet2工作表查找出相关会员的分数和总排名(如图1),并将其显示在Sheet3,由于原始表格的数据太大,使用公式的话耗费的时间相对比较多,领导并不满意,因此考虑使用VBA代码实现上述任务。
  按下“Alt+F11”组合键,打开Microsoft Visual Basic for Applications编辑器窗口,依次选择“插入/模块”,在右侧窗格插入一个空白模块(如图2),在这里手工输入或粘贴如下代码(相关代码可关注电脑迷微信回复“201506vba1”获取下载链接)。
  上述代码检查无误之后,依次选择“文件/关闭并返回到Microsoft Excel”命令,返回Excel主界面,按下“Alt+F8”组合键,打开“宏”对话框,选择并运行宏,很快就可以完成数据查找和复制的任务。
  利用VBA代码批量删除特定行
  最近从金蝶财务软件中导出相关的明细帐(如图3),需要删除其中包含“期初余额”、“本日合计”、“本月合计”、“本年累计”、“结转下年”单元格所在的行,由于数据量接近数十万条,手工删除显然相当麻烦。我们可以使用VBA代码解决这一问题。
  按下“Alt+F11”组合键,打开Microsoft Visual Basic for Applications编辑器窗口,依次选择“插入/模块”,在右侧窗格插入一个空白模块。经过分析,包含相关单元格内容的行,在B列均为空白,因此我们可以在模块窗格手工输入或粘贴如下代码(相关代码可关注电脑迷微信回复“201506vba2”获取下载链接)(如图4)。
  该代码换了一种思路,主要是删除B列非空白的数据,检查无误之后,依次选择“文件/关闭并返回到Microsoft Excel”命令,返回Excel主界面,按下“Alt+F8”组合键,打开“宏”对话框,选择并运行宏,很快就可以完成批量删除的任务(如图5)。
  利用VBA代码拼音
  提取注音文本
  手头有一篇拼音标注的佛经注音校对文档,其中的拼音是使用域代码实现的,切换域代码之后(如图6),可以发现大量类似于“(chénɡ),乘)”的文字,现在希望借助某种手段,将其中的注音文本提取出来复制到文档的末尾,除了手工操作之外,有没有简单一些的方法呢?
  利用VBA代码可以解决这一问题,按下“Alt+F11”组合键,打开Microsoft Visual Basic for Applications编辑器窗口,依次选择“插入/模块”,在右侧窗格插入一个空白模块,手工粘贴或输入代码(相关代码可关注电脑迷微信回复“201506vba3”获取下载链接)。
  代码检查无误之后,依次选择“文件/关闭并返回到Microsoft Word”命令,返回Word主界面,按下“Alt+F8”组合键,打开“宏”对话框,选择并运行宏,很快就可以得到结果(如图7)。
  利用VBA代码实现复杂查重任务
  最近在工作中遇到一个比较复杂的要求,需要对“数据表”工作表中B列(户口编号)、D列(户主姓名)进行查重操作,希望在查询到重复的户主信息之后,将相关信息在“校验信息”工作表A列的空白单元格显示。我们可以通过VBA代码实现上述要求:
  按下“Alt+F11”组合键,打开Microsoft Visual Basic for Applications编辑器窗口,依次选择“插入/模块”,在右侧窗格插入一个空白模块(如图8),手工输入或粘贴如下代码(相关代码可关注电脑迷微信回复“201506vba4”获取下载链接)。
  代码中的“[A2:A10000]”表示放置查重信息的区域,“[A2]”表示起始单元格,也可以根据实际情况重新调整。检查无误之后,选择“文件/关闭并返回到Microsoft Excel”命令,返回Excel主界面,按下“Alt+F8”组合键,打开“宏”对话框,选择并运行宏,即得(如图9)。
其他文献
为总结糖尿病合并银屑病患者的护理要点。作者回顾分析10例糖尿病台并银屑病患者的临床特点,治疗及护理过程。提出加强饮食、运动,皮肤护理及临床用药的观察是该类患者护理的重
【正】 系统调校 带基础杜比环绕的系统 喇叭电平。象调节任何立体声系统一样,调节左/右声道的平衡,特别注意坐在当中的聆听者应觉得对话是从中间发出,明显来自屏幕。 如果愿
读了《新闻的十大基本原则》这本书,我对新闻的认识更深了。特别是书中的第七大原则——新闻工作者必须让重大事件变得有趣并且与受众息息相关,让我深以为然。依这个原则说来,新
【正】态度是对人、观念或事物的一种心理倾向。少数民族受众同样关心社会热点问题。其接触媒介的数量、频度和方式,是少数民族受众形成态度的主要途径。本文研究甘南藏族自
线性规划问题是指在线性约束条件(即关于变量x,y的二元一次不等式或不等式组)下,求线性目标函数z=ax+by的最大值或最小值问题.在线性规划问题中,满足线性约束条件的解(x,y)叫做可
解放军第5医院位于贺兰山下,腾格里沙漠边缘的宁夏回族自治区首府——银川市。该院创建于1946年9月。历经52年血与火的考验。全院医务人员牢记为人民服务的宗旨,弘扬延安精神和
【正】 伦敦爱乐乐团是伦敦和世界最知名最受人敬佩的乐团之一。尽管它的兴趣极大地集中在最受欢迎的浪漫与后浪漫时期作曲家身上,但它的曲目却包括了从巴洛克到当代的整个时
【正】 在艺术范畴内;绘画与音乐的关系最为紧密,因此,才有了“音乐是流动的绘画,绘画是凝固的音乐”的比喻。 音乐作品中表现绘画内容或以绘画体载为题的作品很多;穆索尔斯
华硕电竞显示器PG278Q采用了27英寸液晶面板,画面分辨率为2560×1440,其采用144Hz的超高刷新率,是普通显示器的2.4倍,可以让显示画面更加连贯,在进行FPS游戏时敌人的动作将非常流畅地呈现在屏幕上,玩家再也不必担心因缺失图像造成射击失误而延误战机。值得一提的是,华硕PG278Q还配备了华硕独家的GamePlus功能,为游戏爱好者在FPS和RTS游戏中提供瞄准器和计时器功能,可以帮助
【正】 UTOPIA——充满希望的名字 Focal与JMLab是出自同一公司的两个不同的品牌,这就是法国的Focal公司。 Focal虽然在法国乃至世界上都只能算是一家年轻的扬声器制造厂,但