当ブログのアクセス解析で、「for next 文 VBA 積立 複利 計算」というキーワードを見つけました。何故VBAなのか、何故for next文なのか、は分かりませんが、面白そうなのでやってみました。
ワークシートから値を拾って、VBAで計算し、結果をワークシートに戻すタイプのマクロです。
Dim a As Single
Dim r As Single
Dim n As Integer
Dim ii As Integer
Dim total As Double
'数値代入
a = Range("c3").Value
n = Range("c4").Value
r = Range("c5").Value
total = 0
'積み立てて複利運用
For ii = 1 To n
total = total + a '積立
total = total * (1 + r) '金利
Next ii
Range("c6").Value = total
End Sub
Author:Kapok