Innehållsförteckning
Hitta maxvärde för varje kolumn i intervallet
Följande funktion returnerar maximivärdet i varje kolumn i ett område:
Funktion Max_Each_Column (Data_Range As Range) Som Variant Dim TempArray () As Double, i Så länge Data_Range inte är något, avsluta sedan funktionen med Data_Range ReDim TempArray (1 till .Columns.Count) För i = 1 To .Columns.Count TempArray (i ) = Application.Max (.Columns (i)) Next End With Max_Each_Column = TempArray End Function
Vi kan använda en underprogram som följande för att visa resultaten:
Private Sub CommandButton1_Click () Dim Answer As Variant Dim No_of_Cols As Integer Dim i As Integer No_of_Cols = Range ("B5: G27"). Columns.Count ReDim Answer (No_of_Cols) Answer = Max_Each_Column (Sheets ("Sheet1"). Range (" B5: g27 ")) För i = 1 Till No_of_Cols MsgBox Svar (i) Nästa i Avsluta Sub
Så:
Returnerar 990,907, 992, 976, 988 och 873 för var och en av kolumnerna ovan.
[SPECIAL TACK TILL MIKE RICKSON FÖR ATT LÖSA ARRAYS FINERIER INOM UDF’S]
