Check after – VBA Excel

Posted: decembar 5, 2011 in Uncategorized
Oznake:,

Sub Check_After()
Dim lCount As Long
Dim lNum As Long
lCount = 0
lNum = 9
Do
lNum = lNum – 1
lCount = lCount + 1
Loop While lNum > 10
MsgBox „The Do While loop made “ & lCount & “ loop(s).“
End Sub

Advertisements

Zatvoreno za komentare.