關於While~~~wend結構

[higger]

很陌生的結構
實驗中寫了下面這個sub

Sub text10()
While Cells(1, 1) = 3
Cells(1, 2) = 4
Wend
Cells(1, 2) = 5
End Sub

其中cells(1,1)先打上8
結果Cells(1, 2) 順利變成5
但若cells(1,1)打3
則雖然Cells(1, 2)會變成4
但滑鼠就會一直變成"思考"狀態~~~
好像是一直在重覆迴圈???

會不會是我不了解While~wend的意義
看一般書上也不會寫這個結構...
這是為什麼呢???
謝謝~~~

[呆呆]

Option Explicit

Sub ddd()

　Dim i As Integer
　i = 1
　While i <= 100
　　Cells(i, 1) = i
　　i = i + 1　
　Wend
End Sub

其實就是迴圈的意思
上述列題就是由1填到100
當i<=100時都是正確
所以i會持續+1到100
而您的例題在cells(1,1)打上3
就一直是正確,所以就變成無限迴圈
做不完了

[higger]

看似跟do~while~loop一樣~~~

謝謝~~~

[leonchou]

相對於 Do While ... Loop，While ... Wend 只是比較簡潔的寫法。
Do ... Loop 才是標準的迴圈結構，它提供了更彈性化的迴圈控制；
Do ... Loop 在沒有 While 情形下，可利用 Exit Do 條件化跳離迴圈，
While ... Wend 則沒有相對的控制方式。
所以除非你能確定不會造成無限迴圈，否則不建議使用 While ... Wend 。