|
▼タカミ さん:
こんばんは。
>こんな感じのコード書いてF8、G8、H8にそれぞれ計算結果をいれてみました。
>ループを使ってF・G・Hの8〜19まで数値を入れたいのですが、可能なのでしょうか?
Pmt、IPmt、 PPmt関数は、ワークシート関数にもありますよね?
こっちを使用すると、セルF8〜H19にデータを出したい場合、
'====================================================
Sub main()
'kari = Range("C7").Value
'hensai = Range("C8").Value
'riritu = Range("C9").Value
'karizan = Range("C7").Value
'Range("I7").Value = karizan
調整値 = 7
With Range("f8:h19")
.Formula = Array("=PMT($C$9/12,$C$8*12,$c$7)", _
"=IPMT($C$9/12,row()-" & 調整値 & ",$C$8*12,$C$7)", _
"=PPMT($C$9/12,row()-" & 調整値 & ",$C$8*12,$C$7)")
.Value = .Value
End With
End Sub
ループコードを書かなくてすみます。
結果のちょっとした違いも確認してください。
|
|