Totaling a data grid

[sukitmw]

Hi,

I'm trying to sum each column and each row of a datagrid and put the totals of columns at the bottom of each column and totals of row at the last empty column.

How do I do this?

I found the following at some MS site but it doesn't put the results anywhere that I can see.

Thank you so much in advance!!!!

Linda

Sub TotalRowsAndColumns()
' This macro assumes that you have selected any cell or group of
' cells within a rectangular region of cells that you would like to
' have totaled. The totals will appear in the row below and the
' column to the right of the current region.
Dim r As Integer
Dim c As Integer
Dim i As Integer
Dim j As Integer
Dim myArray As Variant
' Declaring myArray as a Variant prepares it to receive a range of
' cells. At that point it is transformed automatically into an array
' with beginning subscript myArray(1,1).
'Refer to the region surrounding the current selection
With Selection.CurrentRegion
r = .Rows.Count
c = .Columns.Count
'resize for totals row and column and place into array
myArray = .Resize(r + 1, c + 1)
' The following 10 lines of macro code (including comments)
' are what is commonly referred to
' as a Nested Loop. The variable i keeps track of the row number,
' while j keeps track of the column number. Every time j cycles
' through the available columns, i gets incremented by one and j
' starts the cycle from one to c all over again.
For i = 1 To r
   For j = 1 To c
      'total for row i
      myArray(i, c + 1) = myArray(i, c + 1) + myArray(i, j)
      'total for column j
      myArray(r + 1, j) = myArray(r + 1, j) + myArray(i, j)
      'grand total
      myArray(r + 1, c + 1) = myArray(r + 1, c + 1) + myArray(i, j)
   Next j
Next i
' Return the array, which now contains an extra row and column
' for the totals, to the worksheet.
.Resize(r + 1, c + 1) = myArray
End With
End Sub
 

[Dököll]

How about this:

With MSHFlexGrid1 
      For iCol = 0 To MSHFlexGrid1.Cols - 1 
        If iCol = 1 Then 
          mstTitle = .TextMatrix(iRow, iCol) 
        End If 
        If iCol = 2 Then 
          mstDescription = .TextMatrix(iRow, iCol) 
        End If 
        If iCol = 3 Then 
          mstRecordID = .TextMatrix(iRow, iCol) 
          GetRecordID 
        End If 
        stColumnHeader = MSHFlexGrid1.ColHeaderCaption(0, iCol) & ": " 
        stDisplayText = stDisplayText & stColumnHeader & .TextMatrix(iRow, iCol) & vbCrLf & vbCrLf 
      Next 
    End With  
 

Try that, please write if not helpful, Linda...
Good luck with the project!

[sukitmw]

Hi Dokoll,

What abt the function GetRecordID?

I don't have that....

So sorry but I also don't understand the codes so not sure how to Dim the variables.

Can you plse be more specific? I'm dumber than a newbie....

Thanks much and have a super weekend!!!
linda