オートフィルタの設定/解除: .xls'オートフィルタモードになっているかどうか調べ、 'ONならOFF、OFFならONにする If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False 'オートフィルタを解除する Else ActiveSheet.Range("A1").AutoFilter 'A1セルを含む表をオートフィルタ設定する End If 'オートフィルタでフィルタされていれば解除して全ての行を表示させる If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData End If ※If文を使わずにフィルタされていないシートに対して実行すると、 実行時エラー'1004': WorksheetクラスのShowAllDataメソッドが失敗しました。 というエラーがでます。
