使用函数返回值时出现“object required”错误？

Question

我有一个函数可以查找某个范围内的当前日期并返回找到它的单元格。我试图使用该单元格的位置来计算子例程内的偏移量。但是，当我运行宏时，我得到objected required作为错误。功能和子程序被如图所示：

Function findCurrentDate() As Range 
    Dim needle As Date 
    Dim rng As Range 
    needle = CLng(Date) 
    Dim haystack As Range 
    Dim search As Range 
    Set haystack = Range("B3:B86") 
    Set search = haystack.Find(needle, After:=haystack(1), _ 
          LookIn:=xlValues, Lookat:=xlWhole, _ 
          SearchOrder:=xlNext, MatchByte:=True) 
End Function 

Sub showFutureWeeklyHours() 
    Dim wkday_row_offset As Integer 
    Dim search As Range 
    Set search = findCurrentDate() 
    Set wkday_row_offset = search.Row 
... 
End Sub 

这不是完整的子程序，但它足以重现错误。日期列表存储在单元中B3:B86

Answer 1

这个wkday_row_offset是一个数字，而不是一个对象，所以不要使用Set。

"This method returns Nothing if no match is found. The Find method does not affect the selection or the active cell." 

http://msdn.microsoft.com/en-us/library/ff839746.aspx

你将需要检查的东西寻找行属性之前返回。没有东西没有排。一行是一个数字，而不是一个对象。

Function findCurrentDate() As Range 
    Dim needle As Date 
    Dim rng As Range 
    needle = CLng(Date) 
    Dim haystack As Range 
    Dim search As Range 
    Set haystack = Range("B3:B86") 
    Set search = haystack.Find(needle, After:=haystack(1), _ 
          LookIn:=xlValues, Lookat:=xlWhole, _ 
          SearchOrder:=xlNext, MatchByte:=True) 
    Set findCurrentDate = search 
End Function 

Sub showFutureWeeklyHours() 
    Dim wkday_row_offset As Integer 
    Dim search As Range 
    Set search = findCurrentDate() 

    wkday_row_offset = search.row 
''... 
End Sub