Computer Programming Concepts and Visual Basic David I. Schneider

208 Computer Programming Concepts and Visual Basic
Private Sub TotalExpenses(etot() As Single)
Dim row As Integer, col As Integer
‘Total expenses for each of four quarters
For col = startCol To stopCol
etot(col) = 0
For row = expStartRow To expStopRow
etot(col) = etot(col) + Val(txtCell(Indx(row, col)).Text)
Next row
txtCell(Indx(expTotRow, col)).Text = FormatNumber(etot(col), 0)
Next col
End Sub
Private Sub TotalIncome(itot() As Single)
Dim row As Integer, col As Integer
‘Total income for each of four quarters
For col = startCol To stopCol
itot(col) = 0
For row = incStartRow To incStopRow
itot(col) = itot(col) + Val(txtCell(Indx(row, col)).Text)
Next row
txtCell(Indx(incTotRow, col)).Text = FormatNumber(itot(col), 0)
Next col
End Sub
Private Sub TotalRows()
Dim row As Integer, col As Integer, rowTot As Single
‘Total each income category
For row = incStartRow To incStopRow
rowTot = 0
For col = startCol To stopCol
rowTot = rowTot + Val(txtCell(Indx(row, col)).Text)
Next col
txtCell(Indx(row, totCol)).Text = FormatNumber(rowTot, 0)
Next row
‘Total each expense category
For row = expStartRow To expStopRow
rowTot = 0
For col = startCol To stopCal
rowTot = rowTot + Val(txtCell(Indx(row, col)).Text)
Next col
txtCell(Indx(row, totCol)).Text = FormatNumber(rowTot, 0)
Next row
End Sub
Private Sub txtCell_GotFocus(Index As Integer)
Dim row As Integer, col As Integer
‘Force focus into a data txtCell for this application
row = Int((Index - 1) / maxCol) + 1
col = ((Index - 1) Mod maxCol) + 1
If col > stopCol Then
row = row + 1
col = startCol
End If
If row < incStartRow Then