Najděte maximální hodnotu pro každý sloupec v dosahu
Následující funkce vrátí maximální hodnotu v každém sloupci v rozsahu:
Funkce Max_Each_Column (Data_Range As Range) As Variant Dim TempArray () As Double, i As Long If Data_Range is nothing then Exit Function With 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 Function
K zobrazení výsledků můžeme použít podprogram, jako je následující:
Private Sub CommandButton1_Click () Dim odpověď jako varianta 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 ")) Pro i = 1 až No_of_Cols Odpověď MsgBox (i) Další i Konec Sub
Tak:
Vrátí 990 907, 992, 976, 988 a 873 pro každý z výše uvedených sloupců.
[ZVLÁŠTNÍ DĚKOVÁNÍ MIKE RICKSONOVI ZA VYŘEŠENÍ FINÉRIÍ POLÍ V RÁMCI UDF’S]
