PC Excel宏在Mac上不起作用

Question

我编写了一个宏，该宏从物流代码中删除了所有非数字字符，并将剩下的数字相乘。 在PC上没问题，在我的Mac上不起作用。

在这里的代码，可能有人会建议我为什么宏不能在mac上运行：

   Function Bek(s)
Static re As Object
Dim x
  If re Is Nothing Then
    Set re = CreateObject("vbscript.regexp")
    re.Pattern = "[0-9.,]+"
    re.Global = True
  End If
  If re.test(s) Then
    Bek = 1
    For Each x In re.Execute(s)
      Bek = Bek * Val(Replace(x, ",", "."))
    Next
  End If
End Function

我也可以应您的要求附加文件。

PS找到了一些信息，表明os可能不支持regexp。

非常感谢您的帮助。

Answer 1

尝试这个。

它拆分并查看字符串的每个部分，并按照我认为的方式处理它。
试试看，看看是否有效

Sub ApplesWayOfRegex()


    Str1 = "S10 2000*6000"

    ReDim chars(Len(Str1) - 1)
    For i = 1 To Len(Str1)
        If (IsNumeric(Mid$(Str1, i, 1))) And i <> 1 Then
            chars(i - 1) = Mid$(Str1, i, 1)
        ElseIf (Not IsNumeric(Mid$(Str1, i, 1))) And i = 1 Then
            chars(i - 1) = ""
        Else
            chars(i - 1) = "*"
        End If
    Next

    Mathstr = Join(chars, "")
    MsgBox Application.Evaluate(Mathstr)
End Sub