2

VALUE!計算には数字とテキストが含まれているため、計算でエラーが発生することがよくあります。テキストをセルに残して計算を続行するにはどうすればよいですか?

例えば：

セルのA1内容は次のようになります。101.1 J

セルのA2内容は次のようになります。500 U

セルのA3内容は次のようになります。0.2

A1+ A2+A3を cellに追加したい場合、 andA4を無視して+ +を計算して cellに入れるにはどうすればよいですか?JU101.15000.2602.3A4

ありがとう！

4

2 に答える 2

3

カスタム機能の使用

以下のコードを標準モジュールに配置します

Function add_num(cell1, ParamArray Arr() As Variant)

    Dim temp As Double
    For i = LBound(Arr) To UBound(Arr)
        temp = temp + GetNumber(Arr(i))
    Next

    add_num = GetNumber(cell1.Value) + temp
End Function

Function GetNumber(ByVal str As String) As Double
    Dim objRegEx As Object
    Set objRegEx = CreateObject("VBScript.RegExp")
    objRegEx.IgnoreCase = True
    objRegEx.Global = True

    objRegEx.Pattern = "\d{1,2}([\.,][\d{1,2}])?"

    Set allMatches = objRegEx.Execute(str)

    For i = 0 To allMatches.Count - 1
        result = result & allMatches.Item(i)
    Next

    GetNumber = result
End Function

add_num functionを使用して Excel インターフェイスから呼び出すことができます=addnum(<cells>)。複数のセルを受け入れます。

ここに画像の説明を入力

于 2013-05-31T21:06:27.690 に答える