• ベストアンサー

ユーザーフォーム　検索

ユーザーフォームで「ｃｔｒｌ+F」の検索と同じ機能を作ってみたいです。 VBAコードが知りたいです。 というより 今あるユーザーフォームに「検索機能」をつけたいです。 よろしくお願い致します。 （エクセル2003です）

noname#150498
noname#150498

質問者が選んだベストアンサー

  • ベストアンサー
  • benelli
  • ベストアンサー率51% (78/152)
回答No.1

こんなんでいいんすかね？ '------------------------------------------ Dim FindAns As Range Dim FindStr As String FindStr = "2" '探す文字列 Set FindAns = Cells.Find(What:=FindStr, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) If FindAns Is Nothing Then MsgBox FindStr & "はなかった" Else FindAns.Activate End If '------------------------------------------ 回答の答えではありますが、質問者さんのお望みの答えかどうかはわかりません。

noname#150498
質問者

お礼

できました！ 大変参考になりました。ご回答ありがとうございます。

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • ユーザーフォームをショートカットで立ち上げる。

    ユーザーフォームをショートカットで立ち上げる。 VBA初心者です。宜しくお願い致します。 ボタンを作り、マクロを登録し、そのボタンを押すと ユーザーフォームが出るようにしています。 しかし、入力の際にいちいちマウスでボタンを押すのが面倒なので [F1]や[Ctrl＋○（なにかのボタン）]でユーザーフォームを出したいと思います。 色々調べたのですが初心者の為少し分かりませんでした。 どなたかご教授いただければ幸いです。

  • ユーザーフォームを使って検索が出来るようにしたいのですが

    （言葉の使い方が間違っていたらわかりずらくて、すみません） 経理の仕事をしているのですが、新しく人が増えた時のためにエクセルで経理のマニュアルを作るよう指示されました それで、普通に説明が載っているものとは別に『こういう時にはこういう処理をする』というような感じの逆引き検索機能が出きるようなものを作りたいのですが、ＶＢＡの本を買ってきて読んでも、わからなくてなかなか先に進めません 希望としてはわかならいことを検索したい時に検索ボタンを押すと、自分で作ったフォームが表示されて、キーワードを入れて検索すると、ヘルプのようにその言葉に関する題名のようなものが出てきて、その中から一つを選択すると、詳しい説明が表示されるようにしたいです エクセルの隣のシートにはマニュアルのデータを入れて、随時追加もしたいです ＶＢＡに関しては全くの初心者です　このような事が出来るのかどうかも不明なのですが　どうぞ宜しくお願い致します　

  • エクセルVBA ユーザーフォーム　検索

    現在VBAにてユーザーフォームにて入力したデータをシート１に転記するものを作成しました。 この転記したデータを生かして作業したいと考えております。 データは商品データで A 　　　B C E F 商品コード　商品名　 区分　　単価　　備考 となっており　ユーザーフォームも TEXTBOX1=A TEXTBOX2=B と言う様になってます。 現在考えているのがこのデータの一部を変更したい場合、コマンドボタンを押すと商品コード入力用boxがでてきて、商品コードを入力するとA列から検索し該当する商品データをユーザーフォーム上に表示するようにしたいのです。 そのデータがA75行にあったとします。 そのユーザーフォーム上で単価を変更した場合検索した行（A75行）にそのまま上書きする様にしたいです。 説明がうまくできてないかも知れませんが、どなたかご教授願います。

  • Excel VBAでユーザーフォームだけ表示

    Excel VBAでユーザーフォームだけ表示の設定をしました。エクセルの中身や、コードを修正したいのですが、エクセルを開くことができません。なんとかエクセルを開くことはできませんでしょうか？

  • エクセルＶＢＡのユーザーフォームについての質問です。

    エクセルＶＢＡのユーザーフォームについての質問です。 ユーザーフォーム内のラベルの文字を大きくするにはどの様に すれば宜しいのでしょうか。 お教え頂きたく宜しくお願い致します。

  • エクセル　VBA　ユーザーフォームで検索したいのですが

    つい昨日触り始めた大初心者です。。 エクセルシートにて 数値を記した列と、詳細を記した列があります。 ユーザーフォームにて textboxに数値を入力し、ボタンをクリックすると 検索をして、ユーザーフォーム内のlabelに詳細が表示される、といったvbaを書いているのですが、どうにもうまくいきません。 また、textboxに検索範囲にない数値が入力されたときには Labelに「なし」と表示させたいのですが、 エラーが出てしまい、その処理もやはりうまく出来ません。 どなたかご教授いただけますでしょうか。

  • VBAユーザーフォーム内のテキストボックスで検索

    http://oshiete.homes.jp/qa3451770.html こちらで質問した者なのですが （benelli様ありがとうございました） VBAでユーザーフォームでの検索を作成し このユーザーフォーム内にテキストボックスを作成して そのテキストボックスに入力した数字を検索できるようにしたいです。 よろしくお願い致します。

  • エクセルのユーザーフォームについて

    エクセルのユーザーフォームについて教えてください。 ユーザーフォームにてメニュー画面を作成しました。 ユーザーはメニューからの操作だけでエクセルシートを作成できるようなマクロをつくりました。 ユーザーフォームのコマンドボタンでＥＸＣＥＬを終了させることはできますか？ ＶＢＡの記述方法も教えてください。

  • ユーザーフォームのテキストボックスの内の値を検索する方法

    エクセルVBAのユーザフォームでテキストボックス内の値を検索したいのですが、どのように書いたら検索できるかわかりません。 検索をできるかもわかりません。 ※ユーザフォームの値はセルにセットしない形でお願いします。 　直接テキストボックスの値を検索したいです。 　検索の結果として返ってくる値は特になんでもいいです。 ご存知でしたらよろしくおねがいいたします。

  • ユーザーフォームへの文字の表示方法について

    ＶＢＡを始めたばかりの超初心者です。単純にユーザーフォームを作って検索ボタンを付け、検索結果を表示させる。こんな単純な事がわからずに困っています。 問題は何行もヒットしたらスクロールバーはどうするのか？ 検索結果だけの部分をスクロールさせたい。 コントロールは何を張るのか？ラベル？テキストボックス？ 検索したい情報はエクセルで有るのでそれを引っ張ってきたいだけなですが。。 出来れば同一のユーザーフォームに表示させたいです。 どなたか教えて下さい。宜しくお願い致します。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する