Indholdsfortegnelse
Find maksimal værdi for hver kolonne i området
Følgende funktion returnerer den maksimale værdi i hver kolonne i et område:
Funktion Max_Each_Column (Data_Range As Range) Som Variant Dim TempArray () As Double, i Så længe Data_Range ikke er noget, afslut derefter funktionen med Data_Range ReDim TempArray (1 til .Columns.Count) For i = 1 To .Columns.Count TempArray (i ) = Application.Max (.Columns (i)) Næste ende med Max_Each_Column = TempArray End -funktion
Vi kan bruge en underprogram som følgende til at vise resultaterne:
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 ")) For i = 1 Til No_of_Cols MsgBox Svar (i) Næste i Afslut Sub
Så:
Returnerer 990,907, 992, 976, 988 og 873 for hver af de ovenstående kolonner.
[SÆRLIG TAK TIL MIKE RICKSON FOR AT LØSE FINERIERNE AF ARRAYS INDEN UDF’S]
