
No.3ベストアンサー
- 回答日時:
> VBAでやるなら、
> Me.Form.FilterOn = False
> をマクロでやりたいです。
ご質問の趣旨が「並べ替えは維持した状態で、フィルタだけ解除したい」という
ことでしたら、以下の方法で対応できます。
a)フィルタの解除専用の場合
***************************
アクション:コマンドの実行
コマンド:フィルタをすべて解除
***************************
※フィルタが適用されていない状態で実行するとエラーになります。
(コマンドボタンで実行させる場合、フィルタ未適用時はボタンを使用不可
にするか、マクロの『条件』欄に「~.FilterOn = True」の記述が必要、と)
また、フォームのプロパティシートの『データ』タブにある『フィルタ』欄(VBAでの
Me.Form.Filterに相当)に設定された文字列も削除されます。
b)フィルタの適用/解除を交互に切り替える場合
***************************
アクション:コマンドの実行
コマンド:フィルタの実行/解除
***************************
※当該フォームにフィルタが設定されていない場合、エラーとなります。
(フォームのプロパティシートの『データ』タブにある『フィルタ』欄に
フィルタとなる文字列が設定されていればOk:)
(フィルタが適用済みなら解除、解除済みなら適用、となります)
因みに、マクロのデザインビューで、『デザイン』リボンの『表示/非表示』グループ
内にある『すべてのアクションを表示』をオンにしてもよいのでしたら、以下の
方法もあります。
(VBAでの方法をご存知の上でマクロで対応ということは、勤務先のセキュリティ
方針によるものかと思いますので、この方法も不可かもしれませんが(汗))
***************************
アクション:値の代入
アイテム:Forms!フォーム名.Form.FilterOn
式:False
***************************
※サブフォームの場合の『アイテム』は以下のようになります:
Forms!フォーム名!サブフォームコントロール名.Form.FilterOn
No.2
- 回答日時:
フィルタを解除するということはレコードを
すべて表示するということになるかと思いますので、
アクションを
「全レコードの表示」
にしてマクロを別途作成すればよろしいかと。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルのオートフィルターのしぼりをクリアーしたい 2 2022/12/24 08:36
- Excel(エクセル) エクセルでフィルタ後、考えている場所に値コピーができない。 1 2022/05/02 21:01
- Visual Basic(VBA) エクセルのマクロで対象ごとにシート分けしてその内容をセルに書き込みたい 9 2022/08/24 13:23
- Visual Basic(VBA) エクセルVBAコピー 2 2022/06/08 21:45
- カスタマイズ(バイク) xv400 viragoの燃料コックについて 3 2023/04/12 06:54
- 国産バイク 燃料フィルタ内の気泡について 3 2023/04/02 09:01
- Excel(エクセル) エクセルでフィルタ後の列の重複を回避したい 6 2022/10/13 12:50
- 工学 コンデンサのサブクラスX1、X2について 1 2022/11/13 12:36
- Excel(エクセル) エクセル 表の作り方ご教示ください 5 2023/07/01 01:02
- Visual Basic(VBA) エクセルのマクロについて教えてください。 5 2023/06/02 08:44
このQ&Aを見た人はこんなQ&Aも見ています
-
ACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ
Access(アクセス)
-
Accessでフィルタの実行アクションをクリアするには?
Access(アクセス)
-
アクセスのfilter、複数条件の記述方法を教えてください。
Access(アクセス)
-
-
4
テキストボックスにクエリ結果を表示させたい
その他(データベース)
-
5
Access サブフォームでの選択行の取得
その他(データベース)
-
6
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
7
ACCESS VBA メインフォーム及びサブフォームのフィルタのクリア
Access(アクセス)
-
8
Access コンボボックスの値をクリアしたい。
PowerPoint(パワーポイント)
-
9
Access 別フォームへの再クエリ(更新)がしたい。
その他(データベース)
-
10
Accessで別テーブルの値をフォームに表示したい
その他(データベース)
-
11
Returnに対するGoSubがありません
Access(アクセス)
-
12
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
13
Access 最後のレコードに到達するまでループ処理を行う方法
Access(アクセス)
-
14
Accessクエリ 複数フィールドを対象に空白の場合は全件表示したい
Access(アクセス)
-
15
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
16
Accessのフォーム上にレコード数とレコード番号の表示
その他(データベース)
-
17
Accessのコンボボックスでリストが選択できない
Word(ワード)
-
18
access別のテーブルを参照してテキストボックスに値を表示、編集したい
Access(アクセス)
-
19
Accessでフォームから別フォームのテキストボックスの値を設定する
Visual Basic(VBA)
-
20
ACCESSのフォームで次のレコードに移動しない方法を教えてください
その他(データベース)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルでオートフィルタのボ...
-
エクセルのオートフィルタで最...
-
エクセルで時刻(8:00~20:00)...
-
Excel共有ブックのオートフィル...
-
オートフィルタ抽出データのみ
-
Excelのオートフィルタで非表示...
-
エクセルの表から抽出したい。
-
エクセルで隔週をもとめる
-
(VBA)フィルタがかかって...
-
エクセルの偶数行(奇数行)の抽出
-
access マクロでのフィルタの...
-
エクセルのマクロを教えてくだ...
-
オートフィルタを見出し行選択...
-
エクセル関数で、数字の入った...
-
エクセルで特定の列にある日付...
-
【大至急】エクセルで、検索語...
-
エクセル マクロ セルの文字と...
-
データの抽出を教えてください
-
エクセル、オートフィルタで最...
-
エクセルにて、フィルタをかけ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルでオートフィルタのボ...
-
エクセルのオートフィルタで最...
-
エクセルで時刻(8:00~20:00)...
-
Excelのオートフィルタで非表示...
-
エクセル関数で、数字の入った...
-
エクセルの偶数行(奇数行)の抽出
-
access マクロでのフィルタの...
-
エクセルにて、フィルタをかけ...
-
Excel共有ブックのオートフィル...
-
オートフィルタで3つ以上の条...
-
オートフィルタは金額の桁カン...
-
データの抽出を教えてください
-
エクセルで隔週をもとめる
-
可視セルを対象としたcountifが...
-
エクセル、オートフィルタで最...
-
オートフィルタで未入力(空白...
-
Excelで文字を入力と自動的にフ...
-
オートフィルタを見出し行選択...
-
Excel2003 オートフィルタで「...
-
オートフィルタで選択したデー...
おすすめ情報