事務職のためのExcelVBA入門講座 > ExcelVBAサンプルマクロ > オートフィルターがかかっていればすべてのデータを表示

ExcelVBAサンプルマクロ

オートフィルターがかかっていればすべてのデータを表示

フィルターで抽出した状態から全表示するにはShowAllDataメソッドを
使いますが、オートフィルターがかかっていない時に実行すると
「実行時エラー'1004':WorkSheetクラスのShowAllDataメソッドが失敗しました」が発生します。

そこで、事前にFilterModeプロパティでオートフィルターがかかっているか判定する必要があります。

サンプルコード



Sub すべてのデータを表示()

With ThisWorkbook.Worksheets(1)
 If .FilterMode = True Then
  .ShowAllData
 End If
End With

End Sub


<<入力規則に合ったデータが入力されているか確認する | 事務職のためのExcelVBA入門講座トップへ | 拡張子を気にせず印刷する>>

この記事へのコメント

コメントを書く

お名前
メールアドレス
URL
コメント
[必須入力]
認証コード
[必須入力]


※画像の中の文字を半角で入力してください。

この記事へのトラックバック


Powered by Seesaa
×

この広告は1年以上新しい記事の投稿がないブログに表示されております。