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

Situación:

Year Occurrences in Excel VBA

Nota: Las fechas están en formato de Estados Unidos. Meses primera, segunda Días. Este tipo de formato depende de las ventanas de la configuración regional.

  1. En primer lugar, declaramos tres variables de tipo entero. Una de las variables que llamamos yearCount, una variable que llamamos yearAsk, y una variable que llamamos i.

Dim yearCount As Integer, yearAsk As Integer, i As Integer

  1. inicializar yearCount con el valor 0 y yearAsk con el valor de la celda C4.

yearCount = 0

yearAsk = Range("C4").Value

  1. Se inicia un bucle For Next.

For i = 1 To 16

  1. Ahora se comprueba cada fecha y sólo si el año de la fecha es el año entrado en la celda C4, que yearCount incremento en 1. Utilizamos la función de Año para obtener el año de una fecha.

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

yearCount = yearCount + 1

End If

  1. No se olvide de cerrar el bucle.

Next i

  1. Por último, se muestran las ocurrencias totales del año. Utilizamos el operador & para concatenar (unir) dos cadenas.

MsgBox yearCount & " occurrences in year " & yearAsk

  1. Coloque la macro en un botón de comando y probarlo.

Resultado:

Year Occurrences Result

Nota: debido a que hace variable yearAsk, sólo tiene que contar el número de ocurrencias de año un año más mediante la introducción de un año más en la celda C4, y haciendo clic en el botón de comando.