A continuación veremos un programa en Excel VBA que cuenta el número de ocurrencias del año .
Situación:
Nota: Las fechas están en formato de EE.UU. Meses primero, días segundo. Este tipo de formato depende de la configuración regional de Windows.
1. Primero, declaramos tres variables de tipo Entero. Una variable a la que llamamos yearCount, una variable a la que llamamos yearAsk, y una variable a la que llamamos i.
Dim añoCuenta como entero, añoPregunta como entero, i como entero
2. Inicializamos yearCount con el valor 0 y yearAsk con el valor de la celda C4.
añoContador = 0 añoAsk = Rango(«C4»).Valor
3. Empezamos un bucle de For Next.
Para i = 1 a 16
4. Ahora comprobamos cada fecha y sólo si el año de la fecha es igual al año introducido en la celda C4, incrementamos el añoContador en 1. Utilizamos la función Año para obtener el año de una fecha.
Si año(Celdas(i, 1).Valor) = añoPregunta entonces yearCount = yearCount + 1 Finalizar si
5. No te olvides de cerrar el bucle.
Siguiente…
6. Finalmente, mostramos el total de ocurrencias del año. Usamos el operador & para concatenar (unir) dos cadenas.
MsgBox yearCount & «ocurrencias en el año» & yearAsk
7. Ponga su macro en un botón de comando y pruébela.
Resultado:
Nota: porque hicimos la variable yearAsk, puedes simplemente contar el número de ocurrencias de otro año introduciendo otro año en la celda C4, y haciendo clic en el botón de comando de nuevo.