根據ComboBox1選擇在工作表中顯示Textbox1的值

Question

想知道如果您可以幫助將我的工作表中的值添加到TextBox1，具體取決於選擇了哪些ComboBox1項目。

到目前爲止，我有這個我ComboBox1從我的工作表拉列表

Private Sub UserForm_Initialize() 
' *** Load the companies into the delivering firm combo box *** 
For Each cell In Range("RejectTitle") 
    If cell <> "" Then 
     Me.RejectTitleNm.AddItem cell 
    End If 
Next cell 
End Sub 

現在我想有我窗體顯示工作表中的值到TextBox1中根據組合框，但我相信我走向錯誤的道路？

Private Sub RejectTitleNm_Change() 
    Me.TextBox1.Text = Worksheets("Sheet1").Range("E5").Value 
End Sub 

Answer 1

事情是這樣的：

Private Sub RejectTitleNm_Change() 

    Dim f As Range, v 

    v = Me.RejectTitleNm.Value 
    'find the selected value in the source range 
    Set f = Range("RejectTitle").Find(v, lookat:=xlWhole) 

    Me.TextBox1.Text = "" 
    If Not f Is Nothing Then 
     'got a match: get value from ColB on same row 
     Me.TextBox1.Text = f.EntireRow.Cells(, "B").Value 
    End If 

End Sub