Nájdite maximálnu hodnotu pre každý stĺpec v rozsahu
Nasledujúca funkcia vráti maximálnu hodnotu v každom stĺpci v rozsahu:
Funkcia 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
Na zobrazenie výsledkov môžeme použiť nasledujúci podprogram:
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 Odpoveď (i) Ďalej i Koniec Sub
Takže:
Pre každý z vyššie uvedených stĺpcov vráti 990 907, 992, 976, 988 a 873.
[ŠPECIÁLNE ĎAKUJEME MIKE RICKSONOVI ZA RIEŠENIE FINÉRIÍ POLÍ V RÁMCI UDF’S]
