VBA 和组合框值

Question

我有一个带有组合框的表单，我希望与组合框中所选 ID 相关的相应值显示在文本框中。问题在于文本框仅显示最后添加的 ID 中的值。这是我的代码，提前感谢您的帮助。

lastrow = wscontact.Cells(wscontact.Rows.Count, 1).End(xlUp).Row
For i = 2 To lastrow + 1
If Val(Me.txtindexcontact) = Val(wscontact.Cells(i, 12).Value) Then                              If Trim(UCase(cbContact.Value)) = Trim(UCase(wscontact.Cells(i, 3).Value)) & " " & Trim(UCase(wscontact.Cells(i, 4).Value)) Then               
MsgBox "find"
FrmVisites.txtfirstname = wscontact.Cells(i, 3).Value
FrmVisites.txtlastname = wscontact.Cells(i, 4).Value
FrmVisites.txtposition = wscontact.Cells(i, 5).Value
FrmVisites.txtphone1 = wscontact.Cells(i, 6).Value
FrmVisites.txtextension = wscontact.Cells(i, 7).Value
FrmVisites.txtemail = wscontact.Cells(i, 8).Value
FrmVisites.txtcellnumber = wscontact.Cells(i, 9).Value                
Exit Sub               
End If
End If
Next i

Answer 1

如果 Me.txtindexcontact = wscontact.Cells(lastrow + 1, 12).Value 那么您只能从 wscontact 组合框中获取最后一个值。