#VALUEエラーのRegExp

Question

私はMac上のExcel 2010で正規表現を実装しようとしていますが、任意の数式やデータを私が得るすべてはここ#VALUEエラー

では、モジュールの私の実装です：

Function RegExp1(ReplaceIn, ReplaceWhat As String, _ 
    ReplaceWith As String, Optional IgnoreCase As Boolean = False) 

    Dim re As Object 
    Set re = CreateObject("VBScript.RegExp") 
    re.IgnoreCase = IgnoreCase 
    re.Pattern = ReplaceWhat 
    re.Global = True 

    RegExp1 = re.Replace(ReplaceIn, ReplaceWith) 
End Function 

そして、私がしようセル内：

：

=RegExp1(D2,"(PR2001\.)(\d)","$100$2") 

このすべては次のように細胞上で実行されています

PR2001.1 
PR2001.2 
PR2001.3 

など...最後の桁とピリオドの間にゼロを追加して、簡単に並べ替えることができます。任意のヘルプが評価されます

Answer 1

Excel XはVBScriptをサポートしていないため、これを行うことはできません。 functonは動作し、式はうまくいく、btw。

私があなたに提案できるのは、InStrRevを使って関数を書くことです（実際にはregexpを使用することができても良い解決策です）。

Function AddZeros(ByVal text As String) As String 

Dim lastPeriod As Long 
lastPeriod = InStrRev(text, ".") 

If lastPeriod <> 0 Then 
    AddZeros = Left$(text, lastPeriod) & ("00" & Mid$(text, lastPeriod + 1)) 
Else 
    AddZeros = text 
End If 

End Function