提取关键字

cynourse

有以下几个文本，如果每个字段中包含工资/月奖金，则分别返回工资/月奖金，这个函数怎么做比较好

管理费用-人员成本-工资
主营业务成本-人员成本-工资-合成
应付职工薪酬-工资
应付职工薪酬-月奖金
主营业务成本-人员成本-月奖金-后勤

ly

先正则判断，再计算：

1. Function FindStr(ByVal FieldName As String, ByVal strMatch As String) As Boolean
   
2.     Dim re As New regexp
   
3.     re.Pattern = strMatch
   
4.     re.IgnoreCase = True
   
5.     re.Global = True
   
6.     FindStr = re.Test(FieldName)
   
7.     Set re = Nothing
   
8. End Function

复制代码

假设有会计科目和金额字段，则：
筛选后金额: -(FindStr([会计科目],"-工资|-月奖金"))*[金额]