• ベストアンサー
  • 暇なときにでも

ユーザーフォーム 検索

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

noname#150498

共感・応援の気持ちを伝えよう!

  • 回答数1
  • 閲覧数768
  • ありがとう数4

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

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

こんなんでいいんすかね? '------------------------------------------ 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 '------------------------------------------ 回答の答えではありますが、質問者さんのお望みの答えかどうかはわかりません。

共感・感謝の気持ちを伝えよう!

質問者からのお礼

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

関連するQ&A

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

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

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

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

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

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

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

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

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

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

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

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

  • VBAユーザーフォーム上での検索がしたい

    ユーザーフォームを作成したのですが、コードが分かりません教えて下さい。 ・ユーザーフォームは氏名を入力欄とし以下住所、電話番号等、個人情報が氏名を入力することによって、出てくるようにしたいのですが、可能ですか?個人情報はEXCELシート上にあり、随時追加されていきます。

  • ExcelVBAでユーザーフォームが勝手に閉じてしまいます。

    ExcelVBAでユーザーフォームが勝手に閉じてしまいます。 ExcelVBAを独学で始めてまだ2週間足らずの超初心者です。 Excelワークシートにコマンドボタン配置してそのコマンドボタンを押すとユーザーフォーム1が開き、ユーザーフォーム1に配置してあるリストボックスからリストをダブルクリックで選択すると、ユーザーフォーム2が開くように設定しています。ただ、ユーザーフォーム1のリストをダブルクリックして選択した時点でユーザーフォーム1が勝手に閉じてしまいます。ユーザーフォーム1を勝手に閉じさせないでコマンドボタンで閉じるようにしたいのですがどうしたらよいのでしょうか。レベルの低い質問かもしれませんが困っています。宜しくお願い致します。

  • ユーザーフォームの最小化

    http://www.serpress.co.jp/excel/vba047.html ここを参考にユーザーフォームに最小化のボタンをつけたのですがこの最小化を任意にするにはどうしたらいいでしょうか? 具体的にはユーザーフォームのボタンから他のエクセルを開いた時にとりあえずユーザーフォームを最小化しておきたいのです フォーム自体を小さくすることも考えたのですがまた戻すのが面倒でした。 ですので上記で作成したボタンを実行するには どうしたらいいでしょうか? 是非皆様のお力を貸してください。

  • エクセル ユーザーフォームの住所録

    エクセルVBAのユーザーフォームサンプルとして、住所録を見かけますが、 1.一方的に入力するだけでなく、既に入力したデータがあるかないかを検索し、ユーザーフォームに呼び出し、上書き、もしくは、新しいデータ(列)として追加することは可能でしょうか? 2.1.が無理な場合、入力したデータ側は触らずして、他に方法はないでしょうか?(エクセルにて) 3.2.が難しい場合、アクセスなら可能なのでしょうか? 住所録より少し複雑なデータ入力をユーザーフォームで作成しようと検討中です。宜しくお願いします。