Question

我正在使用此代码

aaa 111 bbb 222 ccc 333
ddd 444 eee 555 fff 666
iii 777 jjj 888 kkk 999
lll 101 eee 201 nnn 301

使用vlookup从textbox2中选择值，以匹配从pricebox2中选择的值。如果该值未包含在textbox2中，则显示最后一个价格如果我输入的价值不在范围内，则不需要显示价格。

Answer 1

在尝试执行Vlookup之前清除该值。

使用On Error Resume Next时，请尽快重新启用错误处理。

Private Sub ComboBox2_Change()

    Dim myRange As Range
    Set myRange = Worksheets("cash").Range("BF:BH")

    Price.Value = ""
    On Error Resume Next
        Price.Value = Application.WorksheetFunction.VLookup(ComboBox2.Value, myRange, 2, 0)
    On Error Goto 0
End Sub

如果值不在范围内，则通过vlookup更新文本框

1 个答案: