函数中的Range对象

时间:2017-05-18 11:18:52

标签: excel-vba vba excel

当我在Excel工作表中使用以下用户定义的函数时,我得到了"#VALUE!"。 由于Match1行产生了正确的值,我认为其他行中存在错误。

Public Function FVLAND(Date1, Date2)
    Dim Match1 As Integer
    Dim Offset1 As Range
    Match1 = Application.Match(Year(Date1 + 365), Range("Table1[Year]"))
    Set Offset1 = Application.Offset(Range("Table1[[#Headers],[SW]]"), Match1, 0, (Year(Date2) - Year(Date1)), 1)
    FVLAND = Application.FVSchedule(1, Offset1)
End Function

0 个答案:

没有答案