エクセルでフォームを作成しています。（VBA）

質問

エクセルでフォームを作成しています。（VBA）

フォームＡで作成してあるリストボックスから選択して
取得した番号を
フォームＢにもってきて、その番号をもとにVLOOKUPで
ほかのテキストボックスに値を持ってこようとしている
のですがうまくいきません。

フォームＡのリストボックスにはsheet1の名簿が
表示されています。
クリックで選択した名簿番号を取得して、フォームＢにある
個人のページでその他の詳細を出そうとしています。

名簿番号はフォームＢの名簿番号.Textに持ってこれたのですが
その名簿番号をVLOOKUPで研究名を出そうとしてもうまくいきません。
コードのどこがだめなのか分かりません。

VBA入門者です。
よろしくお願いいたします。
---------------------
Private Sub 決定_Click()
Dim ADR As Variant
On Error GoTo ExitER
Set ADR = Worksheets("sheet1").Range("A:F")

研究名.Text = Application.WorksheetFunction.VLookup(名簿番号.Text, ADR, 4, False)
On Error GoTo 0
Exit Sub
ExitER:
MsgBox "一致するコードがありません"
On Error GoTo 0
End Sub
---------------------

回答No.1

myRange · ベストアンサー

名簿番号は恐らく数値でしょうから、
名簿番号.Textを数値に変換してからでないとダメでしょう。

例えば、Val関数で数値に変換して。。。

WorksheetFunction.VLookup(　Val(名簿番号.Text), ADR, 4, False)

また、CInt、CLngなどでも数値変換できます。

以上です。

お礼

なるほど！
そうだったんですね。ありがとうございます。ちゃんと出てきました。

さらに質問してもよろしいでしょうか。

テキストボックスに表示したのは金額なのですが、文字として認識されてしまっているので
これをケタ区切り？カンマ区切り？というのでしょうか、これに変えて表示させるには
どのような方法でできますでしょうか？

すみませんが教えてください。

回答No.2

myRange

またまた登場、myRangeです。

>テキストボックスに表示したのは金額なのですが
>文字として認識されてしまっているので
>これをケタ区切り？カンマ区切り？というのでしょうか
>これに変えて表示させるにはどのような方法でできますでしょうか？

ちょっと勘違いがあるようです。
TextBoxの値は、桁区切りにしたとしても文字列のままです。
TextBoxの値で計算をしたければ、その時点で数値に変換して計算します。

----------------------------------------------------
●TextBoxの桁区切り表示方法

　　Kingaku = 35000
　　TextBox3.Text = Format(Kingaku, "#,##0")
小数点2桁なら
　　TextBox3.Text = Format(Kingaku, "#,##0.00")
----------------------------------------------------

●Textbox3の値をCDblで数値に変換後計算する

　　Gokei = Gokei + CDbl(TextBox3.Text)

　　TextBox3が３桁区切りの時の数値変換は、Valではダメ。

▼CDbl,CLngなどはヘルプで調べること。
----------------------------------------------------

以上です。