Excel VBA質問箱 IV

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

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


62763 / 76732 ←次へ | 前へ→

【18570】Re:数値計算について(一箇所訂正)
発言  ichinose  - 04/9/29(水) 22:39 -

引用なし
パスワード
   訂正があります。


>'================================================================
>Sub test()
>  Dim n As Long
>  n = 100 '←この値を変更して確認してみて下さい
  if n>0 then 'こうしないとn=0のとき、エラーになるので
>   With Range("a1:a" & n)
>    .Formula = "=int(rand()*" & n & ")+1"
>    .Value = .Value
>    End With
    end if
> MsgBox tn(n, 2)
>End Sub
>'=============================================================
>Function tn(n As Long, t0 As Long) As Double
>'Tn=Σ(i=1⇒n)Wi×Tn-iを計算する
>'input : n 求めたい数列値、t0--初期値
>'output: tn 結果
>  Dim idx As Long
>  Dim jdx As Long
>  ReDim ans(n) As Double
>  ans(0) = t0
>  For idx = 1 To n
>   ans(idx) = 0
>   For jdx = idx - 1 To 0 Step -1
>    ans(idx) = ans(idx) + Range("a" & (idx - jdx)).Value * ans(jdx)
>    Next
>   Next
>  tn = ans(UBound(ans()))
>End Function

0 hits

【18561】数値計算について ジュン 04/9/29(水) 16:55 質問
【18563】Re:数値計算について ichinose 04/9/29(水) 19:11 回答
【18570】Re:数値計算について(一箇所訂正) ichinose 04/9/29(水) 22:39 発言
【18573】Re:数値計算について ジュン 04/9/29(水) 23:10 お礼
【18577】Re:数値計算についての質問2 ジュン 04/9/30(木) 2:19 質問
【18579】Re:数値計算についての質問2 ichinose 04/9/30(木) 7:39 発言
【18582】Re:数値計算についての質問2 ジュン 04/9/30(木) 8:47 お礼
【18587】数値計算についての質問3 ジュン 04/9/30(木) 15:09 質問
【18595】Re:数値計算についての質問3 ichinose 04/9/30(木) 21:09 発言
【18644】Re:数値計算についての質問3 ジュン 04/10/2(土) 21:11 お礼

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