ユーザー定義関数の作成

質問

１）
基準年の値をＰ0，ｔ年後の値をＰｔとした場合の年あたりの伸び率ｒは、
　　　　　　　　　　　　　　１／ｔ
　　　　　ｒ　＝　（Ｐｔ／Ｐ0）　　－　１　

で計算されます。
これを計算するユーザー定義関数のＶＢＡを教えてください。

２）
１からｎまでの逆数の和

　１＋1／２＋1／３＋・・・＋１／ｎ＝Σ１／ｉ

を計算するユーザー定義関数のＶＢＡを教えてください。

回答No.1

BLUEPIXY · ベストアンサー

Public Function 伸び率ｒ(P0 As Double, Pt As Double, t As Integer) As Double
伸び率ｒ = (Pt / P0) ^ (1 / t) - 1
End Function

Public Function 逆数和(n As Integer) As Double
Dim i
Dim sum As Double
sum = 0#
For i = 1 To n
sum = sum + 1 / i
Next
逆数和 = sum
End Function

お礼

ありがとうございました。
助かりました。