![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
Excelマクロについての質問です。
教えてください。
"グループとアウトラインの設定"を使用して、あるシート上の列or行をグループ化しています。
このグループ化された列or行について、ある列or行が
「展開されている状態か?(表示)」
なのか
「閉じられている状態か?(非表示)」
Excelのマクロで判断するにはどうしたら良いでしょうか?
教えてください。
質問の背景は、
「あるグループ化された列が表示されている」ならば、
「他のグループ化された行を表示する」っといった機能を実現したいと考えています。
また、グループのアウトラインで上記が不可能な場合でも、
単純な列or行の表示・非表示で同様の状態管理が可能であれば
その方法を教えてください。
皆様、宜しくお願いします。
No.1ベストアンサー
- 回答日時:
こんばんは。
>「展開されている状態か?(表示)」
> なのか
>「閉じられている状態か?(非表示)」
それは、至って単純な方法でしかないと思います。
以下は、列に対してトグルになります。
Sub TestShowLevel()
Dim i As Integer
Dim j As Integer
Dim r As Range
Static k As Integer
On Error Resume Next
With ActiveSheet
'列の場合
Set r = Range("A1").CurrentRegion
'行に対して、表示しているセルの数を数え
i = r.Rows(1).SpecialCells(xlCellTypeVisible).Count
'実際のセルの数を数えます。
j = r.Rows(1).Cells.Count
'その差が出れば、列が折りたたまれているということです。
If j - i > 0 Then
k = k + 1
Else
k = 1
End If
.Outline.ShowLevels RowLevels:=0, ColumnLevels:=k
End With
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルブックの全シートの非表示列を再表示したい 1 2022/12/24 20:48
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Visual Basic(VBA) 【困っています2】VBA 追加処理の記述を教えてください。 2 2022/08/26 11:42
- PowerPoint(パワーポイント) エクセルのマクロについて教えてください。 1 2022/03/25 17:03
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/01/25 11:42
- Excel(エクセル) Excelでnullになるような式のセルをマクロで空白行と認識させるにはどうすればいいですか? 3 2023/03/13 13:42
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/02/17 11:59
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/03/07 14:05
- Excel(エクセル) Excel起動時にエラーダイアログが表示される 3 2022/07/28 19:52
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
エクセルVBA 行のグループ化を外すマクロ
Access(アクセス)
-
エクセルのマクロで指定条件一致行をグループ化したい
その他(Microsoft Office)
-
VBA:ユーザーフォームのマルチページに色を付けたい。
Word(ワード)
-
-
4
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
5
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
6
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELにて複数列を同条件(色)...
-
Excelの非表示列も含めてコピー
-
エクセルで反転コピー
-
シート保護の状態で行の追加を...
-
エクセルのマクロ、AVERAGEIFを...
-
【マクロ】IF複数条件の上限に...
-
エクセルVBA 複数列をコピーす...
-
エクセルで表示された値だけ行...
-
行数が不規則な一週間ごとの合...
-
エクセルで空白以外のセルの値...
-
一行おきにコピーするマクロが...
-
Excelのマクロで不規則に連番を...
-
マクロで値がある列までコピー
-
【初歩】エクセルでのマクロ(...
-
エクセル マクロ 貼り付け先が...
-
[Excel VBA]空白セル以外に連番...
-
エクセルで縦に長い表を印刷
-
"=LEFT(RC[-13],5)"を書き換えたい
-
同一列内の複数条件 カウント
-
エクセルでA列セルが空白の時そ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELにて複数列を同条件(色)...
-
一行おきにコピーするマクロが...
-
Excelの非表示列も含めてコピー
-
シート保護の状態で行の追加を...
-
エクセルで表示された値だけ行...
-
エクセルで行挿入した際、自動...
-
エクセルで空白以外のセルの値...
-
エクセル VBA 指定の範囲内をコ...
-
[Excel VBA]空白セル以外に連番...
-
エクセル マクロ 貼り付け先が...
-
エクセルの関数について(日付で...
-
エクセルVBA 複数列をコピーす...
-
特定の桁数を抽出
-
【マクロ】IF複数条件の上限に...
-
エクセルで反転コピー
-
行数が不規則な一週間ごとの合...
-
エクセルのマクロ、AVERAGEIFを...
-
【初歩】エクセルでのマクロ(...
-
Excelのマクロで不規則に連番を...
-
マクロで値がある列までコピー
おすすめ情報