Do until 無限ループ

A列に数字がありB列に採用の有無を表示し、B1に「SUMPRODUCT」にて、A列*B列で合計を求めています。合計が50万から55万の間になるように合計を求めたいですが、無限ループしてしまいます。
原因はなんでしょうか。

Dim MAX As Long, i As Integer, ans As Long

MAX = 500000
i = 2

Do Until ans > MAX And ans < MAX * 1.1

Cells(i, 2) = 1

i = i + 1

ans = Range("B1").Value


Loop

sazi

2020/12/21 04:03

そもそも、ansの初期値の設定が無いですが、ループには入るんですか？

tatsu99

2020/12/21 05:07

A列に5万以上のデータあると、例えば49万から56万になる場合がありますが、そのようなデータはないのでしょうか。

行動規範の内容に同意します

回答3件

こちらで試した結果では、50万から55万の間になる値がきちんと登録されているのであれば問題なく動作しました。
55万を超えたら（もしくは入力されているセルを過ぎたら）ループを抜けて何かしらメッセージ等を出力するような作りにした方がよいかと思います。

投稿2020/12/21 04:06

ttyp03

総合スコア17000

sazi

2020/12/21 04:10

ansの初期値が無いのにループ処理に入ったんですか？

ttyp03

2020/12/21 04:27

ansは0ですから、50万～55万の外なのでループに入りますね。

sazi

2020/12/21 04:34

失礼しました。最近一回りして初心者に戻った気がします。。。

ttyp03

2020/12/21 04:57

いえいえ、私もuntilは使わない派なので、ループ条件がこんがらがります。

pulim

2020/12/22 04:28

ちなみに他の方法（もっと簡単な書き方）ありますでしょうか

ttyp03

2020/12/22 04:33

まずは仕様を決めないと書きようがないです。 50万から55万に収まることがない場合どうするのか。入力済みの1はどうするのか。ユーザーにはどう知らせるのか。など

行動規範の内容に同意します

ans = Range("B1").Value

ここはB1の値だからループ内にあっても値は変化しませんので、B1の値が50～55の範囲に無いなら無限ループして当然です。

いまいち、何がしたいのか不明です。

「50～55が予算で、予算内の人に採用のフラグ立てたい」って事？

VBA
1Dim MAX As Long, i As Integer, ans As Long
2
3MAX = 500000
4i = 2
5ans = 0
6Do While ans < MAX * 1.1　and not Cells(i, 1)=""
7  if Cells(i, 2) = 1 then ans = ans + Cells(i, 1)
8  if ans > MAX then Cells(i, 2) = 1
9  i = i + 1
10Loop