- ベストアンサー
マクロでオートフィルタを（すべて）に戻したい。
エクセルで4月～3月の12sheetを作って、4月に次のような記録マクロを作りました。コマンドボタンを押して、オートフィルタであるデータを抽出して抽出というsheetにコピペし4月に戻って全て表示に戻すまでを作成しました。これを5月～3月にコピペしたのですが、抽出コピペまではできますが4月に戻ることになっているので、5月以降は全て表示に戻すことができません。全てのシートに適用させるには、それぞれ月毎に記録させないとできないでしょうか？
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (1)
- gztar2005
- ベストアンサー率20% (15/73)
これはVBAで変数を組む必要があります。 http://www.fuji.ne.jp/~excelyou/ EXCELファンクラブに質問してみてください。
お礼
ありがとうございます。回答no1のmerlionXX様のやり方で解決しました。
関連するQ&A
- Excel2003でシート保護（オートフィルタ使用にはチェック）するとマクロのオートフィルタでエラーになる
QNo.3901563で回答いただき、Excelの試用で保護後のオートフィルタは使えないのはわかりました。 そこで予めオートフィルタを設定し、シートに保護をかけました。 Excelの画面上ではオートフィルタは使用できます。 マクロよりオートフィルタの抽出条件を変更するコマンドを実行すると「保護されたシートに対して、このコマンドは実行できません」と表示されます。コマンドは新しいマクロの記録で操作を記録したものです。記録したときは特にエラーはでませんでした。 Selection.AutoFilter Field:=2, Criteria1:="AAA" マクロのコマンドでは保護のかかったシートのオートフィルタの抽出条件を変更することは出来ないのでしょうか。 マクロの前後にシート保護を解除するコマンドを入れようかとも思ったのですが、保護にパスワードがかかっており、本末転倒となるもので。
- ベストアンサー
- オフィス系ソフト
- EXCELのオートフィルターマクロについて
初歩的な質問で恐縮です。 sheet1にデータ一覧を作成（仮にシート名を「データシート」とします）し、 sheet2へ検索条件を入力するセルとコマンドボタンを配置し、sheet1のデータを「オートフィルタで検索」するマクロを作成しました。 マクロの検証も行い動作の確認も行いマクロの実行してみると、ちゃんとフィルタ処理されており全て完璧！となりました。 ところが、他人への配布も予定していたので、データの改ざんを防止するため、データシートをシート保護して実行したところ、「ロックされているため実行できません」旨のエラーになってしまいました。 やはり、シートの保護を行なってしまうと、マクロであってもオートフィルタ機能は使用できないのでしょうか？ 何か解決（保護状態でもオートフィルタ機能が使用可能）方法はありませんでしょうか？ ご教授お願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセルのオートフィルターをマクロで記録
エクセルのマクロ記録でオートフィルター機能を記録したのですが フィルターのボタンを押して各項目を選択するのに （すべて） （トップテン） （オプション） （空白セル） （空白以外のセル）があるのですが （空白セル）を選択すると , Criteria1:"=" （空白以外のセル）だと , Criteria1:"<>" のようにマクロ記録されます （すべて）を選択した場合 , Criteria1:が記録されないのですが これをあえて構文として書くと、どのようになるのでしょう 他のマクロで引用したいので困っています よろしくお願いいたします
- ベストアンサー
- オフィス系ソフト
- Excel→オートフィルタ→すべてを表示
Excel 2003にて、データを入力して 特定のセルのみ、入力編集できるようにしたいため、 シート保護をかけており、オートフィルタで絞込みまではできるようになったのですが いくつかの項目で絞込みをすると、その分、順番にすべてを表示をクリックしないと いけないので、手間がかかります。また、シート保護をかけているので、メニューバーの すべてを表示は選択できません。 そこで、オートシェイプで、すべてを表示のボタンをマクロ、で作成しようと試したんですが エラーが出たりで上手くいきません。 上記の状況で、ワンクリックですべてを表示させる 正しい方法、何かいい方法をご存知の方、よろしくお願いします。
- 締切済み
- Visual Basic
- オートフィルタで表示されるリスト全部をマクロで抽出したい
マクロでオートフィルタで抽出する項目を idx = Split("A社,B社,C社,・・・・・", ",") として入力し、 .AutoFilter Field:=1, Criteria1:=str(idx) というように抽出し、新しいシートにコピーているのですが、 社名の追加や変更がよくあるので、 その場合、毎回マクロを訂正しなければなりません。 オートフィルタのドロップダウンリストに表示されるものを １つずつ全て抽出して新しいシートにコピーする方法はないでしょうか？ ご存知の方、どなたか教えてください。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- オートフィルタの抽出結果をマクロで表示するには？
A 1000 D 200 A 500 A 1000 B 2000 上表をオートフィルタでA及び1000で絞ると左下に『4レコードで2個です。』と抽出個数が表示されると思いますが、その個数(2個)をマクロを使って表示させるにはどうすればいいでしょうか？ マクロの記録でオートフィルタをかけるところまではできるのですが、個数表示で壁にぶち当たっています。 ちなみに1000を検索させて個数を出すという方法もありますが、2行目のデータが他の行にもあるため、データを検索させて個数を導くマクロは作られないので、オートフィルタからのマクロを作成しています。 マクロ初心者のため、分かる方いらっしゃいましたらご教授をお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセル・マクロ オートフィルタからコピー
Ｅｘｃｅｌ2000使用中です。 縦にたくさん項目が並んでいる表にオートフィルタを行い特定の項目のみを抽出し、抽出した項目のみを他の表にコピペをするという作業をマクロで行ないたいです。 ただし抽出した項目数は50～75項目で日によって変わりますが、抽出先の表は75項目で、75に足りない部分は空白です（空白は必須です）。 始めはオートフィルタをかけた後で上から75行コピーして貼り付けをしてマクロ設定してみたのですが、うまくいきません。 このように日々変化する項目があってもマクロを設定する方法はありますか？
- ベストアンサー
- その他MS Office製品
- エクセル-マクロ-オートフィルタ
エクセルのマクロで、 オートフィルタでデータを抽出する場合、 引数Criterial,Criterial2で文字列を指定しますが、 Criterial3…とできません。 ・３個以上抽出したい場合 ・「＊～」以外を抽出したい場合 がわかりません。 教えて下さいｍｍ。
- ベストアンサー
- オフィス系ソフト
- エクセルのオートフィルタについて
お願いします。 エクセルでオートフィルタかえてデータ抽出すると 「●●レコード中●●件」って左下に出ますよね。 それがなぜか出なくなってしまったのですが、何が原因かお分かりになる方いらっしゃいますか？ 「コマンド」っていう表示のままなんです。
- ベストアンサー
- 会計ソフト
- マクロ オートフィルタで困っています。
マクロ オートフィルタで困っています。 1列目と2列目からそれぞれ条件をフィルタで抽出し、抽出された行を削除するマクロを組んだのですが（下記）、Bの条件が表にない場合に2行目から下が全て削除されてしまいます。 元の表は毎週変わるため、抽出する条件があるかないかはその時次第です。 オートフィルタにこだわってはいませんが、その他の抽出方法もいまいち分からず……。 どのようにすればよいのか、教えていただけますでしょうか。 宜しくお願い致します。 <マクロ> Sub Macro() Selection.AutoFilter Field:=1, Criteria1:="A" Selection.AutoFilter Field:=2, Criteria1:="B", Operator:=xlAnd Dim gyou(1) As Long gyou(0) = 2 gyou(1) = Range("A1").CurrentRegion.Rows.Count Rows(gyou(0) & ":" & gyou(1)).Select Selection.Delete Shift:=xlUp End Sub
- ベストアンサー
- その他MS Office製品
お礼
できました！ 完璧に望みどおりの動きをしています。ありがとうございました～！