Function FactN As Double Dim D As Double

ＶＢＡでのプログラム ②階乗，項設定，補間計算 Function Fact(N) As Double '階乗の計算 Dim D As Double: D = 1 For i = 2 To N D = D * i Next Fact = D End Function 項設定(i, N, FY) As Double 項設定 = (-1) ^ (N - i) * FY(i) / Fact(i - 1) / Fact(N - i) End Function 補間計算(i, N, UX) As Double U = UX: T = 1 For k = 1 To N If i <> k Then T = T * U U = U - 1 Next 補間計算 = T End Function

ＶＢＡでのプログラム ③補間のメイン Function Ragrange(FY, UX, N) T = 0 For i = 1 To N A = FY(1) If i >= 2 Then A = 項設定(i, N, FY) * 補間計算(i, N, UX) T = T + A Next Ragrange = T End Function