|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
- 将"质保款"改成"质保期款"
- Function aa(rng As Range, rng1 As Range)
- Dim ar, i%, d As Object, s
- Set d = CreateObject("vbscript.regexp")
- With d
- .Global = True
- .Pattern = "[^\d+]"
- End With
- ar = Split(rng.Value, ",")
- For i = 0 To UBound(ar)
- If ar(i) Like "*" & Replace(rng1.Value, "款", "") & "*" Then
- s = d.Replace(ar(i), "") & "%"
- ElseIf rng1.Value = "质保期(天)" Then
- If ar(i) Like "*年*" Then
- s = InStr("一二三四五六七八九", Split(Replace(ar(i), "质保", ""), "年")(0)) * 365
- ElseIf ar(i) Like "*月*" Then
- s = d.Replace(ar(i), "") * 30
- End If
- End If
- Next
- aa = s
- If s = "" Then aa = ""
- Set d = Nothing
- End Function
复制代码 |
|