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も見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
エクセルのマクロで指定条件一致行をグループ化したい
その他(Microsoft Office)
-
エクセルVBA 行のグループ化を外すマクロ
Access(アクセス)
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
-
4
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
5
エクセルでエラーが出て困っています。
Excel(エクセル)
-
6
VBA:ユーザーフォームのマルチページに色を付けたい。
Word(ワード)
-
7
VBAの日付チェックでオーバーフローを回避したい。
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
"=LEFT(RC[-13],5)"を書き換えたい
-
【初歩】エクセルでのマクロ(...
-
VBAで,特定の漢字が入っている...
-
EXCELにて複数列を同条件(色)...
-
エクセル 特定セルの足し算を...
-
《エクセル2000》A列・B列の和...
-
Excel VBAで日にちを入力して線...
-
VBAで同じブック内の別シー...
-
EXCEL コンマで区切った数字を...
-
エクセルについて教えてくださ...
-
エクセルで行挿入した際、自動...
-
エクセルマクロで、現在の時刻...
-
参照先セルに値が入っていない...
-
EXCELで○ヶ月を○年○ヶ月に変換...
-
Excelで同じセルに箇条書きをし...
-
エクセルで既に入力してある文...
-
A1セルに入力したら、入力時間...
-
複数の条件に合う行番号を取得...
-
Excelの入力規則で2列表示したい
-
エクセルファイルを上書きする...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELにて複数列を同条件(色)...
-
一行おきにコピーするマクロが...
-
エクセルで行挿入した際、自動...
-
行数が不規則な一週間ごとの合...
-
Excelの非表示列も含めてコピー
-
エクセル マクロ 貼り付け先が...
-
シート保護の状態で行の追加を...
-
エクセルで表示された値だけ行...
-
エクセルで空白以外のセルの値...
-
エクセル VBA 指定の範囲内をコ...
-
エクセルの関数について(日付で...
-
[Excel VBA]空白セル以外に連番...
-
エクセルで反転コピー
-
【初歩】エクセルでのマクロ(...
-
エクセルで縦に長い表を印刷
-
エクセルVBA 複数列をコピーす...
-
マクロで値がある列までコピー
-
Excel VBAで日にちを入力して線...
-
《エクセル2000》A列・B列の和...
-
マクロ ScrollColumn について
おすすめ情報