每个月的报表总有那么一些重复的事(Excel VBA)

2021-09-07 17:28:37 浏览数 (1)

工作中,我们经常会制作一些Excel报表,月报周报之类。报表之中有时会有些固定有规律内容,内容可能随月份的变化而变化,每次都要填,比较繁琐。这时候使用select case语句可以简化这一过程。

举例:

在某月报中,需要为很多单元格增加批注,1月份的时候批注内容是这个样子,2月份又是那个样子,每个月不尽相同。每个月手动写一个批注,再复制到其他单元格比较繁琐。用以下代码可以将选中的单元格一次性全部添加。

比方现在是7月份,会自动case 4 to 11这个部分,执行结果如下:

if语句当然也可以实现,只是条件比较多的话建议还是用case

可以发散思维将这种逻辑应用在报表的其他方面。


可以看到上面那个批注格式很难看,是Excel默认的方框。现在流行的iPhone圆要好看一些。

用以下代码可以批量将批注造型变换

0 人点赞