Inhaltsverzeichnis
Finden Sie den maximalen Wert für jede Spalte im Bereich
Die folgende Funktion gibt den Maximalwert in jeder Spalte in einem Bereich zurück:
Funktion Max_Each_Column(Data_Range As Range) As Variant Dim TempArray() As Double, i So Long Wenn Data_Range nichts ist Dann Funktion mit Data_Range beenden 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 Function
Wir können eine Subroutine wie die folgende verwenden, um die Ergebnisse anzuzeigen:
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
So:
Gibt 990.907, 992, 976,988 und 873 für jede der obigen Spalten zurück.
[BESONDERER DANKE AN MIKE RICKSON FÜR DIE BEHEBUNG DER FEINHEITEN VON ARRAYS INNERHALB VON UDFs]
