Word Document Properties

Figure 4-5:
The report
example
begins with
a few sim-
ple entries.
107
Chapter 4: Storing and Modifying Information
09_046500 ch04.qxp 12/5/06 5:54 PM Page 107

---

Listing 4-17
Designing an Excel Report
Public Sub CreateReport()
‘ Create some output variables.
Dim DataSum As Integer
Dim Output As String
‘ Begin by adding data to the report.
Sheet1.Cells(3, 2) = 1
Sheet1.Cells(4, 2) = 2
Sheet1.Cells(5, 2) = 3
‘ Create a sum of the cell content.
DataSum = Sheet1.Cells(3, 2) + _
Sheet1.Cells(4, 2) + _
Sheet1.Cells(5, 2)
‘ Create an output string.
Output = “The sum of the three numbers is: “ + _
CStr(DataSum)
Sheet1.Cells(7, 1) = Output
End Sub
The code begins by declaring two variables. The first, 
DataSum
, holds the
sum of the three data entries that the code creates. The second, 
Output
,
contains a string that holds the report summary. The worksheets in an Excel
file are objects, just like any other object. You access the worksheet objects
by using the name assigned to them — 
Sheet1
in this case.
Worksheets contain 
Cells
objects. Each 
Cells
object uses two numbers to
identify its row and column. You can assign a value to the cell by using the 
=
operator as shown in the code.
It’s also possible to retrieve values from the 
Cells
objects. The code shows
how to use this feature to create a summation of the three numbers entered
as data on the worksheet.
The last two lines of code create a summary statement that includes the sum-
mation in 
DataSum
. Figure 4-6 shows the result of running this program.
108
Part II: Learning the Ropes 
09_046500 ch04.qxp 12/5/06 5:54 PM Page 108

---

Figure 4-6:
The Excel
report is
simple but
demon-
strates that 
you know
enough to
perform
simple
tasks.
109