A continuación, veremos un programa en Excel VBA que cuenta el número de sucesos 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 Integer. Una variable que llamamos yearCount, una variable que llamamos yearAsk y una variable que llamamos i.
Dim yearContar como entero, año Preguntar como entero, i como entero
2. Inicializamos yearCount con el valor 0 y yearAsk con el valor de la celda C4.
yearCount = 0
yearAsk = Rango ("C4"). Valor
3. Comenzamos un ciclo For Next.
Para i = 1 a 16
4. Ahora verificamos cada fecha y solo si el año de la fecha es igual al año ingresado en la celda C4, incrementamos yearCount en 1. Usamos la función Year para obtener el año de una fecha.
Si año (Celdas (i, 1) .Valor) = año Pregunte Entonces
yearCount = yearCount + 1
Terminara si
5. No olvide cerrar el ciclo.
Siguiente yo
6. Finalmente, mostramos las ocurrencias del año total. Usamos el operador & para concatenar (unir) dos cadenas.
MsgBox yearCount & "ocurrencias en el año" & yearAsk
7. Coloque su macro en un botón de comando y pruébelo.
Resultado:
Nota: debido a que creamos la variable yearAsk, simplemente puede contar el número de ocurrencias de año de otro año ingresando otro año en la celda C4 y haciendo clic en el botón de comando nuevamente.
