エクセルでフォームを作成しています。（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
---------------------
