For en VBA para la Función YEAR

DESCRIPCION

La Función YEAR en VBA ayuda al usuario a capturar el valor numérico o año que se encuentra de una celda con formato de fecha. El formato de esa celda es el siguiente:  Fecha (dd/mm/yyyy).

Ahora, es muy importante tener en cuenta esta función ya que muchas veces las empresas tratan de ver a lo largo de un periodo de años, las ganancias o utilidades que han tenido y medirlos en una tendencia para ver sus resultados.

Un ejemplo de esto es tener en cuenta una base de datos de una empresa del sector retail en el cual quiere ver que articulo a lo largo de un periodo de los últimos 10 años (1993-2013) ha tenido más ventas.

Aparte podemos ver la comparación entre usar la formula y la programación en VBA:

-Formula en la hoja de Excel: " =año(celda)", con ello capta el valor del año de la fecha puesta en dicha celda.
-Programación en VBA:       Year1 = Year(valor de la celda con fecha)

PROCEDIMIENTO PARA USAR EL FOR CON LA FUNCIÓN YEAR

Es importante aclarar que el comando FOR ...NEXT lo podemos usar para casos de iteraciones o dentro de una función especificada, como es el caso de este trabajo.

Primero nos conseguimos una base de datos que contenga lista de articulos, ventas, y fecha para poder aplicar esta programación. En este caso consideramos la siguiente tabla:

(Para mayor visualización de la imagen, hacer click en la misma)

Luego procedemos a ir al cuadro Programación y hacer click en Visual Basic para crear un modulo con la siguiente programación:

Sub Funcion_YEAR()
ult = Cells(Rows.Count, 2).End(xlUp).Row
For t = 2 To ult
Año = Year(Cells(t, 2))
Cells(t, 8) = Año
Next
End Sub

(Para mayor visualización de la imagen, hacer click en la misma)

Por último en nuestra celda H2, nos saldra el resultado de nuestro comando For...Next es el siguiente:

(Para mayor visualización de la imagen, hacer click en la misma)

Entonces, para resumir mejor podemos ver con una gráfica con los años y las ventas:

Entonces podemos ver que esta empresa tuvo más ventas en el año 2011.

Para más detalles se adjunta el archivo del excel Funcion Year en VBA

 

AUTOR: JUAN PALOMINO