前景提要
随着公司业务的不断增加,我们的流水账的表也是不断的增加,员工的业绩表的工作表数量也在不断的增加,从企业整体发展来说,这绝对是好事情,但是对于报表汇总制作的童鞋来说,这样的情况就非常的棘手了,数据不断的增加,意味着自己的操作也要增加很多,比方说针对所有的工作表进行统一的修饰,让数据报表看起来更加的整齐规范
Q:这个时候你会选择怎么操作呢?从左到右依次打开所有的工作表,然后手工去执行操作吗?
A:不然怎么办呢?Excel本身又不具备这样子批量操作的功能
上面的问答估计也是很多童鞋内心中的想法吧,今天我就和大家分享下,在Excel中利用VBA来实现所有工作表执行相同操作的方法,瞬间提升我们的工作效率
代码区
假设我们现在有这样的一份工作表
我们需要对所有的工作表的标头进行修饰,加上边框和背景颜色,我们来看看通过VBA如何快速实现
SubTEST
Sheets.Select
Range("A1:H2").Select
Selection.Borders(xlBottom).LineStyle=xlDouble
Selection.Interior.Color=vbYellow
EndSub
依然是非常的简短,我们首先验证下代码的效果
从截图中我们可以看到所有的工作表的标有都已经被增加了边框,同时也给所有的表头区域增加了背景色黄色,让表头看起来更加的突出,明显,这次操作也是通过上面简短的几句代码来实现的,案例中只有3个工作表,效果也许并不太明显,设想下如果有10+,20+的工作表,这样的代码是不是能很大的提升工作效率呢?
代码解析
虽然今天的代码比较的简短,但是知识点还是有一些的,我们来具体看看
Sheets.Select
这句的意思就是讲当前报表中的所有工作表都选中,相当按下CTRL之后同时选中所有工作表所产生的效果
Range("A1:H2").Select
这句代码很简单,无非就是单元格区域的选择,但是这里需要留意的一个地方是,这里的选择并不仅仅是针对当前活动工作表,而是所有的工作表的这个区域都已经被选中了。
所以这样一来就等于当前工作表的相同区域都已经被选中了,然后我们就可以对选中区域执行填充颜色,增加边框的操作了
Selection.Borders(xlBottom).LineStyle=xlDouble'增加边框
Selection.Interior.Color=vbYellow'增加黄色的背景色
这两段代码就是执行相关操作的,代码后面已经增加了备注,说明了具体的代码执行的操作
这两段代码的内容我们还不用去太深入的了解,在实际的过程中,如果需要用到什么效果,直接录制一个宏,套到我们自己的代码中就可以了。
VBA最大的好处就是能够将一些我们日常工作中一些机械化的操作用代码来实现,大家可以多多尝试多多联系
如若转载,请注明出处:https://www.ozabc.com/keji/439026.html