Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12140 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【12141】オートフィルタで変数を見極める方法 くーさん 04/3/24(水) 21:31 質問
【12143】Re:オートフィルタで変数を見極める方法 りん 04/3/24(水) 21:52 回答
【12144】Re:オートフィルタで変数を見極める方法 くーさん 04/3/24(水) 22:15 お礼
【12141】オートフィルタで変数を見極める方法
質問  くーさん  - 04/3/24(水) 21:31 -
引用なし
パスワード
   皆さんこんばんは。
いつも質問に答えてもらってる方々、ありがとうございます。
そんなトコで私も質問なんですが…。

オートフィルタで＊以上、＊以下をしたい場合、＊の部分をテキストボックスで入力した際、認識させる事って出来るんでしょうか？

TextBox1→0
TextBox2→5
とすると、
Selection.AutoFilter Field:=36, Criteria1:=">=1", Operator:=xlAnd, _
Criteria2:="<=5"
を
Selection.AutoFilter Field:=36, Criteria1:=">=TextBox1", Operator:=xlAnd, _
Criteria2:="<=TextBox2"
みたいにして、見たいんです。
当然ながら、下の記述ではテキストボックスが認識されず、そのまま「TextBox1」がフィルタリングされてしまいます。

色々本を立ち読みした所、書いてる本は１冊もありませんでした。
良い方法がありましたら、お教え下さい。<(_ _)>
【12143】Re:オートフィルタで変数を見極める方法
回答  りん E-MAIL  - 04/3/24(水) 21:52 -
引用なし
パスワード
   くーさん さん、こんばんわ。

>TextBox1→0
>TextBox2→5
>とすると、
>Selection.AutoFilter Field:=36, Criteria1:=">=1", Operator:=xlAnd, _
>Criteria2:="<=5"
>を

　Criteria1とTextBox1の値が一致しないのが気になりますが、そのままフィルタしたいとして。

Selection.AutoFilter Field:=36, Criteria1:=">=" & TextBox1.Text, Operator:=xlAnd, _
Criteria2:="<=" & TextBox2.Text

ではどうでしょうか？
エラーになったら、エラーメッセージの内容を教えてください。
【12144】Re:オートフィルタで変数を見極める方法
お礼  くーさん  - 04/3/24(水) 22:15 -
引用なし
パスワード
   りん さんこんばんは
早速の返答ありがとうございます
>　Criteria1とTextBox1の値が一致しないのが気になりますが、そのままフィルタしたいとして。
わはは。
間違いは気にしないで下さい。ｗ

で、出来ました！
エラーも出ませんでした！！
分かってみると簡単な問題でしたね。(^^;)ゞ

現在データベースを作ってて、最後の最後でこの問題に引っ掛かってました。
これで100%自己満足データベースが完成します。

ありがとうございました！！！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12140 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free