当我在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