使用多个if / then语句而不会出现运行时错误

时间:2015-10-15 17:24:10

标签: vba

vba的新手,并尝试按顺序编写一个简单的if / then语句,以便从不同的工作表返回一个值。

If Cells(4, 4).Value = "water stress" Then
    Cells(15, 4).Value = Application.WorksheetFunction.VLookup(region, ws2.Range("a3:b12"), 2)
End If

If Cells(4, 4).Value = "fire" Then
    Cells(15, 4).Value = Application.WorksheetFunction.VLookup(region, ws3.Range("a3:b12"), 2)
End If

当我只使用第一个if语句运行代码时,它运行正常。当我添加第二个if语句时,我得到一个运行时错误'1004',我无法获得工作表函数类的vlookup属性。我是新手,不知道如何麻烦拍摄。

0 个答案:

没有答案