エクセルマスターコミュのVBAでのVlookupで型が一致しない

お世話になります。VBAでのユーザーフォームを作っております。
シートの値をLabelのCaptionとして取得させたいと思い、構文を記述しましたが、エラーで型が一致しないと出ます。
どうもVlookupで値を検索できていないようなので皆様のお力を拝借できませんでしょうか？

シート1のA4：B39にVlookupの検索範囲を設けております。※範囲：”Name”としております。
A列には検索値となる数字（ID）を文字列として入力済み※例）201、202・・・212
B列には取得させたいデータが数式で入力されています。※例）「=If(C4="","",C4)」と入力しセルには「エクセル太郎」と表示されています。

ユーザーフォームのテキストボックスに検索値を入力し、Exitiイベントでテキストボックスからフォーカスを移した際にLabelにB列の検索したデータを表示させたいです。

自分で書いてみたコードは以下の通り
------------------------------------
If TextBox1.Text = "" Then Exit Sub

x = Application.VLookup(TextBox1.Value, Worksheets("サンプル").Range("Name"), 1, False)
Label31.Caption = x
------------------------------------

http://myrtus21.com/blog/2007/06/vbavlookup.html
http://d.hatena.ne.jp/ogohnohito/20100321/p1
http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q12111031642

こちらなども参考にしてみたのですが解決できてません。

エクセルは2010です。

よろしくお願いします。

コメント(16)

最初
全て
最新の40件

[1] mixiユーザー 07月02日 10:36

> どうもVlookupで値を検索できていないようなので皆様のお力を拝借できませんでしょうか？

x の値を確認しましたか？
Debug.Print x などを入れて確認する必要があると思います。

VLOOKUPで取得したいのはB列の値だと思いますが、今はA列の値を取ってきていますね。

[2] mixiユーザー 07月02日 10:38

ブレークポイントを利用するなどしてデバッグしていますか？
A列の値とTextBox1.Valueが一致していないのでは？

[3] mixiユーザー 07月02日 15:50

＞ミキスタさん
お返事ありがとうございます。
xの値は確認したところ「Empty 値」とカーソルを持っていったら表示されました。

すいませんVLOOKUPの記述はこちらの記載ミスです。正しくは
x = Application.VLookup(TextBox1.Value, Worksheets("サンプル").Range("Name"), 2, False)
と書いております。

＞マリ男さん
デバックはステップインで行ったところ、エラーの内容として「型が一致しません」と表示されております。
TextBox1.ValueではなくTextBox1.Textと変えてみたのですが、同じく型が一致しませんとエラーが返ります。

[4] mixiユーザー 07月02日 17:32

TextBox1.Valueの型はどうなっていますか？

[5] mixiユーザー 07月02日 20:34

>マリ男さん
すいません。質問の意味がよくわからないです。
半角数字でテキストボックスには入力しています。
整数型とか文字列型ということでしょうか？

[6] mixiユーザー 07月02日 20:46

>>[5]
実際にどうなっているのか確認しましたか？
MsgBox TypeName(TextBox1.Value)

[7] mixiユーザー 07月02日 20:53

>マリ男さん
試してなかったです。
教えて頂いた方法で試してみます。

そのファイルが会社にあるので明日出社後にまた書き込ませてもらいます。

[8] mixiユーザー 07月03日 08:30

>>[6]
おはようございます。
TextBox1.Valueの型を確認したところ、文字列型となっております。

[9] mixiユーザー 07月03日 08:31

>>[8]
では、例えばRange("A4").Valueの型はどうなっていますか？