No.4
- 回答日時:
こんにちは。
今、ShowDetail と .Outline.ShowLevels と両方を試してみました。
ShowDetail は、列に対しては、なぜか、VBAメソッド側は、エラーが発生します。理由は良く分かりません。
やはり、列指定の場合は、以下のように、Ver.4 マクロ関数を使わざるを得ませんでした。
ShowDetail の場合は、列番号を指定しなくてはなりません。つまり、シートの「+」「-」をクリックするのと同じことです。
Dim i As Integer
'列の表示・非表示
i = 10 '列数を指定
ret = Application.ExecuteExcel4Macro("SHOW.DETAIL(2," & i & ")")
End Sub
しかし、#3 で示した方法なら、ワークシートの一番左上の数の、数字のレベルによって変化するはずです。通常なら、1 で、すべての列が非表示で合計欄だけになり、2 .... と続きます。#3のコードを手直ししてみました。
'標準モジュールのみ
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
No.3ベストアンサー
- 回答日時:
こんにちは。
もしかしたら、その表というのは、アウトラインと集計と複合的に出来ていませんか?
先ほど、何度も試してみて、集計だけだと思い込んでいたのです。質問を読み違えていました。そもそも、私が前回の質問が印象に残っていたのが原因なのですが。確かに、手作業ではややこしく面倒です。
もしそうだとすると、こうなるのでしょうね。
j =2
' On Error Resume Next 'エラーが発生するようなら、これを入れてください。
With ActiveSheet
.Outline.ShowLevels rowLevels:=0, columnLevels:=j
End With
Range("A1").Select
アウトラインをどのように作ったかは別として、2以上を入れればよいのではないかと思っています。途中、ピボットテーブルもどうかと思ったのですが、それもできないし、こういうのは、初めてです。うまくいくかどうか・・・・。
ありがとうございます。
前回の回答でOKです。読み違えてはいませんよ。
特定のアウトラインをいじりたいので前回ので問題は解決しています。
お手数おかけしました。
で、rowsは列を指定しますが、行をいじりたい場合なんと書けばよいかわかりませんか。
No.2
- 回答日時:
こんばんは。
たぶん、行に対して、アウトラインを展開しているなら、列は、1でよいと思いますね。
VBAメソッド側は、そういう違いが出ません。
なお、i は、"*集計"のところの行を指定してください。
マクロ関数側のret は、ダミーです。エラーは返ることはないはずですが、一応、置いておきました。必要なければ取ってもかまいません。
'マクロ関数
Sub Test1()
Dim ret As Variant
Dim i As Long
i = 3
ret = Application.ExecuteExcel4Macro("SHOW.DETAIL(1," & i & ")")
End Sub
'VBA メソッド
Sub Test2()
Dim i As Long
i = 3
ActiveSheet.Rows(i).ShowDetail = Not ActiveSheet.Rows(i).ShowDetail
End Sub
ありがとうございます。できました。
アウトライン展開は行、列でしています。
ちなみに参考までに。。。
行は
ActiveSheet.Rows(i).ShowDetail。。。
でできることがわかりましたが、列の場合rowsをcolumnsに変えてみましたが反応しません。
見た目的にVBAメソッドに書いてある関数のほうがきれいなのでできれば使いたいです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 11:27
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2022/03/31 12:46
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/08 11:02
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルのオートフィルターのしぼりをクリアーしたい 2 2022/12/24 08:36
- Excel(エクセル) 【マクロ】webアドレスにて指定されたCSVファイル【excelソフト表示】を印刷する件 1 2023/02/15 01:52
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/03/07 14:05
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルブックの全シートの非表示列を再表示したい 1 2022/12/24 20:48
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/02/07 09:58
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/03/02 08:40
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 12:30
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VLOOKUPの列番号の最大は?
-
エクセルで離れた列を選択して...
-
「段」と「行」の違いがよくわ...
-
LEFT関数とIF関数の組み合わせ...
-
VBA 指定した列にある日時デー...
-
VBA Splitで「引数の数が一致...
-
【マクロ】【VBA】条件付き書式...
-
エクセルマクロで表の途中の集...
-
ExcelVBAでリストの項目に必要...
-
Excel 2007で複合グラフ(折線...
-
エクセル マクロ 範囲指定で...
-
エクセルのソートで、数字より...
-
例題を繰り返しマクロで記述したい
-
エクセルマクロPrivate Subを複...
-
最終行に合計(最終行が列によ...
-
最近急にVBAの処理速度が遅くな...
-
エクセル 1つのシートを日付で...
-
Alt+Shift+↑を一括で行うには、...
-
Excel で、二つの表の値が条件...
-
エクセルでセル12個間隔で合...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで離れた列を選択して...
-
VLOOKUPの列番号の最大は?
-
「段」と「行」の違いがよくわ...
-
LEFT関数とIF関数の組み合わせ...
-
VBA 指定した列にある日時デー...
-
CSVファイルの「0落ち」にVBA
-
エクセルで複数列の検索をマク...
-
Excelの行数、列数を増やしたい...
-
エクセルマクロの組み方
-
エクセルマクロPrivate Subを複...
-
リストからデータを紐付けしたい
-
エクセルのソートで、数字より...
-
エクセルで住所を県と市・郡と...
-
VBAで別ブックの列を検索し、該...
-
Excel文字列一括変換
-
VBA
-
エクセル 重複 隣の列 一番...
-
列方向、行方向の定義
-
Alt+Shift+↑を一括で行うには、...
-
VBAで結合セルを転記する法を教...
おすすめ情報