Introducción:
La Función Month en VBA, apoya a captar el valor numérico que pertenece al mes a partir de una Celda que tiene un Fecha (Date_Value).
Utilización en Excel y VBA:
En Excel: se utiliza de la siguiente manera: "=MES(CELDA)", con ello capta de la Celda objetivo el valor número del mes. (Español)
Para programaciones en VBA se utilizará de la siguiente manera:
LMonth = Month ("12/08/2013")
Comparación de Uso en Excel y en VBA:
- Uso en Excel está definido de la siguiente manera: Tenemos en el siguiente cuadro adjunto el Stock de Ingresos de Reposiciones, se requiere extraer el Mes, para filtrar de mejor manera y agrupar por dicho mes, se utiliza la función:
(Para mayor visualización de la imagen, hacer click en la misma)
Luego, se brinda Formato y se tiene el resultado Final:
(Para mayor visualización de la imagen, hacer click en la misma)
- Uso en VBA: Se Muestra la siguiente Función en VBA que nos permite captar el Valor de Mes de cada Fecha de Ingreso, se combina dicha propiedad además de captar la última Fila para poder asegurar que capte todos los meses de un Stock con ingresos variables, es decir, con líneas variables. Macro_Funtion_Month
(Para mayor visualización de la imagen, hacer click en la misma)
12/07/2015 a las 11:01 pm
La función month en vba me parece muy útil porque así se pueden agrupar fechas de pago, ventas, compras, pedidos o cumpleaños, sobre todo cuando se tiene una tabla de datos extensa. Podemos usar esta herramienta en el trabajo e incluso en nuestra computadora personal para hacer presupuestos y tomar decisiones.
20/11/2016 a las 7:50 pm
tengo 3 combobox
1- año
2-mes
3- dia
como hago para que el 3. salga la cantidad de dias que corresponde al mes sobretodo. y si fuera posible que contemple el año por febrero
26/01/2018 a las 12:19 pm
Este código convierte el mes de la fecha actual a su correspondiente en texto
Sub Mes_Texto ()
Dim Mes_Act As String
m = Month(Date)
Select Case m
Case "1"
Mes_Act = "Enero"
Case "2"
Mes_Act = "Febrero"
Case "3"
Mes_Act = "Marzo"
Case "4"
Mes_Act = "Abril"
Case "5"
Mes_Act = "Mayo"
Case "6"
Mes_Act = "Junio"
Case "7"
Mes_Act = "Julio"
Case "8"
Mes_Act = "Agosto"
Case "9"
Mes_Act = "Septiembre"
Case "10"
Mes_Act = "Octubre"
Case "11"
Mes_Act = "Noviembre"
Case "12"
Mes_Act = "Diciembre"
End Select
End Sub
26/01/2018 a las 12:38 pm
Todo ese código se resume en una sola sentencia
Dim Mes_Act As String
Mes_Act = Format(Date, "mmmm")