質問番号:1432429697

エクセル２０１０でご教示いただきたいことがあります。
１つのセルの合計に２つの数字のそれぞれの合計を出すことは可能でしょうか。
（むちゃくちゃな質問で申し訳ないですm(_ _)m）
例として画像を添付しますので、これで伝われば幸いです。
よろしくお願いします。

回答

' 回答プログラム（質問番号：1432429697）
' Author Y.Yoshiya
' Date 2015/05/25

Option Explicit

' AddCell : 指定範囲のセルから数値を取得（カッコ外とカッコ内）、合計を計算する。
' 書式 : AddCell(指定範囲のセル）
' 戻り値 ; カッコ外の数値合計 & "(" & カッコ内の数値合計 & ")"
'    （カッコ内の数値のフォーマットは小数点第一位まで表示）

Function AddCell(Rng As Range) As Variant

    Dim Total1 As Long
    Dim Total2 As Single
    Dim CellArea As Range
    Dim Element As Range
    Dim Sprit As Integer

    Set CellArea = Rng
    Total1 = 0
    Total2 = 0

    For Each Element In CellArea
    
        If Len(Element) > 0 Then
            Sprit = InStr(Element, "(")
            If Sprit > 0 Then
                Total1 = Total1 + Val(Left(Element, Sprit - 1))
                Total2 = Total2 + Val(Mid(Element, Sprit + 1, Len(Element) - 1))
            Else
                Total1 = Total1 + Val(Element)
            End If
        End If
            
    Next Element

    AddCell = Total1 & "(" & Format(Total2, "#.0") & ")"

End Function

ユーザー定義関数(AddCell)を標準モジュールに作成する。　合計を出したいセルにAddCell関数を記述する。