Programación Visual Basic (VBA) para Excel y Análisis ... - TEC-Digital

VBA para Excel M.Sc. Walter Mora F., M.Sc. José Luis Espinoza B. 22
1.5.4 Manejo de rangos
Una rango en Excel corresponde a una selección de celdas. Una selección de las celdas de una fila o una columna
se maneja en Excel como una matriz de orden 1 × n o de orden n × 1 (un vector). La selección de un bloque
de celdas se maneja como una matriz n × m. Si una celda está en blanco, se lee un cero.
Ejemplo 4
Promedio simple. Consideremos una tabla con 5 notas, todas con igual peso.
Figure 1.22: Promedio simple.
Para calcular el promedio simple, en cada fila, vamos a hacer una macro que recibe un rango, cuenta las notas,
suma y divide entre el número de notas.
Function PromedioSimple(R As Range) As Double ’R es la variable
que recibe el rango
Dim n As Integer
Dim sump As Double
sump = 0
n = R.EntireColumn.Count ’cantidad de notas en el rango
For Each x In R ’suma de las notas
sump = sump + x
Next x
Sume = sump / n ’promedio simple
End Function
En primera celda de la columna Promedio, llamamos a la macro con: PROMEDIO(C52:G52) pues en este caso el
rango es C52:G52.
Ejemplo 5
El Promedio eliminando las dos notas más bajas. En este caso, a un conjunto de notas les calculamos el
promedio simple pero eliminando las dos notas más bajas. El programa PromedioQ suma las n notas de una
fila (rango), localiza la posición (en el vector R) de las dos notas más bajas y luego le resta a la suma estas dos
notas para luego dividir entre n − 2. En este caso, el rango R es una matriz 1 × n, o sea, se puede ver como un
vector de n componentes.
Function PromedioQ(R As Range) As Double
Dim n, i, Imin1, Imin2 As Integer