利用VBA代码提高职场工作效率

  • 来源:PC电脑王
  • 关键字:VBA代码,职场
  • 发布时间:2015-03-11 12:24

  对于职场用户来说,每天都需要与Excel打交道,如果能够用好VBA代码,可以在一定程度上提高工作效率,而且还可以让你绽放光华。

  复习:VBA操作方法

  按下“Alt+F11”组合键,打开Microsoft Visual Basic for Applications编辑器窗口,依次选择“插入→模块”,在右侧窗格插入一个空白模块,手工输入或粘贴代码。代码检查无误之后,选择“文件→关闭并返回到Microsoft Excel”命令,返回Excel主界面,按下“Alt+F8”组合键,打开“宏”对话框,选择并运行宏即可实现相应操作。

  实现关键词工作表的自动删除由于工作的需要,每天都要处理大量的候选人简历,在筛选简历时,需要去除那些不符合学历要求的简历,大致有:大专、专升本、自考本科、网络教育、函授,这些用来说明学历的数据一般都会填写在工作表的C43单元格。手工操作实在是十分的麻烦,利用VBA代码可以自动删除这些包含特定关键字的工作表(相关代码可发送“201503vba1”至电脑迷微信公众号获取)。

  代码中的“a=Array”后面的内容可以根据需要进行增删,“MegBox”后面的内容可以根据喜好自行设计,代码检查无误之后,选择“文件→关闭并返回到Microsoft Excel”命令,返回Excel主界面,按下“Alt+F8”组合键,打开“宏”对话框,选择并运行宏,很快就可以删除包含指定关键词的工作表,是不是很方便?

  批量填充职位升降信息

  人事部的同事前来求助,E列是职位升降及留用情况的信息,现在需要对现职位和原岗位进行比较, 如果发现现职位和原岗位出现不一致,那么需要在F列填充职位的升降时间,并在G列填充升降明细。手工操作相当麻烦,由于单元格中的职位升降及留用信息并不规范,因此无法直接使用分列功能,建议同事使用V B A 代码解决这一问题( 相关代码可发送“201503vba2”至电脑迷微信公众号获取)。

  代码运用了正则表达式,例如“(d{1,2}-d{1,2})(由.*)”,同时以“ 由” 为关键词进行提取。检查无误之后, 选择“文件→关闭并返回到MicrosoftExcel”命令,返回Excel主界面,按下“Alt+F8”组合键,打开“宏”对话框,选择并运行test宏,很快就可以完成。

  实现工作簿级的替换操作

  最近在工作中遇到一个令人头疼的问题,原始工作簿有许多名称类似于A0100101Y01、A0200101Y08的工作表,但最近被某个熊同事对所有工作表的D2单元格的数据执行了替换操作,这些工作表的D2单元格都被替换为“2”,更尴尬的是她竟然还执行了保存的操作。

  经过苦苦翻寻,总算在硬盘文件堆搜索出一个两个月之前的备份文件,准备根据以前的备份数据替换被熊同事误操作丢失的数据,以期挽回一部分的损失。手工替换显然不在考虑之列,毕竟其中的工作表实在是太多,使用VBA代码可以解决这一问题。

  为了安全起见,将找出来的备份工作簿重命名为“销售表1”,被意外替换的工作簿则命名为“销售表2”。打开“销售表1”工作簿,打开Microsoft Visual Basic for Applications编辑器窗口,插入一个空白模块(相关代码可发送“201503v ba3”至电脑迷微信公众号获取)。

  代码中的“销售表

  1”和“销售表2”可根据实际情况进行修改,注意这两个工作簿请放在同一路径下,“替换结束!”的提示信息可以任意修改,很快就可以完成替换操作。重新打开“销售表2”工作簿,会发现D2单元格的数据已经被替换为“销售表1”D2单元格的数据,当然如果没有对应的工作表,那么现在的数据并不会被强行更新。

  文/大江东去

……
关注读览天下微信, 100万篇深度好文, 等你来看……
阅读完整内容请先登录:
帐户:
密码: