Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

28789 / 76782

←次へ　｜　前へ→


	【53285】Re:繰り返し文を使った算出の仕方

りん

- 07/12/25(火) 20:07 -


	引用なし

	パスワード

タケさん、こんばんわ。

>・1+2+3+4・・・+100
>・1の二乗+2の二乗+3二乗+・・・20の二乗
>・1の三乗+2の三乗+3の三乗+・・・20の三乗
>
>という各数値の和を繰り返し文を使用して算出したいのですがどうしたらいいのでしょうか？どなたかよろしくお願いします。

ループのカウンタをべき乗した上で加算します。
Sub test()
　 Dim II As Long
　 Dim dt1 As Long, dt2 As Long, dt3 As Long
　 '
　 For II = 1 To 20
　　　dt1 = dt1 + II
　　　dt2 = dt2 + II ^ 2 '２乗
　　　dt3 = dt3 + II ^ 3 '３乗
　 Next
　 '結果
　 MsgBox Format(dt1, "#,##0"), vbInformation, "そのまま加算"
　 MsgBox Format(dt2, "#,##0"), vbInformation, "２乗して加算"
　 MsgBox Format(dt3, "#,##0"), vbInformation, "３乗して加算"
End Sub

こんな感じです。

2 hits

▼

【53282】繰り返し文を使った算出の仕方 タケ 07/12/25(火) 18:41