Excel VBA質問箱 IV

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

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


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

62838 / 76807

←次へ　｜　前へ→


	【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