VBでLOOKUP機能

質問

テキストボックス(TextBox1)にコード番号を入力して
ボタンを押すとメッセージボックスにコード番号に合った
名前を表示させるプログラムを作っているのですが、
こういうエクセルでいうLOOKUP機能がVBでできるのでしょうか？可能であれば教えて頂けないでしょうか？

（例）
名前データが以下です。

code　　name
0 東
1 斎藤
2　　　大西

テキストボックスに1を入力してボタンを押すと
メッセージボックスに斎藤と表示させる。

回答No.4

i-touch · ベストアンサー

こんにちは
1000件ほどなら、データはcsv(カンマ区切りテキスト)ファイルにしておくといいと思います。エクセルで編集することも出来ますし。普通にopenして、Input #で、#1の方のような配列に、読み込みます。
--- こんなファイル
0,東
1,斎藤
2,大西
---
厳密にいうと、コードは前にゼロが付いたりしないかどうか（0012とか）、全角で間違えて入れないかどうか、また、名前データ内にカンマが入らないようにする、などの考慮が必要かもしれません。
---
ボタンを押したあとは、やはり#1の方のロジックでいけると思います。

回答No.3

TAGOSAKU7

私の勝手な見解を書きますが、題意には添わないかもしれないので、違うと思ったら無視してください。

LOOKUP関数は表計算ソフトのEXCELにしては、極めてデータベース系ソフト似の関数です。それならば、EXCELをデータベースとして扱ってみてはいかがでしょうか？
参考URLにEXCELにDAOで接続するスレがあります。
SQL文で問い合わせたら、すぐに結果が得られると思います。

それと、もし「ISAMドライバ」のエラーメッセージが出た場合はこちらを・・・
http://oshiete1.goo.ne.jp/kotaeru.php3?q=141615
http://oshiete1.goo.ne.jp/kotaeru.php3?q=407289

参考URL：

http://oshiete1.goo.ne.jp/kotaeru.php3?q=414739

回答No.2

imogasi

次に考えるべき易しい方法は、コード－名前の対応を、テキストファイルで持ち、フィールド長を固定とし、いわゆるランダムファイルとして、持つ。１００人程度分を
１レコードとする。（約１０レコードに１０００人分）。
そして処理が始まるときに、１０レコードを読んで、メモリの配列に読みこむ。
そして名前を検索する時、配列を約１０００要素総なめして探す。
他の方法では、VBからエクセルへ行くプログラム例は、手許にありますが、エクセルを開いたまま待たせて（終わらせないで次の氏名検索まで、もっといえばＶＢが終わるまで開いたままで）、VB側で処理する方法が、私には判らないです。
また他の方法で、検索の都度、１回１回CreateObject(("Excel.Application)して、エクセルへ渡って行くことが、適当なのかどうかも判らない。済みません。

回答No.1

imogasi

Form1に２つTextBoxを貼り付ける。
Private Sub Text1_LostFocus()
Text1.Text = findn(Text1.Text)
End Sub
プロジェクト－標準」モジュールをクリックして
Module1に
Function findn(n)
Dim nmc(3), nm(3)
nmc(1) = "1": nmc(2) = "2": nmc(3) = "3"
nm(1) = "東": nm(2) = "斉藤": nm(3) = "大西"
For i = 1 To 3
If nmc(i) = n Then
findn = nm(i)
End If
Next i
End Function
実行して１か２か３を入れて、Text2へフォーカスを
移すと、１なら東、２は斉藤、３は大西がText1に
セットされます。
FormLoadか何かでText1.Text=""を入れておいてください。
但し上例は幼稚です。総なめで探しているからです。
この部分は、ファイルを構造化して検索を少ない比較回数
で行うようにしますが本題では略。

補足

即答ありがとうございます。実は本番で使う名前の数は１０００件ありまして、配列で個々に定義するのは結構大変なのでもしできれば、別のワークシートで名前と番号の
定義してそこからデータを取ってくる形にしたいのですが
可能でしょうか？