保存時にマクロを実行する

Question

ブックを保存するときに、すべてのフィルタをリセットしたいと考えています。現在私は持っています：

Sub ResetFilters() 
    On Error Resume Next 

    ActiveSheet.ShowAllData 
End Sub 


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _ 
     Cancel As Boolean) 


     Dim ws As Worksheet 

     For Each ws In ActiveWorkbook.Worksheets 

      Call ResetFilters 

     Next 


    Cancel = False 
End Sub 

私が保存すると、私はすべてのフィルタを削除するという考えがあります。それは何らかの理由で働いていません - それは誰にも分かりません。

編集：Excel VBA - Run macro before save

Tlの; DR：：より多くのグーグルは、答えを見つけ、必ずその中のキーワードのstackoverflowでGoogle - それはあなたのプログラムは、より良い、このように書くことができ

Answer 1

劇的に役立ちます。私は元の問題を解決したことを知っていますが、フィルターをリセットするより良い方法は気にしませんでした。あなたは意味あなたがすべきOn Error Resume Nextのdoesntでエラーをバイパスすることができますという理由だけで、VBAを学ぶための

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _ 
     Cancel As Boolean) 

     Dim ws As Worksheet 
     ' Use 'ThisWorkbook' here since you only want to modify the workbook 
     ' that the code is running in 
     For Each ws In ThisWorkbook.Worksheets 
      If ws.AutoFilterMode then ws.ShowAllData 
     Next 

    Cancel = False 
End Sub 

ヒント：ここでは、より良い方法です。多くの場合、単純なブールチェックによってエラーを回避することができます。これにより、他の潜在的な問題を逃すのを防ぐことができ、より良いコーディング方法です。さらに、SOの一部の人々は、エラーを完全に無視しているならば、助けてくれることを心配しません。