テキストフィールドに含まれる値を計算する

Question

私のデータセットには製品名のリストが含まれ、各名前の直後に大括弧で囲まれた数量値を持つ説明フィールドがあります。

プロダクトone [2]
プロダクト2 [1]

大括弧内の数字を抽出して一緒に追加したいと考えています。

MID/FIND式を使用して最初の値を見つけることはできますが、複数の数値をルックアップして計算する方法はわかりません。

一部のレコードに含まれる多数の商品のため、データを分割できません。

ご協力いただきありがとうございます。

Answer 1

は、クリーナーの方法があるかもしれませんが、これは（あなたは、単一のセルを見ていると仮定）に動作します：

Public Function SumBrackets(rngSource As Range) 
Dim strData As String 
Dim dblSum As Double 
Dim lngBracketStart As Long 
Dim lngBracketEnd As Long 
strData = rngSource.Value 
Do While InStr(1, strData, "[") <> 0 
    lngBracketStart = InStr(1, strData, "[") 
    lngBracketEnd = InStr(1, strData, "]") 
    dblSum = dblSum + Mid(strData, lngBracketStart + 1, lngBracketEnd - lngBracketStart - 1) 
    strData = Mid(strData, lngBracketEnd + 1, Len(strData) - lngBracketEnd) 
Loop 

SumBrackets = dblSum 
End Function