Como Usar las funciones de Excel en Macros VBA

WorksheetFunction es una potente herramienta de VBA que le permite utilizar las macros de funciones integradas de Excel.

¿Qué beneficios te aporta?

• Amplíe sus capacidades macro: acceda a una variedad de funciones de Excel que incluyen MIN, MAX, PROMEDIO, BUSCARV y más para realizar cálculos complejos y automatizar tareas de hojas de cálculo.
• Simplifique su código: no escriba macros de fórmulas repetitivas y aburridas. WorksheetFunction le permite utilizar las mismas funciones conocidas en Excel, lo que hace que el código sea más claro y fácil de entender.
• Aproveche Excel: utilice funciones avanzadas de Excel, como análisis estadístico, búsqueda de datos y manipulación de texto, para crear macros más potentes y efectivas.

Veamos algunos ejemplos prácticos:

1. Función MIN, MAX y PROMEDIO:

• Obtener el valor mínimo: Usa WorksheetFunction.Min(rango) para encontrar el valor más pequeño en un rango de celdas.
• Calcular el valor máximo: Usa WorksheetFunction.Max(rango) para encontrar el valor más grande en un rango de celdas.
• Promediar valores: Usa WorksheetFunction.Average(rango) para calcular el promedio de los valores en un rango de celdas.

Ejemplo:

' Suponiendo que el rango A1:A10 contiene números

Dim valorMinimo As Double
Dim valorMaximo As Double
Dim promedioValores As Double

valorMinimo = WorksheetFunction.Min(Range("A1:A10"))
valorMaximo = WorksheetFunction.Max(Range("A1:A10"))
promedioValores = WorksheetFunction.Average(Range("A1:A10"))

MsgBox "Valor mínimo: " & valorMinimo & vbNewLine _
       "Valor máximo: " & valorMaximo & vbNewLine _
       "Promedio: " & promedioValores

2. Agregar MIN con programación:

• Suma un valor constante al valor mínimo de un rango: Usa WorksheetFunction.Min(rango) + valorConstante para obtener el valor mínimo más un valor adicional.

' Suponiendo que el rango A1:A10 contiene números y valorConstante es 5

Dim resultadoMinConConstante As Double

resultadoMinConConstante = WorksheetFunction.Min(Range("A1:A10")) + 5

MsgBox "Valor mínimo con constante: " & resultadoMinConConstante

3. Calcular valor MAX:

• Determinar el valor máximo en una columna: Usa WorksheetFunction.Max(columna) para encontrar el valor más grande en una columna específica.

' Suponiendo que la columna B contiene números

Dim valorMaximoColumnaB As Double

valorMaximoColumnaB = WorksheetFunction.Max(Range("B:B"))

MsgBox "Valor máximo en la columna B: " & valorMaximoColumnaB

4. Calcular valor PROMEDIO:

• Obtener el promedio de valores en una fila: Usa WorksheetFunction.Average(fila) para calcular el promedio de los valores en una fila específica.

' Suponiendo que la fila 5 contiene números

Dim promedioFila5 As Double

promedioFila5 = WorksheetFunction.Average(Range("5:5"))

MsgBox "Promedio en la fila 5: " & promedioFila5

5. BUSCARV en una Tabla:

• Encontrar un valor específico en una tabla y obtener el valor correspondiente en otra columna: Usa WorksheetFunction.VLookup(valorBuscado, tabla, columnaResultado, [esRangoCompleto]) para buscar un valor en una tabla y devolver el valor correspondiente en una columna específica.

' Suponiendo que la tabla está en el rango A1:D10, el valor buscado está en la celda E1, la columna resultado es la columna C y esRangoCompleto es False

Dim valorEncontrado As Double

valorEncontrado = WorksheetFunction.VLookup(Range("E1"), Range("A1:D10"), 3, False)

MsgBox "Valor encontrado: " & valorEncontrado

Crea tus propias funciones

• Crea funciones para Excel