Tabla de contenido
Encuentre el valor máximo para cada columna en el rango
La siguiente función devolverá el valor máximo en cada columna en un rango:
Función Max_Each_Column (Data_Range como rango) Como variante Dim TempArray () Como doble, i Tan largo si Data_Range no es nada Entonces salga de la función con Data_Range ReDim TempArray (1 para .Columns.Count) For i = 1 To .Columns.Count TempArray (i ) = Application.Max (.Columns (i)) Siguiente final con Max_Each_Column = Función de fin de TempArray
Podemos usar una subrutina como la siguiente para mostrar los resultados:
Private Sub CommandButton1_Click () Atenuar respuesta como variante Dim No_of_Cols como entero Dim i como entero 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 Responder (i) Siguiente i End Sub
Entonces:
Devolverá 990,907, 992, 976, 988 y 873 para cada una de las columnas anteriores.
[AGRADECIMIENTOS ESPECIALES A MIKE RICKSON POR RESOLVER LAS FINERÍAS DE ARRAYS DENTRO DE UDF]
