在VBA中,正则的实例应用(15)——零宽断言
1、如图所示,在表格中标注出“高层”!
2、在工作表中,点击菜单栏【开发工具】,在其工具栏内,点击【visual basic】!
3、会进入VBA编辑界面!点击菜单栏【插入】,在其下拉菜单中,选择【模块】!
4、会弹出模块编辑窗口!
5、在代码编辑窗口输入以下代码:Sub 零宽断言1()Set regx = CreateObject("稆糨孝汶;vbscript.regexp")With regx .Global = True .Pattern = ":(?=副?总)" For Each Rng In [a14:a21] Cells(Rng.Row, 2) = .Replace(Rng, ":(高层)") NextEnd WithEnd Sub
6、在工作表界面的【开发工具】菜单下,点击【插入】按钮,插入表单控件,并与代码关联!且訇咀喃谆将表单控件命名为【标注高层】!
7、点击【标注高层】按钮,高层人员立刻被标注出来!!
声明:本网站引用、摘录或转载内容仅供网站访问者交流或参考,不代表本站立场,如存在版权或非法内容,请联系站长删除,联系邮箱:site.kefu@qq.com。
阅读量:52
阅读量:26
阅读量:58
阅读量:31
阅读量:32