Office中国论坛/Access中国论坛

标题: 提取关键字 [打印本页]

作者: cynourse 时间: 2020-7-13 12:01
标题: 提取关键字
有以下几个文本，如果每个字段中包含工资/月奖金，则分别返回工资/月奖金，这个函数怎么做比较好

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

作者: ly 时间: 2020-7-13 22:47
先正则判断，再计算：

Function FindStr(ByVal FieldName As String, ByVal strMatch As String) As Boolean
Dim re As New regexp
re.Pattern = strMatch
re.IgnoreCase = True
re.Global = True
FindStr = re.Test(FieldName)
Set re = Nothing
End Function

复制代码

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)