0

エクセル マクロに詳しい方助けてください！ 以前、ここで教えていただいたんですが、

図のような表において、
①～③欄の数値は上段、下段とも変わるものとします。
計欄は、図中の式のとおり計算し変わります。

ここで図のように
計欄及び①～③欄について
上段に数値が入っている場合は、下段の数値に()が付くようにしたいのです。
上段に数値が入ってない場合は、下段の数値に()は付かないようにしたいです。

という質問で、

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, j As Long, r As Long
j = Cells(Rows.Count, 2).End(xlUp).Row
If Intersect(Target, Range("B2:E" & j)) Is Nothing Then Exit Sub
r = IIf(Target.Row Mod 2 = 0, Target.Row, Target.Row - 1)
For Each c In Range("B" & r & ":E" & r)
If c.Value <> "" Then
c.Offset(1).NumberFormat = "(#,##0);(-#,##0)"
Else
c.Offset(1).NumberFormat = "#,##0;-#,##0""
End If
Next c
End Sub


とご教示いただいただき大変助かったところであったのですが、
間に計算式を組んだ小計欄をはさんだ場合、小計欄には（）がついておりません。
計算式を組んでいることが問題でしょうか？
上と同様に小計欄にも上段に数値が入った場合、下段の数値に（）が付くようにマクロを設定できるでしょうか？

今回は、図のように行10,11、行22、23に小計欄をはさむものとしてマクロのご教示をいただければと思います。
（実際は小計欄はこの下にいくつか続きます）

よろしくお願いいたします。

以前した質問↓
http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1464571689

質問者が選んだベストソリューション

Yahoo!知恵袋 4790日前