- ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：ShowAllDataのエラーを回避したい）
ShowAllDataのエラーを回避する方法
このQ&Aのポイント
- Excelのオートフィルタを使用した後にデータを全て表示させるコマンドボタンを作成しましたが、全表示された状態でボタンを押すとエラーが発生します。
- エラーの内容は、'1004'という実行時エラーメッセージで、WorksheetクラスのShowAllDataメソッドが失敗したことを示しています。
- ShowAllDataメソッドの失敗を回避するには、一度フィルタを解除してからコマンドボタンを押す必要があります。別の方法としては、ShowAllDataメソッドを使用せずにフィルタを解除するVBAコードを追加する方法もあります。
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
FilterMode プロパティが True のときに ShowAllData メソッドを発行すればよいのでは？ 非表示になっている行があれば全行表示する。 Private Sub CommandButton1_Click() If ActiveSheet.FilterMode Then _ ActiveSheet.ShowAllData End Sub
お礼
うまくいきました！ありがとうございました。