A continuación, veremos un programa en Excel VBA que cuenta el número de ocurrencias del año .

Situación:

Ocurrencias de año en Excel VBA

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 yearCount As Integer, yearAsk As Integer, i As Integer

2. Inicializamos yearCount con el valor 0 y yearAsk con el valor de la celda C4.

yearCount = 0
yearAsk = Range("C4").Value

3. Comenzamos un ciclo For Next.

For i = 1 To 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.

If year(Cells(i, 1).Value) = yearAsk Then
    yearCount = yearCount + 1
End If

5. No olvide cerrar el ciclo.

Next i

6. Finalmente, mostramos las ocurrencias del año total. Usamos el operador & para concatenar (unir) dos cadenas.

MsgBox yearCount & " occurrences in year " & yearAsk

7. Coloque su macro en un botón de comando y pruébelo.

Resultado:

Año Resultado de ocurrencias

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.

6/8 Completado! Obtenga más información sobre fechas y horarios>
Siguiente capítulo: Eventos