Găsiți valoarea maximă pentru fiecare coloană din interval
Următoarea funcție va returna valoarea maximă din fiecare coloană dintr-un interval:
Function Max_Each_Column (Data_Range As Range) As Variant Dim TempArray () As Double, i At 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
Putem folosi un subrutină ca următorul pentru a afișa rezultatele:
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")). B5: g27 ")) Pentru i = 1 To No_of_Cols MsgBox Răspuns (i) Next i End Sub
Asa de:
Va returna 990.907, 992, 976, 988 și 873 pentru fiecare dintre coloanele de mai sus.
[MULȚUMIRI SPECIALE PENTRU MIKE RICKSON PENTRU REZOLVAREA FINERIILOR DE MATERII ÎN CADRUL UDF]
