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
No hay comentarios:
Publicar un comentario