エクセルマクロアウトライン検索

質問

アウトラインのプラスマークがある場所（行、列）をマクロで探すことはできますか？

やりたいこと：マクロでプラスマーク（マイナスマーク）がある行、列すべてを塗りつぶしたい。現在、該当行、列のセルに何か値を入れておいてそれを探して場所を探しています。

回答No.1

KenKen_SP · ベストアンサー

こんにちは。

Summary プロパティーで判定できるかと。

Sub SampleProc()

　　For i = 1 To 20
　　　　If Rows(i).Summary Then
　　　　　 Rows(i).Interior.ColorIndex = 34 ' // 34:水色
　　　　End If
　　Next i

End Sub

お礼

ありがとうございます。
できました。
また機会がありましたらよろしくお願いします。

回答No.2

imogasi

x y
a 12
a 11
b 23
c 21
c 21
--
集計後
x y
a 12
a 11
a 合計 23
b 23
b 合計 23
c 21
c 21
c 合計 42
総計 88
------
下記を実行して
Sub test04()
For i = 1 To 12
MsgBox i & "=" & Rows(i).OutlineLevel
Next i
End Sub
ーー
OutlineLevelの2や1で判定できませんか。
ーー
Sub test05()
For i = 1 To 12
If Rows(i).OutlineLevel = 2 Then
Range("A" & i & ":C" & i).Interior.ColorIndex = 6
End If
Next i
End Sub

お礼

ありがとうございます。
レベルでの判定もできるのですね。
大変参考になりました。
また機会がありましたらよろしくお願いします。