maximum and minimum value

[azrina]

I want to ask if anyone here have any idea how to get a maximum value and the minimum value of a set of given data. I mean its not from a record set.

Regarding my prob, I have flexgrid like one I attached here.

How to get a maximum value and minimum value for every row in the FG.

Pls help.
Thank U in advance.

[Steve_F]

Well if you load all the values for one row in a flexgrid into an array you could do a loop through them, i can show you how if you want.

[azrina]

Pls...show me how

[Steve_F]

I know how to loop through and find the largest but not how to make an array, i tried something like :

Dim strTotal as String
Form_Load()
strTotal(1) = "1"
End Sub

But that doesnt work.....

[brucevde]

Just Loop through the MSFlexGrid rows and columns - no need for an array. Note the following assumes all columns will be checked for a Min or Max values. Adjust the code to suit your needs.

Dim lngRow As Long 
Dim lngCol As Long 
 
Dim lngMax As Long 
Dim lngMin As Long 
 
With MSFlexGrid
     For lngRow = .FixedRows to .Rows - 1
         lngMax = Val(.TextMatrix(lngRow,.FixedCols)
         lngMin = Val(.TextMatrix(lngRow,.FixedCols)
         For lngCol = .FixedCols to .Cols - 1
             If  lngMin > Val(.TextMatrix(lngRow,.FixedCols) Then
                 lngMin = Val(.TextMatrix(lngRow,.FixedCols)
             End If
 
             If  lngMax < Val(.TextMatrix(lngRow,.FixedCols) Then
                 lngMax = Val(.TextMatrix(lngRow,.FixedCols)
             End If
         Next 
         debug.print "Row # ";lngRow;" Min=";lngMin;" Max=";lngMax
     Next
End With