7

我试图在列表中找到一个 id 并获取它的地址，但如果没有找到，也要处理一种情况。

这是我所拥有的：

Function find_in_two_ranges_two_sheets(ws1 As String, col1 As Integer) As Range

    Dim rows1 As Integer
    rows1 = Get_Rows_Generic(ws1, 1)
    Dim range1 As Range ' range of first search
    With Worksheets(ws1)
        Set range1 = .Range(.Cells(1, col1), .Cells(rows1, col1))
    End With

    Dim found1 As Range
    Set found1 = range1.Find("test id", LookIn:=xlValues)  

    If found1 = Nothing Then
        MsgBox "nothing"
    Else
        MsgBox found1.AddressLocal
    End If


    Set find_in_two_ranges_two_sheets = range1
End Function


Sub test_stuff()
    Dim x As Range
    Set x = find_in_two_ranges_two_sheets("usersFullOutput.csv", 1)
    MsgBox x.Address
End Sub

当我运行时，在突出显示单词test_stuff()的行中的函数中出现错误。“编译错误；对象的无效使用”。不知道该怎么办。If found1 = Nothing ThenNothing

4

1 回答 1

13

要检查range您需要使用的对象，is而不是=：

If found1 Is Nothing Then
    MsgBox "nothing"
Else
    MsgBox found1.AddressLocal
End If

解释：

取自艾伦布朗

Nothing是对象变量的未初始化状态。一个对象不能是一个简单的变量，比如一个数字或一个字符串，所以它永远不能是 0 或“”。它必须是更全面的结构（文本框、表单、记录集、querydef，...）

由于它不是一个简单的值，因此您无法测试它是否等于某个值。VBA 有一个Is您使用的关键字。

于 2015-03-15T22:20:53.827 回答