用户窗体组合框

Question

我有一个包含一个 ComboBox 和一个 TextBox 的用户窗体。 TextBox 需要对 ComboBox 的值进行 vlookup，但仅当该值存在于列表中时，否则我不希望 TextBox 中出现任何内容，以便用户可以输入新信息。

这是我的进度：

Private Sub TextBox1_Enter()
If cbocolor.Value <> "" Then

Dim evalStr As String
Dim check As Variant
evalStr = WorksheetFunction.VLookup(cbocolor.Value,        worksheets("CONTACTS").Range("allcontacts"), 2, False)
check = Evaluate(evalStr)
If VarType(check) = vbError Then
TextBox1.Value = "Enter new info"

Else
var1 = WorksheetFunction.VLookup(cbocolor.Value,      Worksheets("CONTACTS").Range("allcontacts"), 2, False)
TextBox1.Value = var1



End If

Answer 1

你应该可以用一行来完成所有的事情：

Private Sub TextBox1_Enter()
    If cbocolor.value <> "" Then

        TextBox1.value = WorksheetFunction.IfError(Application.VLookup(cbocolor.value, _
           Worksheets("CONTACTS").Range("allcontacts"), 2, False), "Enter New Info")

   End If
End Sub

用户窗体组合框

UserForm ComboBox

excel

vba

combobox

userform