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

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

举例：

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

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

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

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

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

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