Inhoudsopgave
Zoek maximale waarde voor elke kolom in bereik
De volgende functie retourneert de maximale waarde in elke kolom in een bereik:
Functie Max_Each_Column(Data_Range As Range) As Variant Dim TempArray() As Double, i Zo Long Als Data_Range niets is, sluit dan functie af met Data_Range Redim TempArray(1 To .Columns.Count) For i = 1 To .Columns.Count TempArray(i ) = Application.Max(.Columns(i)) Next End With Max_Each_Column = TempArray End-functie
We kunnen een subroutine zoals de volgende gebruiken om de resultaten weer te geven:
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 To No_of_Cols MsgBox Answer(i) Next i End Sub
Dus:
Retourneert 990.907, 992, 976,988 en 873 voor elk van de bovenstaande kolommen.
[SPECIALE DANK AAN MIKE RICKSON VOOR HET OPLOSSEN VAN DE OPLOSSINGEN VAN ARRAYS BINNEN UDF'S]
