Word Document Properties

Listing 5-3
Using the If...Then...ElseIf Statement for Comparisons
Public Sub CompareNumbers2()
‘ Create variables to hold the two numbers.
Dim Input1 As Double
Dim Input2 As Double
‘ Create an output string.
Dim Output As String
‘ Fill the variables with input from the worksheet.
(continued)
117
Chapter 5: Creating Structured Programs
10_046500 ch05.qxp 12/5/06 5:35 PM Page 117

---

Listing 5-3 
(continued)
Input1 = Sheet1.Cells(3, 2)
Input2 = Sheet1.Cells(4, 2)
‘ Determine if the first number is greater than
‘ the second number.
If Input1 > Input2 Then
‘ Tell the user the first number is greater.
Output = “First Number is greater than “ + _
“Second Number.”
‘ Determine if they are equal.
ElseIf Input1 = Input2 Then
‘ Tell the user they are equal.
Output = “The values are equal.”
Else
‘ The first number is less than the second.
Output = “First Number is less than Second
Number.”
End If
‘ Place the output on the worksheet.
Sheet1.Cells(6, 2) = Output
End Sub
The first thing that you should notice is that this code avoids nesting, which
makes it easier to read. VBA will see the first 
If...Then
statement and
determine whether 
Input1
is greater than 
Input2
. If the first statement is
true, VBA sets the value of 
Output
and leaves the structure. However, if the
first statement is false, VBA checks the 
ElseIf
statement. Finally, if the first
two statements are false, VBA executes the statements within the 
Else
part
of the structure. You can use as many 
ElseIf
statements as you need to
check every possible condition in your code.
This code is almost as efficient as the first version — it requires just one deci-
sion for greater than, two for equality, and three for less than. The ease of
reading might become more important to you when the complexity of your
programs increases, so this is a perfectly acceptable way to write your code.
In short, this example demonstrates that there’s usually more than one way
to write a program, many of which work fine; the choice of which method to
use depends on your personal tastes.
118