Mostrar Control de Calendario Al Elegir Una Celda en Excel

Descargar como docx, pdf o txt
Descargar como docx, pdf o txt
Está en la página 1de 3

Mostrar control de calendario al

elegir una celda en Excel


BY SERGIO ALEJANDRO CAMPOS JULY 11, 2013

Este ejemplo que les comparto me ha sido til al momento de


crear formatos donde requiero que el usuario ingrese una
fecha.
El problema surge cuando no se tiene definido si el formato de
la fecha es DD/MM/AA o MM/DD/AA, sobretodo si la
configuracin definida en el Panel de control no correponde al
mismo pas.
Por eso, se me ocurri que al momento de elegir la celda
donde queremos introducir la fecha, nos salda el control de
calendario y elegimos la fecha.
Cmo lo hago
Primero nos vamos a la pestaa Desarrollador (Programador
en Excel 2010). En la seccinControles elegimos Insertar y
elegimos el botn de la parte inferior derecha llamado Ms
controles.

En la lista que aparecer elegimos el control Microsoft Date


and Time Picker Control 6.0 (SP6).

En la misma pestaa de Desarrollador damos click en el botn


Modo diseo para adecuar el control al tamao de la celda.

Dentro de Visual Basic para aplicaciones (Alt + F11), en el


Objeto donde est el control, vamos a poner el siguiente
cdigo.
'Asignar el valor de Picker a la celda B2
Private Sub DTPicker1_Change()
Range("B2").Value = DTPicker1.Value

End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Si la celda elegida es B2, se muestra el Picker
If Not Intersect(Target, Range("B2")) Is Nothing Then
With DTPicker1
.Visible = True
.Top = 15.75
.Left = 86.25
.Width = 145
.Height = 17.25
End With
'En todo caso se oculta
Else
DTPicker1.Visible = False
End If
End Sub

Y como resultado tenemos que cada vez que se elija la celda


B2 saldr el control de calendario para elegir una fecha y esta
se reflejar en dicha celda.

También podría gustarte