通过正则表达式处理指标上升下降标记颜色

alvinyb

日常报告，经常要求写文字summary，还要标记红蓝色，于是模仿别的大神的VBA正则代码，写了这个word小程序。
考虑了正向（越大越好）、反向（越小越好）指标的上升下降标记不同颜色。
达成率低于100%标记红色
指标和方向词可在VBA中直接修改。
正则表达式的写法受到EXCEL VBA区大神们的指导，表示感谢！

1. '''''''''''''''''''''''''''''''''''''配置指标及方向''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   
2.     bigbetter = "销售额|售价|毛利|EBITDA|净利|损益|利润|产量|销量|单价|"  '以|结尾
   
3.     smallbetter = "周转天数|损耗率|成本|费用|单耗"
   
4.     dircup = "高|上升|↑|增加|提高|多|优于|进步|"  '以|结尾
   
5.     dircdown = "下降|低|↓|减少|降低|少|退步"
   
6.    
   
7.     '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

复制代码

类似下图效果

渣渣写的代码，不够优化的地方，大家不要见笑。

vbee

很实用的代码