Sub SmpFor()
x = 1
y = 100
s = 0For i = x To y
s = s + i
Next
ActiveCell = sEnd Sub
for 〜 Next を次の4行にしても同じ動作をします。
i = x
Do While i <= y
s = s + i
i = i + 1
Loop
Sub SmpFor()
x = 1
y = 100
s = 0For i = x To y
s = s + i
Next
ActiveCell = sEnd Sub
for 〜 Next を次の4行にしても同じ動作をします。
i = x
Do While i <= y
s = s + i
i = i + 1
Loop