![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
No.2ベストアンサー
- 回答日時:
オートフィルタ自体は解除せず、フィルタの絞り込みを解除するマクロです。
コードの整理ができていないので冗長ですが、とりあえず動作はしました。このマクロをBOOKの標準モジュールにペーストして実行して下さい
Sub 絞り込み解除()
Dim idxSheet, idxField , cntField As Integer
Dim curSheet, curADRS As String
Application.ScreenUpdating = False
curSheet = ActiveSheet.Name
curADRS = Selection.Address
For idxSheet = 1 To ActiveWorkbook.Worksheets.Count
If Worksheets(idxSheet).AutoFilterMode Then
cntField = Worksheets(idxSheet).AutoFilter.Filters.Count
Worksheets(idxSheet).Activate
ActiveSheet.Cells(1, 1).Select
For idxField = 1 To cntField
Selection.AutoFilter Field:=idxField
Next idxField
End If
Next
Worksheets(curSheet).Select
ActiveSheet.Range(curADRS).Activate
Application.ScreenUpdating = True
End Sub
この回答へのお礼
お礼日時:2006/06/26 18:28
早速実行してみました。希望通りの動作で感激しました。
マクロは初心者なので、きれいに整理されるよりも今回のサンプルの方が理解しやすかったです。整理はもう少し内容をながめて理解してから挑戦してみます。
ありがとうございました。
No.1
- 回答日時:
ActiveSheet.AutoFilterMode = False
として解除してしまうのが手っ取り早いです。
必要なら、別の場所でフィルタをセットしましょう。
解除以外なら、
Selection.AutoFilter Field:=1
Selection.AutoFilter Field:=2
Selection.AutoFilter Field:=3
:
と、フィルタ設定をリセット(すべて表示)していくことになります。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロで対象ごとにシート分けしてその内容をセルに書き込みたい 9 2022/08/24 13:23
- Excel(エクセル) エクセルのフィルターを複数シートに連動させたいです。 エクセルファイルに15シートあります。 そのう 2 2022/05/01 21:47
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルのオートフィルターのしぼりをクリアーしたい 2 2022/12/24 08:36
- Visual Basic(VBA) エクセルVBAコピー 2 2022/06/08 21:45
- Excel(エクセル) エクセルでフィルタ後、考えている場所に値コピーができない。 1 2022/05/02 21:01
- Excel(エクセル) Excel Powerクエリーの質問、行数指定は可能でしょうか? 2 2022/08/22 12:54
- 国産バイク 燃料フィルタ内の気泡について 3 2023/04/02 09:01
- カスタマイズ(バイク) xv400 viragoの燃料コックについて 3 2023/04/12 06:54
- Excel(エクセル) Excel フィルタ後のコピー貼付けと可視セルの関係について 3 2023/02/07 16:42
- Excel(エクセル) Excel(エクセル)でフィルター抽出後、非表示の行を計算しないで、合計を算出する方法 【内容】 添 4 2023/01/30 17:17
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで時刻(8:00~20:00)...
-
エクセルでオートフィルタのボ...
-
エクセルの偶数行(奇数行)の抽出
-
エクセルのオートフィルタで最...
-
結合したセルのオートフィルタ...
-
Excelのオートフィルタで非表示...
-
エクセルにて、フィルタをかけ...
-
今日の日付のデータをすばやく...
-
Excel共有ブックのオートフィル...
-
オートフィルタで3つ以上の条...
-
エクセル関数で、数字の入った...
-
オートフィルタの抽出速度を上...
-
エクセルフィルターオプション...
-
access マクロでのフィルタの...
-
【Excel2003】オートフィルタの...
-
Excelで、オートフィルタを解除...
-
エクセルで、条件に一致した行...
-
オートフィルタ抽出データに連...
-
[excel] 自由記述部分の抜き出し
-
excelオートフィルタの検索条件...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで時刻(8:00~20:00)...
-
エクセルでオートフィルタのボ...
-
エクセルのオートフィルタで最...
-
Excelのオートフィルタで非表示...
-
【EXCEL】条件に一致した最新デ...
-
エクセルの偶数行(奇数行)の抽出
-
エクセルで、条件に一致した行...
-
access マクロでのフィルタの...
-
オートフィルタで3つ以上の条...
-
エクセルで検索窓のようなもの...
-
エクセル関数で、数字の入った...
-
Excel共有ブックのオートフィル...
-
Excelオートフィルターで絞り込...
-
データの抽出を教えてください
-
エクセル・条件付で行を削除す...
-
なぜShowAllDataだとうまく行か...
-
オートフィルタで選択したデー...
-
エクセル、オートフィルタで最...
-
可視セルを対象としたcountifが...
-
【Excel/関数/条件付き書式】月...
おすすめ情報