|
こんにちは。かみちゃん です。
>個人的にあまりおすすめできない方法なので、やはり、コードの提示は控えさせて
>いただきたいと思います。
とは言ったものの、自分の勉強(?)もかねて作ってみました。
'検索(オートフィルタ)ボタン
Private Sub CommandButton1_Click()
Range("A4").Select
Selection.AutoFilter Field:=1, Criteria1:=TextBox1.Value
End Sub
'解除(すべて表示)ボタン
Private Sub CommandButton2_Click()
If AutoFilterMode Then
Selection.AutoFilter
Else
MsgBox "オートフィルタは実行されていません"
End If
End Sub
シート上に「コントロールツールボックス」の「テキストボックス」と「コマンド
ボタン」を配置しています。
そのため、上記コードは、標準モジュールではなく、シートモジュールに記述します。
また、検索したいデータベースは、A4セルから下方向にあるものとし、それの1列
めを検索しています。
この前提条件で動作確認はしてあります。
本当は、「マクロの記録」で記録してオートフィルタのコードをよく理解していた
だきたいのですが・・・・
|
|