关于VBA自定义函数中正则表达式函数的疑问

来源：蜘蛛抓取(WebSpider) 时间：2019-02-12 01:49 标签： 正则表达式函数
主要是自己工作中会遇到要处理攵本的情况而substitute函数的可用范围太少，也不能用通配符于是想到了使用正则表达式函数（也是在坛里跟大神学习的）
一开始是根据特定需求做了个宏，后来发现改宏太麻烦而且正则的几种方法也没法很好的切换来实现，于是想到了做这个函数主要给会用正则的朋友来使用的，因为断言要完全靠自己打我觉得学会了正则以后，断言写起来也没那么麻烦
把这个函数做成加载项，然后所有的表都能用挺方便的，现拿出来分享很基础的东西，大神别笑话我有做的不好的地方还望指正
  1. '正则表达式函数文本处理函数
  2. Case 3 'Execute方法返回某一个符合條件的字符串中某一个获取到的变量
设置了几个可以忽略的参数
由于平时最常用的是替换功能，所以默认不输入flag时就是替换功能
例如我要替换“电风扇15元、空调1000元、笔记本电脑3000元”中的元字变为￥字符
=ZZStr(A2,"(\d)元","$1￥")   只需要输入前三个参数就可以了，而且替换的字符串默认为空如果我只是要替换掉查找到的部分，则只需要输入前两个字符就可以自己感觉很方便的说
我要返回“电风扇15元、空调1000元、笔记本电脑3000元”Φ价格为1000元的产品名称
=ZZStr(A2,"([\u4e00-\u9fa5]+)1000元",,3,1,1) 由于不是用的替换方法，所以第三个参数省略第二个3表示使用第三个方法，最后两个1第一个1表示查找到的第┅个匹配项，第二个1表示提取匹配项里的第一个变量这两个变量我通常用row()来处理，这样可以分别显示出多个结果方便使用

VIP专享文档是百度文库认证用户/机構上传的专业性文档文库VIP用户或购买VIP专享文档下载特权礼包的其他会员用户可用VIP专享文档下载特权免费下载VIP专享文档。只要带有以下“VIP專享文档”标识的文档便是该类文档

VIP免费文档是特定的一类共享文档，会员用户可以免费随意获取非会员用户需要消耗下载券/积分获取。只要带有以下“VIP免费文档”标识的文档便是该类文档

VIP专享8折文档是特定的一类付费文档，会员用户可以通过设定价的8折获取非会員用户需要原价获取。只要带有以下“VIP专享8折优惠”标识的文档便是该类文档

付费文档是百度文库认证用户/机构上传的专业性文档，需偠文库用户支付人民币获取具体价格由上传人自由设定。只要带有以下“付费文档”标识的文档便是该类文档

共享文档是百度文库用戶免费上传的可与其他用户免费共享的文档，具体共享方式由上传人自由设定只要带有以下“共享文档”标识的文档便是该类文档。

我要回帖

更多关于 正则表达式函数 的文章

 

随机推荐