繰り返しの足し算

質問

こんにちは、いつもお世話になっています。
今回、セルに符号がランダムで、絶対値が同じ数を足していきたいのですが、思うようにいきません。
（5→0→0→－5→－10→－15・・・）
何が悪いのでしょうか・・・？

Sub ランダムの足し算()
Cells.Clear

a = 0
For dt = 1 To 20
Cells(dt, 1) = a + di '足していきたいのに、足せない？

di = Int(rnd - 0.5) * 5 'これが足す数です。
If di = 0 Then
di = di + 5

End If

Next
End Sub

回答よろしくお願いします。（> <）"

回答No.4

BLUEPIXY

やりたいことが良くわかりませんが、
選ばれた数をＡ列に
その都度足した数をＢ列に表示するなら
こんな感じでいいんじゃないかと思います。
Sub ランダムの足し算()
Cells.Clear
a = 0
For dt = 1 To 20
di = Int(Rnd - 0.5) * 5 'これが足す数です。
If di = 0 Then
di = di + 5
End If
Cells(dt, 1) = di
a = a + di
Cells(dt, 2) = a
Next
End Sub

お礼

そうそう！
こんなかんじです！！
ありがとうございます！！( ^ー^)σ"

回答No.3

ipsum11

>今回、セルに符号がランダムで、絶対値が同じ数を足していきたいのですが、思うようにいきません。（5→0→0→－5→－10→－15・・・）

足した結果を入れる変数が見当たりません。
Cells(dt, 1) = a + diは毎回変わりますので、２０行分（A1からA20）のセルに数字が出力されます。その結果を足すことですか？

やりたいことがわかりません。
どううまくいかないのか、どうあるべきなのか、具体例を提示してみてください。

お礼

すみません、ご指摘の通りです。
文章力なくて、自分。
(>_<)・・・
その通りですよね、次からはもっと判りやすい文章で質問します。
ご協力、本当にありがとうございます(^o^)

回答No.2

hana-hana3

ａの値は常に０なので乱数の結果ｄｉがセルに入るだけです。

ａの変数は何のために用意したのですか？

a = a + di
Cells(dt, 1) = a

お礼

そうですよね、aは邪魔ですね、
多分、使おうと思って消去し忘れたのかと・・・
ごめんなさい！！
もっと勉強して、hanahanaさんのように、プログラムが読めるようにしたいです！(>_<)!!

回答No.1

lasichi

ちょっとやりたいことがいまいち理解できません。。

元の値(0?)に
足す値(この場合5)の符号をランダムにして足していくだけでしょうか？

つまり
0+5→5
+5→10
+5→15
-5→10
-5→5

こんな感じでしょうか？

お礼

はい！！
その通りでございます！！( ^ー^)
おかげで解決できました！
ありがとうございます(・o・)"