Menuへ
Excelで表を使った顧客管理ソフトを作ってみよう

Step 8　抽出の解除

抽出を解除するには、もう一度AutoFilterを実行すればいいのですが、その前に抽出されている画面かどうか調べる必要があります。
抽出画面でないと逆に抽出用のドロップダウン矢印が表示されてしまいます。

抽出画面かどうは、AutoFilterMode プロパティでチェックします。
AutoFilterModeがTrue の場合、シートにオートフィルタの下向き矢印が表示されています。
例としては下記のようになります。
If ActiveSheet.AutoFilterMode Then
抽出の解除の実行
End If
シートコード
下記のコードを追加してください。

Private Sub CommandButton1_Click()
    If ActiveSheet.AutoFilterMode Then
        Range("A4:L10004").Select
        Selection.AutoFilter
        Range("B5").Select
    End If
End Sub


抽出画面
■抽出実行画面
名前から「水」で抽出しています。
名前で抽出

■解除後
解除され抽出用のドロップダウン矢印がなくなっています。
フィルターの解除


Topへ
■このサイトの内容を利用して発生した、いかなる問題にも一切の責任は負いませんのでご了承下さい。■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します。

Copyright (c) 2006-2007 Excel-Excel ! All rights reserved.