miércoles, 20 de agosto de 2014

Obtener nombre de mes en excel vba

Si bien es cierto se puede obtener el nombre del mes mediante la función texto:
Por ejemplo: =TEXTO("20/08/2014","MMMM").

Pero en ocasiones cuando deseamos trabajar con formularios en vba deseamos mostrar los meses del año en texto Enero a Diciembre en texto.
En este caso utilizaremos la funcion MonthName

Sintaxis:
MonthName(Month As Long,[Abbreviate as Boolean=Falso])As String

Parametros
Month: Ingresar un numero para el nombre del mes por ejemplo de 1 a 12
Abbreviate: Valor booleano verdadero o falso, al elegir verdadero se abrevia: Ejemplo Ene,Feb

Ejemplos:
Crearemos un formulario en excel vba para eso realizamos los siguientes pasos:

-Alt + F11
-Menu Insertar - > UserForm

Insertaremos 2 cotroles: un cuadro combinado llamado ComboBox1 y un boton llamado CommandButton1.
Vamos a cargar en el combobox1 los meses del año de enero a diciembre. Al darle clic en CommandButton1 se cargaran los meses del año en texto.

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To 12
    ComboBox1.AddItem MonthName(i, False)
Next i
End Sub


Espero les haya sido de utilidad

No hay comentarios:

Publicar un comentario

Cargar multiples archivos txt en SSIS

 Fuentes Archivos planos Descargar AQUÍ los archivos Consulta SQL de creacion de tabla Despacho en SQL Server CREATE TABLE [dbo].[Despacho]...