Spisie treści
Znajdź maksymalną wartość dla każdej kolumny w zakresie
Poniższa funkcja zwróci maksymalną wartość w każdej kolumnie w zakresie:
Funkcja Max_Each_Column(Data_Range As Range) As Variant Dim TempArray() Jako Double, i Tak długa Jeśli Data_Range jest niczym, a następnie wyjdź z funkcji Data_Range ReDim TempArray(1 To .Columns.Count) For i = 1 To .Columns.Count TempArray(i ) = Application.Max(.Columns(i)) Następny koniec z Max_Each_Column = TempArray End Function
Do wyświetlenia wyników możemy użyć podprogramu takiego jak poniżej:
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
Więc:
Zwróci 990 907, 992, 976, 988 i 873 dla każdej z powyższych kolumn.
[SPECJALNE PODZIĘKOWANIA DLA MIKE'A RICKSONA ZA ROZWIĄZANIE FINANSÓW MACIERZY W RAMACH UDF]
