300 Ejemplos

Eventos de año

Year Occurrences

A continuación veremos un programa en Excel VBA que cuenta el número de sucesos 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.



NingunoyearCountComo Entero, año PreguntarComo Entero, IComo 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.

Parai = 1A16

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.



Siyear (Cells (i, 1) .Value) = yearAskEntonces
yearCount = yearCount + 1
Fin Si

5. No olvide cerrar el ciclo.

PróximoI

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' y yearAsk

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

cómo establecer cifras significativas en Excel

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>
Ir al capítulo siguiente: Eventos



^