![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
はじめまして。
エクセルで上部にテキストボックスと検索ボタンを作り、
検索ボタンを押したらテキストボックスの内容を
検索し、オートフィルタで抽出するマクロを作りたいのですが、
いくら頑張ってもエラー等で作れません。
どなたかご教授ください。
A列に用語、B列に用語の説明、C列に用語の分野というシンプルな
用語集というデータです。
主にA列の用語をテキストボックスに入力し検索ボタンで検索。
部分一致でも検索され、一致するものを
オートフィルタ同様に抽出するというマクロです。
結果がなければボアアップウインドウでありませんっとか出るようにしたいです。
何卒よろしくお願いいたします。
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
#1&2です。
テキストボックスが”図形描画”を使っていると、
MsgBox ActiveSheet.TextBoxes("Text Box 1").Text
こんな感じです。
コントロールツールボックスなら#2の方法です。
テキストボックスとボタンが何を使っているのか?で変わってきますよ。
この回答への補足
何度も何度もありがとうごじます。
Private Sub CommandButton1_Click()
MsgBox Me.TextBox1.Text
Selection.AutoFilter Field:=1, Criteria1:="=**", Operator:=xlAnd
Selection.AutoFilter Field:=1, Criteria1:="TextBox1"
End Sub
上記のようなスクリプトなんですが、テキストボックスの内容を
抽出できません・・・
これで検索ボタンを押すと、抽出項目なしで何も抽出されません。。
どうしたら良いのでしょうか・・・
Private Sub CommandButton1_Click()
Selection.AutoFilter Field:=1, Criteria1:="=*" & TextBox1 & "*", Operator:=xlOr
End Sub
上記のプログラムで思うように動きました!
何度も何度もすみませんでした。
ありがとうございました!
No.2
- 回答日時:
#1です。
コントロールツールボックスでTextBox1とコマンドボタン1を貼付けて、
ボタンを押したらテキストボックスの値を表示するだけなら、
Private Sub CommandButton1_Click()
MsgBox Me.TextBox1.Text
End Sub
でしょうか。
あとはこの値をフィルタの抽出条件に入れるだけです。
いろいろいじってますが、思うように機能してくれません。。
Private Sub CommandButton1_Click()
MsgBox Me.TextBox1.Text
Range("E2") = TextBox1
Selection.AutoFilter Field:=1, Criteria1:="=**", Operator:=xlOr
Range("Book1").AutoFilter Field:=1, Criteria1:="textbox1"
End Sub
現在上記のようなプログラムなんですが、
オートフィルタの抽出はできているみたいなんですが、
RANGEメソッドは失敗しましたとエラーがでます。
それと、E2というセルにテキストボックスの内容をコピーし
オートフィルタの抽出条件(用語)にしています。
直接テキストボックス内に入力した文字をオートフィルタかけたい
のですが・・・・
No.1
- 回答日時:
>テキストボックスと検索ボタン
フォームなのかコントロールツールボックスなのかにもよりますし、取り敢えず
エラーになっているコードを提示してみては如何でしょうか。
セルに検索値を入れてマクロを実行させれば、抽出するコードは作成できるのでしょうか?
ありがとうざいます。
抽出もできているのかどうなのか
よくわからないんですが、
マクロの記録で特定文字のオートフィルタ抽出しかできてません。。
テキストボックス ボタン
―――――――――――――――――――――――――――――
用語 説明 分野
○○ ○○○○ ○○○
このような構成です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- Visual Basic(VBA) WordのVBAについて 5 2023/01/11 14:38
- Visual Basic(VBA) 検索のユーザーフォームの表示について 1 2023/03/27 23:31
- Excel(エクセル) PHPプログラムをエクセルに張り付けると検索ボックスがでてくる! 3 2022/05/08 07:10
- Excel(エクセル) マクロでボタンにつける名前がどこに設定されているかわからないケースがありました。 1 2023/06/19 19:37
- Excel(エクセル) マクロVBAのフォルダ階層別で検索の方法 4 2022/04/03 23:23
- Visual Basic(VBA) VBA 検索と入力 Excel ブック ぶぶぶ シート ししし 列V 検索対象の列です 最終行は、お 6 2023/05/17 01:40
- Excel(エクセル) 指定値をマクロで検索&シート移動 2 2022/04/27 23:29
- Visual Basic(VBA) エクセルのマクロで対象ごとにシート分けしてその内容をセルに書き込みたい 9 2022/08/24 13:23
- Access(アクセス) Access 複数条件検索の設定が上手く行きません 1 2022/07/22 20:37
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA シートのボタン名を変更し...
-
VBA(エクセル)で自動的にボタン...
-
ユーザーフォームに別シートか...
-
VBA でのボタンの移動について
-
セルをマクロのボタンにしたい。
-
Button(コントロール)を半透明...
-
DO~LOOP でのLOOP...
-
ボタン
-
Access VBA でデータペーストを...
-
ASP.NETのWebフォーム内で複数...
-
フォームのアイコンが行方不明...
-
Excel VBA Application.caller...
-
VBA CommandButtonの文字ずれ
-
ツールバーのボタンの動きがお...
-
フォームの再読み込み
-
VBA MsgBoxで、”いいえ(No)”ボ...
-
Microsoft Ofice Wordで左揃え...
-
携帯(ガラケー)向けFlashで、自...
-
Excel2003 コマンドボタンのプ...
-
Excel マクロ 閉じるボタン
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA シートのボタン名を変更し...
-
VBA(エクセル)で自動的にボタン...
-
フォームの再読み込み
-
ユーザーフォームに別シートか...
-
VBA CommandButtonの文字ずれ
-
セルをマクロのボタンにしたい。
-
Excel VBA Application.caller...
-
コマンドボタンやイメージにマ...
-
Access VBA でデータペーストを...
-
VBAのボタンの位置が変わって困...
-
ボタンをマウスで押し続けたと...
-
ボタン
-
C#プログラムで、ボタンをショ...
-
VBA でのボタンの移動について
-
閉じると「+」になり開くと「-...
-
ダウンロードダイアログをVB...
-
[Excel VBA]コマンドボタンの入...
-
ASP.Net ラベルの内容をすぐに...
-
プロシージャからイベントをコ...
-
CommandButtonのCaptionを変化...
おすすめ情報