Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


72185 / 76734 ←次へ | 前へ→

【9034】Re:ループ
回答  ichinose  - 03/11/14(金) 20:06 -

引用なし
パスワード
   ▼タカミ さん:
こんばんは。
>こんな感じのコード書いて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
ループコードを書かなくてすみます。
結果のちょっとした違いも確認してください。

0 hits

【9020】ループ タカミ 03/11/14(金) 16:12 質問
【9028】Re:ループ INA 03/11/14(金) 17:57 回答
【9034】Re:ループ ichinose 03/11/14(金) 20:06 回答
【9093】Re:ループ タカミ 03/11/18(火) 12:16 お礼
【9094】Re:ループ タカミ 03/11/18(火) 12:35 お礼

72185 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free