Excel VBA質問箱 IV

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

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


12704 / 13645 ツリー ←次へ | 前へ→

【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 お礼

【9020】ループ
質問  タカミ  - 03/11/14(金) 16:12 -

引用なし
パスワード
   Dim kari As Double
Dim hensai As Double
Dim riritu As Double
Dim karizan As Double
Dim ki As Double

kari = Range("C7").Value
hensai = Range("C8").Value
riritu = Range("C9").Value
karizan = Range("C7").Value
Range("I7").Value = karizan
ki = 1

Range("F8").Value = Pmt(riritu / 12, hensai * 12, kari)
Range("G8").Value = IPmt(riritu / 12, ki, hensai * 12, kari)
Range("H8").Value = PPmt(riritu / 12, ki, hensai * 12, kari)

こんな感じのコード書いてF8、G8、H8にそれぞれ計算結果をいれてみました。
ループを使ってF・G・Hの8〜19まで数値を入れたいのですが、可能なのでしょうか?

【9028】Re:ループ
回答  INA  - 03/11/14(金) 17:57 -

引用なし
パスワード
   よく分かりませんが、

dim i as long

for i = 8 to 19
 Range("F" & i).Value = Pmt(riritu / 12, hensai * 12, kari)
 Range("G" & i).Value = IPmt(riritu / 12, ki, hensai * 12, kari)
 Range("H" & i).Value = PPmt(riritu / 12, ki, hensai * 12, kari)
next i

ということでしょうか?

【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
ループコードを書かなくてすみます。
結果のちょっとした違いも確認してください。

【9093】Re:ループ
お礼  タカミ  - 03/11/18(火) 12:16 -

引用なし
パスワード
   ▼タカミ さん:
>Dim kari As Double
>Dim hensai As Double
>Dim riritu As Double
>Dim karizan As Double
>Dim ki As Double
>
>kari = Range("C7").Value
>hensai = Range("C8").Value
>riritu = Range("C9").Value
>karizan = Range("C7").Value
>Range("I7").Value = karizan
>ki = 1
>
>Range("F8").Value = Pmt(riritu / 12, hensai * 12, kari)
>Range("G8").Value = IPmt(riritu / 12, ki, hensai * 12, kari)
>Range("H8").Value = PPmt(riritu / 12, ki, hensai * 12, kari)
>
>こんな感じのコード書いてF8、G8、H8にそれぞれ計算結果をいれてみました。
>ループを使ってF・G・Hの8〜19まで数値を入れたいのですが、可能なのでしょうか?

【9094】Re:ループ
お礼  タカミ  - 03/11/18(火) 12:35 -

引用なし
パスワード
    お礼が遅れて申し訳ございませんでした。INAさん、ichinoseさん、ありがとうございました!
 早速試してみます。

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