excel - 不应该存在的零值

Question

我绞尽脑汁想弄清楚最简单的事情。使用下面的代码，我得到零值。
当用户在名为“cbocolor”的组合框中填写内容然后切换到下一个文本框时，我的系统会进行 vlookup。
如果我的联系页面上存在“cbocolor”中的条目，但第 2 列没有任何内容，我希望它只返回没有任何内容(“”)作为我的答案......但它总是返回零。
请安迪的帮助将不胜感激

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

Answer 1

VLOOKUP function试图返回一个空单元格，结果为 0 (即零)正在显示。附加一个长度为零的字符串(例如 "" )以避免这种情况。

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

我不相信你可以使用 WorksheetFunction.IfError以那种方式。如果你遇到麻烦考虑，

if IsError(application.Match(cbocolor.value, Worksheets("CONTACTS").Range("allcontacts").Columns(1), 0)) Then
    TextBox1.value = "Enter New Info"
else
    TextBox1.value = Application.VLookup(cbocolor.value, Worksheets("CONTACTS").Range("allcontacts"), 2, False) & ""
end if

VBA 和 IFERROR function 中的错误处理不同。不会像工作表公式那样捕获从工作表不匹配引发的错误。