• 締切済み

エクセル終了時ソートを強制解除したい。

エクセル終了時にオートフィルタで ソートしたまま上書き保存できないように できるマクロはありますか? 強制解除でもメッセージボックスで警告でも いいのですがどなたかご教授お願いします。 Verはエクセル2003です。

  • sho41
  • お礼率14% (2/14)

みんなの回答

  • Alpha-j
  • ベストアンサー率66% (18/27)
回答No.1

以下をVBA Project の ThisWorkbook に設定してください Bookを開くたびにこのマクロが動き膳シートのフィルタを解除します Private Sub Workbook_Open() For i=1 to Worksheets.Count Worksheets(i).AutoFilterMode = False Next i End Sub

関連するQ&A

  • Excel97で強制終了

    Win98SEでOffice97を使っています。 以下の動作時に強制終了されます。 ・マクロの記録ボタン押下時 ・Ctrl+s押下時(上書き保存) ・Crtl+w押下時(閉じる) ・Ctrl+a押下時(全セル選択) ・ツールバーのボタンや図形(テキストボックス)にマクロを登録しようとする時 これ以外は試してませんが、Ctrl+1(セルの書式設定)などは使えます。 先日、Access97をフルインストールした頃から症状が出ているようです。(以前は標準インストールでした) どうすれば強制終了がなくなるでしょうか? 宜しくお願いします。

  • Excel強制終了

    仕事で使っているExcelのブックがあります。 ある1列に入力しようとすると必ずエラーがでてExcelが強制終了されてしまいます。 いろいろ試してみたもののどうにも変わらず困っています。 どなたか原因がわかるかたもしいらっしゃいましたら教えてください。 以下のような感じです。 エラーの文章 『問題が発生したためMicrosoft Office Excelを終了します。ご不便をおかけして申し訳あ りません。 作業中の内容は失われた可能性があります。Microsoft Office Excelで、作業内容の回 復を試みることができます。 □作業内容を回復しMicrosoft Office Excelを再起動(R) この問題をMicrosoftに報告してください。 ~~~~~     』 ■バージョン WindowsXP Excel2003 ・A列からR列までで500行ぐらい入っているデータ ・オートフィルタを使っている ・その列だけオートフィルタの▼ボタンを押すとエラーがでる ・オートフィルタを解除しても文字を入力するとエラーがでる ・空白行もある ・入力するセルの上下1行以上空いていると入力できる ・入力するセルの上下どちらかにでも文字が入っていると入力できずエラーになる ・現在すでに文字が入力されているセルにも入力できない ・その列の左右の列などには普通に入力できる(異なるのは文字数ぐらい) ・マクロなどは使っていない ・書式は罫線と中央ぞろえのみ 試してみたこと(○がうまく行った操作 ×がエラーになった操作 ×再起動 ×別の名前を付けて保存 ×その列の適当な一箇所をそこだけコピーして別のブックに貼り付け ×別の場所に中身をコピーし、列を削除。  その後新しい列を挿入しなおし、よせておいたデータを値だけの貼り付け ×シートすべてをコピーして新規ブックに値だけの貼り付け ○別のセルに文字を入力しておいてコピーしてその列に貼り付ける

  • エクセルのマクロ(検索)

    お世話になります。 エクセルのマクロで以下の処理をしたいのですがアドバイスください。 Excel2002です。 以下は実際の作業を簡略化したものです。 F列が●●という文字列で、かつE列が空白以外の行を検索した結果、 →対象行がない場合、【対象行はありません】というメッセージボックスを出し、OKをクリックしてマクロを終了させる →ある場合、1行目にオートフィルタを設定し、F列が●●という文字列で、かつE列が空白以外の行を表示させる(オートフィルタの機能で)ここでマクロの動作を一時停止させ、【続行】or【終了】が選択できるメッセージボックスを表示させる。 ここで【終了】をクリックすればマクロを終了させる。 【続行】をクリックすれば、いまオートフィルタで表示されている行のD列を値をすべて-1に変更する。次にオートフィルタを解除し、F列にある●●というセルをすべてクリア(空白)しマクロを終了させる。 アドバイスお願いします。

  • Excelが強制終了になってしまうのですが‥

    もし以下の原因、あるいはどこに問い合わせればよいかご存知でしたらお教えください。 ・Excel97で特定のファイルを開くとき、強制終了される ・Access97でエキスポートして作成したExcel97のファイルが「マクロが含まれています」というメッセージが表示される ・Office2000でExcelが強制終了が出て開けない。また、アンインストールしてインストールしなおしても現象がなおらない Excel97の特定のシートを開こうとすると「メモリ不足です」というメッセージが表示され、印刷しようとしても、新規作成したファイルにコピーペーストしようとしても強制終了になります(複数台のPCにて。OSはWin98SE/ME)。 どうしても印刷したいので、Access97でテーブルとしてインポートし、再度excel97のファイルとしてエクスポートしました。 エクスポートしたファイルを開こうとすると「マクロが含まれています」というメッセージが表示されます。「マクロを無効」にチェックを入れ、開こうとすると、「このブックにはマクロ(Microsoft excel4.0macro)が含まれています。安全だとわかっている場合ははいをクリックして開いてください」と、もう一度メッセージが表示されます。不安なので開きませんでした。 PCはNorton2001の最新のウィルス定義を使用し、HDD全体のウィルススキャンをしましたが、ウィルスは検出されません。シマンテック社さんに分析を依頼しましたが、悪意のあるコードは見つからなかったとのことです。 また、このファイルが原因かわかりませんが、office2000をインストールした複数台のPCでexcelが起動できなくなりました。アンインストールしてインストールしなおしてもやはり強制終了になります。 Accessのテーブルの状態で全ての列を選択してコピーし、Excelにペーストすると問題なくデータが表示・印刷できるのですが、なにぶん気持ちが悪いです。

  • シャットダウン時のExcel強制終了は?

    Excel上のシートを介して外部アプリとデータをやり取りしています。 利用者に意識させずバックグラウンドで動作しているような感じにするため、 Excelを見えないように起動しています。 パソコンをシャットダウンする際、 このExcelについて「変更を保存しますか?」メッセージが表示され、 シャットダウン処理がそこで止まってしまいます。 このメッセージなしに強制的に終了させるにはどうすればよいでしょうか。 shutdown.exe を使う方法がありそうですが、 できれば通常の手順でシャットダウンさせたいと思います。 VBAで ActiveWorkbook.Saved = True とする方法も試しましたが、 Excelを[X]ボタンで終了させる際は Workbook_BeforeClose イベント中で行えば良いですが、 シャットダウン時はこのイベントは来ないようです。 「変更を保存しますか?」は Workbook_BeforeClose イベントより後、 Workbook_Deactivate イベントより前に来るようです。 このメッセージが表示されるタイミングのイベントが分かれば、 そのイベントの中で ActiveWorkbook.Saved = True すればいいのでしょうが...。 シャットダウン処理の工夫、Excel 側の工夫、どちらでも良いのですが、 強制終了させる方法をご教授ください。 (あるいは、方法がない、という情報でもよいので...。) どうぞよろしくお願いします。

  • エクセル2007 上書き保存時に警告メッセージを出したい

    エクセル2007 上書き保存時に警告メッセージを出したい エクセル2007で上書き保存アイコンをクリックした際に 任意のメッセージが出るように設定したいのですが、 当方、マクロやVBAに詳しくないもので どなたか分かる方いらっしゃいましたら教えてください。 ※OS WindowsXP  

  • EXCELのオートフィルター解除でエラー発生

    EXCEL2000を使っています。 以前EXCEL97で表を作成してオートフィルターをかけたまま 終了し、EXCEL2000で開いて編集しようとしたところオートフィルターの解除をするとアプリケーションエラーが発生し、オートフィルターを解除できなくなってしまいました。 すべて表示を選んでも強制終了がかかってしまいます。 どうにかしてオートフィルターを解除して全てのデータを表示させたいのですが、どうすればいいのでしょうか? もうもとにもどすことはできないのでしょうか?

  • Excel VBAのオートフィルタ解除について

    こんばんわ。 現在、コマンドボタン(オートフィルタの設定)にオートフィルタを設定するようなマクロを登録しています。 そして、別のコマンドボタンにはオートフィルタの解除を実施するマクロを書きたいんです。 しかし、オートフィルタを設定していない時に、解除のマクロを実行するとエラーになってしまいます。どうしたら良いのでしょうか? If・・・文を使って、対象セルにオートフィルタが設定している時は解除を実施し、オートフィルタが設定されてない時は、何も実施しない。 このようなマクロはどうしたら良いのでしょうか? よろしくお願いします。

  • エクセルで行をソートする方法

    はじめまして、PCにあまり詳しくないもので質問させていただきます。エクセルで列をオートフィルターを使ってソートするように行をソートする方法はあるのでしょうか??困っています。どなたか分かる方がいました是非お教えください。 宜しくお願いいたします。

  • エクセルでソートをかけたときの印刷がうまくいかない。

    エクセルで大きな表があり、オートフィルタで必要な部分のみが表示されるようにしたときに印刷ボタンを押すと、紙全面に表が表示されず、途切れ途切れになってしまいます。 どうも、オートフィルタ(ソート)をかける前に1ページ目にあった部分は1ページ目に、3ページ目にあった部分は3ページ目に印刷されてしまうようです。 ソートをかけた時の画面そのままに印刷するにはどうすればよいのでしょうか? よろしくお願いいたします。

専門家に質問してみよう