是否可以在没有循环的情况下进行插值

编程问答 2022-05-28

问题描述

我想知道是否可以在不使用循环的情况下进行插值以获得处理时间。

注意： 插值目标是计算曲线上不存在的点。例如 2021 年 10 月 9 日的费率

曲线示例

enter image description here

实际上我正在使用 For 循环来浏览我的曲线来计算点。是否存在最聪明的方法？

Function DCF(Periode As Double) As Double
Dim x As Integer
For x = 1 To 21
    Date1 = ThisWorkbook.Worksheets("Courbes").Range("PeriodeCourbe").Offset(x).Value
    Date2 = ThisWorkbook.Worksheets("Courbes").Range("PeriodeCourbe").Offset(x + 1).Value
    TauxMid1 = ThisWorkbook.Worksheets("Courbes").Range("Mid").Offset(x).Value
    tauxMid2 = ThisWorkbook.Worksheets("Courbes").Range("Mid").Offset(x + 1).Value
    If Periode >= Date1 And Periode < Date2 Then DCF = 1 / (Date2 - Date1) * ((Periode - Date1) * tauxMid2 + (Date2 - Periode) * TauxMid1)
Next
End Function

我使用的是样条三次插值，但是一个简单的线性示例 插值将帮助我构建自己的函数。

解决方法

是的，您可以使用近似 MATCH/VLOOKUP 在没有循环的情况下更有效地完成。

有关代码和两种方法的比较，请参阅我的帖子。

https://fastexcel.wordpress.com/2011/06/06/writing-efficient-vba-udfs-part-2/

cubic-splineexcelexcelinterpolationlinear-interpolationvba