Excellにて「データ→フィルタ→全て表示」をマクロにしました。既にフィルタがかかった状態でこのマクロを実行すると問題ありません。しかし、フィルタがかかっていない状態から実行すると「全て表示」が有効になっていないので、マクロ実行がエラーになってしまいます。
多分、以下のVBに「全て表示」が有効になっているかの判断を入れればいいかと思うのですが、その具体的なコードを教えてください。よろしくお願いします。
Sub 全て表示()
ActiveSheet.ShowAllData
End Sub
No.1ベストアンサー
- 回答日時:
If ActiveSheet.FilterMode = True Then
ActiveSheet.ShowAllData
End If
これでどうでしょう??
Filtermodeで確かboolean型で値を返すと記憶してますが。。。違ってたらすいません。試してください。
No.2
- 回答日時:
Sub 全て表示()
On Error Resume Next
ActiveSheet.ShowAllData
End Sub
とするとエラーが合った場合は無視して次の行へ
行く命令です。SubRoutineの最初の行で使うと便利です。但しこれではエラーがあったのかなかったのか
わかりませんので、プログラム開発用でかつ
作業が停止しないようにする場合は以下のように
すると便利です。
Sub 全て表示()
On Error Goto Ert
ActiveSheet.ShowAllData
exit sub
Ert:
msgbox("フィルター解除でエラーが発生")
End Sub
この回答への補足
回答ありがとうございます。今回はNo.1の方の方法を使わせて頂きましたが、laputartさんの内容はVBの使い方としてはたいへん参考になりました。今後このテクニックを使いたいと思います。
補足日時:2004/12/08 16:39お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルのオートフィルターのしぼりをクリアーしたい 2 2022/12/24 08:36
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルブックの全シートの非表示列を再表示したい 1 2022/12/24 20:48
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 12:30
- PowerPoint(パワーポイント) エクセルのマクロについて教えてください。 1 2022/03/25 17:03
- Visual Basic(VBA) Excelのマクロについて教えてください。 3 2022/06/30 09:36
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/06/19 10:08
- Excel(エクセル) 【マクロ】エラーが発生⇒実行時エラー58既に同名のファイルが存在 5 2022/08/31 10:03
- Visual Basic(VBA) ExcelVBA ドロップボックスで月を選択するとそれ以降のデータが残るようにしたい。 3 2022/12/16 14:53
- Excel(エクセル) 【マクロ】リボン、行列、数式・ステータスバを非表示に 4 2022/12/12 07:32
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
実行時エラー 438になった時の...
-
エクセルエラー13型が一致しま...
-
プロシージャ名の取得
-
エラー1004 PDFの保存ができま...
-
マクロについて教えてください...
-
EXCEL VBAマクロ中断でデバッグ...
-
VBAがブレークモードになっ...
-
なぜこんな初歩的なVBAのIf文で...
-
実行時エラー48発生時のDLL特定...
-
ExcelVBA Range クラスの Page...
-
VBA 別シートのセルから、文字...
-
INSERT INTOステートメント構文...
-
実行時エラー3001「引数が間違...
-
VBS実行時エラー オブジェクト...
-
Invalid procedure call or arg...
-
カーソルオープンでエラー(ORA...
-
エクセルVBAで以下のようなコー...
-
VBで構造体を使うさ際の64k...
-
【Excel VBA】マクロをボタンに...
-
Dictionaryについてその2
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
実行時エラー 438になった時の...
-
エクセルエラー13型が一致しま...
-
【Excel VBA】マクロをボタンに...
-
なぜこんな初歩的なVBAのIf文で...
-
VBAでのエラー
-
マクロについて教えてください...
-
ExcelVBA Range クラスの Page...
-
実行時エラー3001「引数が間違...
-
VBS実行時エラー オブジェクト...
-
VBAがブレークモードになっ...
-
OLEDB.NETで接続できない
-
プロシージャ名の取得
-
EXCEL VBAマクロ中断でデバッグ...
-
VBSで変数の宣言はできないので...
-
ADODB.Streamを使用してUTF-8を...
-
実行時エラー -'-2147417848
-
AccessVBAでExcelを起動し、罫...
-
VB6+SQL サーバー 2000 で 実行...
-
Outlook.ApplicationをCreateOb...
-
Application.ActiveInspectorで...
おすすめ情報