获取字符串中的数字

zymwhy

各位老师，如何用VBA实现 获取附件中字符串中的数字呢，谢谢。

zhangzhang

自定义函数
Public Function MyQty(Txt As String) As Long
Dim Reg As Object
Dim Mhs As Object
Dim It

Set Reg = CreateObject("VBScript.RegExp")
Reg.Global = True
Reg.Pattern = "\*\d+"

If Reg.Test(Txt) Then
Set Mhs = Reg.Execute(Txt)
    MyQty = 1
    For Each It In Mhs
        MyQty = MyQty * Mid(It, 2)
    Next It
End If

Set Reg = Nothing

End Function

zymwhy

zhangzhang 发表于 2018-8-28 10:55
自定义函数
Public Function MyQty(Txt As String) As Long
Dim Reg As Object

谢谢老师，这么快回复。但是我不懂如何用，把这些代码放在模块中运行不了，需要怎么操作才行呢？

zhangzhang

zymwhy 发表于 2018-8-28 11:21
谢谢老师，这么快回复。但是我不懂如何用，把这些代码放在模块中运行不了，需要怎么操作才行呢？

详见附件。。。。。。。。。。。

zymwhy

老师，这个自定义函数，能不能通过一个按钮操作就自动在B列加上这个自定义函数了。这个代码如何写呢？您发这个附件B列公式是不是手工增加的？谢谢

zhangzhang

zymwhy 发表于 2018-8-28 15:24
老师，这个自定义函数，能不能通过一个按钮操作就自动在B列加上这个自定义函数了。这个代码如何写呢？您发 ...

详见附件。。。。。。。。。。。