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で質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【お題】絵本のタイトル
- ・【大喜利】世界最古のコンビニについて知ってる事を教えてください【投稿~10/10(木)】
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルでオートフィルタのボ...
-
エクセルのオートフィルタで最...
-
エクセルで時刻(8:00~20:00)...
-
エクセルで、条件に一致した行...
-
エクセル INDEXとRANDBETWEEN
-
エクセルの行挿入、行削除の禁止
-
EXCEL VBAで条件付き保護について
-
Excelのオートフィルタで非表示...
-
今日の日付のデータをすばやく...
-
Excelオートフィルターで絞り込...
-
エクセル2010のソートには限界...
-
オートフィルタは金額の桁カン...
-
時間の条件でオートフィルタを...
-
オートフィルタで選択したデー...
-
EXCEL2003のオートフィルターで...
-
エクセル、オートフィルタで最...
-
エクセル・条件付で行を削除す...
-
エクセルのオートフィルタで抽...
-
Excel時間データの抽出
-
エクセル オートフィルター
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルのオートフィルタで最...
-
エクセルで時刻(8:00~20:00)...
-
エクセルでオートフィルタのボ...
-
Excelのオートフィルタで非表示...
-
エクセルの偶数行(奇数行)の抽出
-
エクセル関数で、数字の入った...
-
エクセルにて、フィルタをかけ...
-
access マクロでのフィルタの...
-
エクセル、オートフィルタで最...
-
Excel共有ブックのオートフィル...
-
なぜShowAllDataだとうまく行か...
-
関数で小数点以下を抽出したい
-
エクセルで検索窓のようなもの...
-
データの抽出を教えてください
-
ACCESSでスペースの抽出
-
エクセルで指定期間内に在職す...
-
オートフィルタで3つ以上の条...
-
Excelのフィルターで抽出した状...
-
可視セルを対象としたcountifが...
-
Excel2003 オートフィルタで「...
おすすめ情報