VLookUp TextBoxの値を更新するコンボボックスの入力

Question

私の問題は、ユーザーフォーム内のドロップダウンリスト（ComboBox）から一度国を選択すると、テキストボックスに出力が表示されません。何も起こりません。テキストボックスは、ComboBoxで選択されている値に関係なく、VLookUpを実行することになっています。コンボボックス（名前）は「国」です。テキストボックスのいずれかの

コード：

Private Sub TextBox2_Change() 
Dim myRange As Range 
Set myRange = Worksheets("All Countries Validation").Range("A:R") 
TextBox2.Value = Application.WorksheetFunction.VLookup(Country.Value, myRange, 2, False) 

Answer 1

があなたの代わりに1

Option Explicit 

Private Sub Country_Change() 
    Dim myRange As Range, f As Range 

    Set myRange = Worksheets("All Countries Validation").Range("A:A") 

    Set f = myRange.Find(What:=Country.Value, LookIn:=xlValues, Lookat:=xlWhole, MatchCase:=False) '<--| try and find combobox selected value 
    If f Is Nothing Then '<--| if not found ... 
     TextBox2.Value = "" '<--| ... then clear textbox 
    Else'<--| ... otherwise... 
     TextBox2.Value = f.Offset(, 1) '<--| ... fill it with proper value 
    End If 
End Sub