提取关键字

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([会计科目],"-工资|-月奖金"))*[金额]