Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


51026 / 76732 ←次へ | 前へ→

【30582】Re:データベースに検索窓&実行ボタンをとりつける。
発言  かみちゃん E-MAIL  - 05/10/31(月) 12:55 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>個人的にあまりおすすめできない方法なので、やはり、コードの提示は控えさせて
>いただきたいと思います。

とは言ったものの、自分の勉強(?)もかねて作ってみました。
'検索(オートフィルタ)ボタン
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列
めを検索しています。
この前提条件で動作確認はしてあります。

本当は、「マクロの記録」で記録してオートフィルタのコードをよく理解していた
だきたいのですが・・・・

1 hits

【30554】データベースに検索窓&実行ボタンをとりつける。 千野 05/10/30(日) 21:02 質問
【30557】Re:データベースに検索窓&実行ボタンをと... かみちゃん 05/10/30(日) 21:25 発言
【30558】Re:データベースに検索窓&実行ボタンをと... 千野 05/10/30(日) 21:35 発言
【30560】Re:データベースに検索窓&実行ボタンをと... かみちゃん 05/10/30(日) 21:48 発言
【30561】Re:データベースに検索窓&実行ボタンをと... 千野 05/10/30(日) 22:42 発言
【30562】Re:データベースに検索窓&実行ボタンをと... かみちゃん 05/10/30(日) 22:57 発言
【30563】Re:データベースに検索窓&実行ボタンをと... 千野 05/10/30(日) 23:22 発言
【30569】Re:データベースに検索窓&実行ボタンをと... かみちゃん 05/10/31(月) 7:16 発言
【30582】Re:データベースに検索窓&実行ボタンをと... かみちゃん 05/10/31(月) 12:55 発言
【30613】Re:データベースに検索窓&実行ボタンをと... 千野 05/10/31(月) 23:58 お礼

51026 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free