Excel VBA質問箱 IV

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

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


10296 / 13646 ツリー ←次へ | 前へ→

【22595】テキストボックスから検索したいです。 じん 05/2/24(木) 15:41 質問[未読]
【22597】Re:テキストボックスから検索したいです。 Jaka 05/2/24(木) 17:00 発言[未読]
【22600】Re:テキストボックスから検索したいです。 じん 05/2/24(木) 17:30 発言[未読]
【22640】Re:テキストボックスから検索したいです。 Jaka 05/2/25(金) 9:53 回答[未読]
【22666】Re:テキストボックスから検索したいです。 じん 05/2/26(土) 0:51 お礼[未読]

【22595】テキストボックスから検索したいです。
質問  じん  - 05/2/24(木) 15:41 -

引用なし
パスワード
   初めまして、こんにちは。
超初心者ですが、本、HPなどを見ながらVBAを使って顧客管理をしたいと考えて
やっております。
まず入力用のフォームに名前・住所・利用年月日などを入力し、ワークシート
に転送できるようになりました。
そのフォーム上にさらにテキストボックスとコマンドボタンを配置し名前を入れると、以前利
用したデータから検索してフォーム上のテキストボックスに抽出され、入力の手間を省けるようにしたいと考えています。
フォーム上のテキストボックスをコンボ・リストボックスにかえるなどがあるとは思いますが、
まったくチンプンカンプンです。
何か良いご提案と、コード記述を教えて頂ければありがたいです。
都合の良い質問かとは思いますが、よろしくお願いいたします。

【22597】Re:テキストボックスから検索したいです。
発言  Jaka  - 05/2/24(木) 17:00 -

引用なし
パスワード
   こんにちは。

取得したいデータの列は、固定されているみたいですから、行番号が解れば何とかなるんじゃないかと思います。
名前データが1列目(A)に記入されているとして、下記コードで同じ名前が何行目にあるか解ります。

Sub fnmfm()
  Dim ScNo As Variant
  ScNo = Application.Match(TextBox1.Value, Sheets("Sheet1").Columns(1), 0)
  If IsError(ScNo) Then
    MsgBox "名前が見つかりません。
    Exit sub
  Else
    MsgBox ScNo & "行目にありました。"
  End If
End Sub

取得した行番号を使って、

TextBox2.Value = Sheets("Sheet1").Cells(ScNo,取得したい列番号).Value

で、テキストボックスに入れる。
テキストボックスの値をセルに入れるなら、右辺左辺を入れ替えるだけです。

【22600】Re:テキストボックスから検索したいです。
発言  じん  - 05/2/24(木) 17:30 -

引用なし
パスワード
   Jaka さん、ありがとうございます。
教えて頂いたとおり、うまく出来ました!!
が、これは一文字とかで検索するのは不可能なのでしょうか?
あと、同姓同名がいた場合はどちらが優先されて表示されるのですか?
努力不足で申し訳ございませんが、回答のほどよろしくお願いいたします。

【22640】Re:テキストボックスから検索したいです。
回答  Jaka  - 05/2/25(金) 9:53 -

引用なし
パスワード
   >これは一文字とかで検索するのは不可能なのでしょうか?
エクセル関数のMatchですから、できません。
それでしたら、Findを使った方が良いと思います。
ワイルドカードが使えますし。

>同姓同名がいた場合はどちらが優先されて表示されるのですか?
最初に見つかった物、つまり上にある物。
オートフィルタを使った方が、複数の抽出が可能だしワイルドカードも使えるから、これも選考した方が良いかも。

どんな風に抽出するのかで、抽出方法も変わりますし、どんな風に抽出したら良いのかも、現時点では解らないのではないないのでしょうか?

検索、抽出等で検索して出たスレッドなどを読んで試すなどされると、どれが自分のやりたい事なのか、だんだん見えてくると思いますから、1度目を通してみてね。

【22666】Re:テキストボックスから検索したいです。
お礼  じん  - 05/2/26(土) 0:51 -

引用なし
パスワード
   Jaka さんありがとうございます。
やりたいことの「なんとなく」のイメージはあるんですが、
うまく表現できません。最初に答えを頂いたのでも十分なんですけど
欲深いもので・・・スミマセン。
けど、頑張ってなんとなくを、「これ!!」っていうふうに
探して試して頑張ります。
また質問すると思いますが、よろしくお願いします

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