Excel VBA質問箱 IV

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

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


28739 / 76732 ←次へ | 前へ→

【53285】Re:繰り返し文を使った算出の仕方
回答  りん E-MAIL  - 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 '2乗
   dt3 = dt3 + II ^ 3 '3乗
  Next
  '結果
  MsgBox Format(dt1, "#,##0"), vbInformation, "そのまま加算"
  MsgBox Format(dt2, "#,##0"), vbInformation, "2乗して加算"
  MsgBox Format(dt3, "#,##0"), vbInformation, "3乗して加算"
End Sub

こんな感じです。
0 hits

【53282】繰り返し文を使った算出の仕方 タケ 07/12/25(火) 18:41 質問
【53285】Re:繰り返し文を使った算出の仕方 りん 07/12/25(火) 20:07 回答
【53327】Re:繰り返し文を使った算出の仕方 ichinose 07/12/30(日) 7:52 発言
【53328】Re:繰り返し文を使った算出の仕方 りん 07/12/30(日) 17:22 発言

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