代码之家 › 专栏 › 技术社区 › mostafa

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

vlookup if-statement

mostafa · 技术社区 · 6 年前

我正在使用这个代码

Private Sub ComboBox2_Change()
    On Error Resume Next
    Dim myRange As Range
    Set myRange = Worksheets("cash").Range("BF:BH")
    Price.Value = Application.WorksheetFunction.VLookup(ComboBox2.Value, myRange, 2, 0)
End Sub

使用vlookup从textbox2中选择值,以匹配价格中从textbox2中选择的值。如果文本框2中未包含该值,则会显示最后一个价格。
我需要,如果我输入的值不在范围内,没有显示价格。

1 回复 | 直到 6 年前

Scott Craner 6 年前

在尝试执行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

推荐文章

theduker · 计算平均绝对误差时,If语句中赋值前引用的局部变量

2 年前

A.E · python中具有多个if语句的列表理解

2 年前

fc27 · 如果条件python循环不工作,请在中继续

2 年前

Aziz Bokhari · Python-TypeError:“int”和“list”的实例之间不支持“<”

2 年前

sentimain · 如何将if语句合并到另一个if语句中?

2 年前

Alireza Pirmahdi · 我的代码多次执行打印语句,我只想执行一次

2 年前

Maxswift · JS函数运行了两次

2 年前

bcsfh · 如果出现其他情况,则加倍

2 年前

Robbie McM · 如何使列表中的所有数据帧具有相同的列数?

2 年前

Jurgen · 在第1列中找到相同的值,如果第2列中的所有值都是X,则在第3列中给出Y

2 年前