Put InputBox in a Do Loop : Do While « Language Basics « VBA / Excel / Access / Word

VBA / Excel / Access / Word

1.	Access
2.	Application
3.	Data Type
4.	Data Type Functions
5.	Date Functions
6.	Excel
7.	File Path
8.	Forms
9.	Language Basics
10.	Math Functions
11.	Outlook
12.	PowerPoint
13.	String Functions
14.	Windows API
15.	Word
16.	XML

Java

Java Tutorial

Java Source Code / Java Documentation

Illustrator Tutorials

GIMP Tutorials

C# / C Sharp

C# / CSharp Tutorial

C# / CSharp Open Source

SQL Server / T-SQL Tutorial

Oracle PL / SQL

Oracle PL/SQL Tutorial

Flash / Flex / ActionScript

XML

XML Tutorial

Microsoft Office PowerPoint 2007 Tutorial

Microsoft Office Excel 2007 Tutorial

Microsoft Office Word 2007 Tutorial

VBA / Excel / Access / Word » Language Basics » Do While

Put InputBox in a Do Loop


 

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

Related examples in the same category

1.	Do Loop While
2.	Use Integer variable as the loop control variable
3.	Do while loop
4.	Using the Do...While Loop
5.	Using the Do...While Loop with a Condition at the Bottom of the Loop
6.	Use if statement in a do loop
7.	A counting variable I is initialized just prior to the loop and incremented inside the loop
8.	To ensure that the code block executes at least once, place the While keyword and conditional statement at the end of the Do/Loop
9.	Execute the code block until the conditional statement is True.

www.java2java.com | Contact Us

All other trademarks are property of their respective owners.