Trova il valore massimo per ogni colonna nell'intervallo
La seguente funzione restituirà il valore massimo in ogni colonna in un intervallo:
Funzione Max_Each_Column(Data_Range As Range) As Variant Dim TempArray() As Double, i As Long If Data_Range non è nulla Quindi esci dalla funzione con 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
Possiamo usare una subroutine come la seguente per visualizzare i risultati:
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
Così:
Restituirà 990.907, 992, 976,988 e 873 per ciascuna delle colonne di cui sopra.
[UN RINGRAZIAMENTO PARTICOLARE A MIKE RICKSON PER AVER RISOLTO I FINITURE DEGLI ARRAY ALL'INTERNO DI UDF]
