现在想用vba改变工作表标签颜色,效果是当天的标签显示红色。其余标签不变。
之前写过一个真实的案例,可以参考下,这是最复杂的情况之一,请看下面介绍:
一个文件夹下有很多个工作簿。
每个工作簿里面有3个sheet表,结构一样。
要求如上,根据名称、代号、长度三个条件,汇总数量。这是多工作簿,多工作表,多条件汇总。具有代表性。
我用了120个工作簿做了测试,运行时间为69.58594秒!这效率有多高?
1.要在工作簿所在文件里新建一个工作簿,把这段代码放到VBE编辑器中,并存为.xlsm格式。
这句代码是用来识别你文件夹下文件名称的,其实中间的test没有必要写,我这是看每个文件的文件名都有test,才这样写的。写成:f = Dir(ThisWorkbook.Path & "\*.xlsx") 就行。