El uso de “FOR EACH” en VBA nos permite controlar objetos dentro del conjunto de elementos por ejemplo una hoja de libro o una celda.
Se usa de la siguiente manera:
Sub xxx()
For each (objetos dentro del conjunto)
Se escribe el objetivo que quiere que se realice en ese conjunto
Next Se finaliza la función For Each
End sub()
Como por ejemplo, en la siguiente fórmula podemos obtener el promedio de de las ventas trimestrales de un año en un rango seleccionado.
Sub PROMEDIOVENTAS()
Dim ULT As Integer
For Each cell In Range("b3:b6").cells
sum = sum + cell.Value
cant = cant + 1
Next
prom = sum / cant
Range("E5").Select
ActiveCell.Value = prom
End Sub
En la formula, se evalua el promedio del rango b3 hasta el b6 y coloca el valor en la celda E5
Descargar ejemplo de For Each en VBA: For Each en VBA
4 comentarios
Escriba un comentario →