в 16:33, 26 мая 2010

2010-05-26T16:33:00Z

Admin: 1 версия

2010-05-26T12:46:27Z

1 версия

Новая страница

==A counting variable I is initialized just prior to the loop and incremented inside the loop==



<source lang="vb">

Sub loopCounter()
Dim I As Integer
I = 1
Do While Cells(I, "A").Value <> ""
Cells(I, "B").Value = Cells(I, "A").Value
I = I + 1
Loop
End Sub
</source>

==Do Loop While==



<source lang="vb">

Sub cmdDoLoopWhile()
Dim intValue As Integer
intValue = 10
Do
intValue = intValue + 1
Loop While intValue < 35
End Sub
</source>

==Do while loop ==



<source lang="vb">

Sub cmdDoWhileLoop()
Dim intValue As Integer
intValue = 10
Do While Nz(intValue) < 35
intValue = intValue + 1
Loop
End Sub
</source>

==Execute the code block until the conditional statement is True.==



<source lang="vb">

Sub loopUntil()
Dim I As Integer
I = 1
Do
Cells(I, "B").Value = Cells(I, "A").Value
I = I + 1
Loop Until Cells(I, "A").Value = ""
End Sub
</source>

==Put InputBox in a Do Loop==



<source lang="vb">

Sub ifTest7()
Dim strMessage As String
Dim intTest As Integer
intTest = 1
Do
intNum = 4
If intNum >= 1 And intNum <= 15 Then
msgBox "the number is between 1 and 15"
intTest = 2
Else
msgBox "Sorry, the number must be between 1 and 15"
intTest = 3
End If
Loop While intTest = 1
End Sub
</source>

==To ensure that the code block executes at least once, place the While keyword and conditional statement at the end of the Do/Loop==



<source lang="vb">

Sub WhileDemo()
Dim I As Integer
I = 1
Do
Cells(I, "B").Value = Cells(I, "A").Value
I = I + 1
Loop While Cells(I, "A").Value <> ""
End Sub
</source>

==Use if statement in a do loop==



<source lang="vb">

Sub SignIn2()
Dim secretCode As String
Do
secretCode = InputBox("Enter your secret code:")
If secretCode = "sp1045" Or secretCode = "" Then Exit Do
Loop While secretCode <> "sp1045"
End Sub
</source>

==Use Integer variable as the loop control variable==



<source lang="vb">

Sub cmdEfficient()
Dim intCounter As Integer
intCounter = 12
Do While intCounter < 35
intCounter = intCounter + 1
Loop
End Sub
</source>

==Using the Do...While Loop==



<source lang="vb">

Sub AskForPassword()
Dim pWord As String
pWord = ""
Do While pWord <> "PASS"
pWord = InputBox("What is the Report password?")
Loop
MsgBox "You entered the correct Report password."
End Sub
</source>

==Using the Do...While Loop with a Condition at the Bottom of the Loop==



<source lang="vb">

Sub SignIn()
Dim secretCode As String
Do
secretCode = InputBox("Enter your secret code:")
If secretCode = "sp1045" Then Exit Do
Loop While secretCode <> "sp1045"
End Sub

</source>

← Предыдущая	Версия 16:33, 26 мая 2010
(нет различий)

VBA/Excel/Access/Word/Language Basics/Do While - История изменений

в 16:33, 26 мая 2010

Admin: 1 версия