人気ブログランキング | 話題のタグを見る

Do Loop ステートメント

1 Cells(cnt,1)の値が「""」になったらLoopから抜ける。
  ただし、Cell(1,1)が「""」なら一度もLoopしない。
cnt = 1
Do Until Cells(cnt, 1).Value = ""
  cnt = cnt + 1
Loop

2 Cells(cnt,1)の値が「""」でない間はLoopする。
  ただし、Cell(1,1)が「""」なら一度もLoopしない。
cnt = 1
Do While Cells(cnt, 1).Value <> ""
  cnt = cnt + 1
Loop

3 Cells(cnt,1)の値が「""」になったらLoopから抜ける。
  ただし、Cell(1,1)が「""」でも1回Loopする。
cnt = 1
Do
  cnt = cnt + 1
Loop Until Cells(cnt, 1).Value = ""

4 Cells(cnt,1)の値が「""」でない間はLoopする。
  ただし、Cell(1,1)が「""」でも1回Loopする。
cnt = 1
Do
  cnt = cnt + 1
Loop Until Cells(cnt, 1).Value = ""
by yuna-tip | 2002-11-04 17:07 | 制御構造