VBA for excel 给出“未设置对象变量”或“需要对象”

Question

我一直在尝试在表中搜索预定值，​​如果该值不存在，请添加该值，然后在表中创建一个新行。

我知道听起来很简单。

tblrow = tbllook.Range.Columns(1).Cells.Find(shtfind, searchorder:=xlByRows, searchdirection:=xlPrevious).Row 

MsgBox tblrow 

If tblrow Is Nothing Then 
    tblcount = tbllook.Range.Rows.Count 
    tbllook.Range(tblcount, 1).Select 
    ActiveCell = shtfind 
    tbllook.ListRows.Add 
End If

Tblerow 目前作为变体变暗。

当我在表中找到它时，我在 msgbox 中得到了正确的答案，但随后在 If 语句中吐出“需要对象”错误。

但是当在表中找不到该值时，它仍然会吐出相同的错误。

我尝试将 tblrow 的 Dim 更改为 Object，然后在我的 .find 行上得到一个“对象变量或未设置块变量”，即使我将 set 放在它前面。

我对问题的谷歌搜索告诉我，这是因为它没有在表中找到值，并且我添加的 If 语句应该对它进行排序，但它没有。

请帮忙。

Answer 1

尝试检查“找到”的值是否为空：

Sub TestMe()    
    If tbllook.Columns(1).Cells.Find("test") Is Nothing Then
        MsgBox "It is Nothing?"
    End If    
End Sub

然后它会工作。此外，tbllook.Range 会在您使用它时出现错误。

恭喜您将代码添加到您的问题中。下一步，尝试按照 cmets 中的建议复制和粘贴代码。 How do I format my code blocks?这样你会得到更多的关注。