Cómo insertar Control Calendar en un documento utilizando Macro

Macros de Visual Basic personalizar las aplicaciones de Microsoft Office , haciéndolos más potente con herramientas especializadas para determinados usuarios . Calendario de controles ayudan a los usuarios , garantizando la calidad de sus datos . Generación de un calendario para la selección de la fecha sobre la marcha requiere una macro de Visual Basic y un control ActiveX , ActiveX muestra el calendario y Visual Basic interpreta los comandos del usuario en el calendario. El código de ejemplo en este artículo se centrará en la generación de un calendario en Microsoft Excel , pero puede ser adaptado para cualquier aplicación en la Suite de Microsoft Office . Instrucciones
1

lanzamiento Excel haciendo clic en " Inicio", " Todos los programas", " Microsoft Office Suite " y " Excel ".
2

Inicie el Editor de Visual Basic ( VBE ) con la tecla " Alt" y " F11 " al mismo tiempo.
3

Crear el libro " personal.xls " si no existe ya. El libro " personal.xls " contiene las macros que se puede acceder desde cualquier otro libro en Excel . En la parte superior izquierda de la VBE hay un panel de navegación. Si " personal.xls " no aparece en el panel de navegación VBE , haga clic en " Herramientas ", "Macro " y "Record New Macro" . Un cuadro de diálogo aparecerá en la pantalla. Seleccione " Guardar macro en : Libro de macros personal " y luego haga clic en " Aceptar". Haga clic en " Detener grabación ". El libro " personal.xls " aparecerá ahora en el panel de navegación VBE .
4

Crear el " formulario de usuario " que contendrá el calendario. Haga clic en " personal.xls " para seleccionar el libro. Haga clic en " Insertar" y luego " formulario de usuario . " El cuadro de diálogo " formulario de usuario " aparecerá en la pantalla. Hay varios cuadros de texto en el cuadro de diálogo , en el cuadro de texto "Nombre ", cambiar el texto a " frmCalendar " y en la casilla de " Leyenda ", cambie el texto para
< br " Seleccione una fecha. " > 5

Agregar el control de calendario para la caja de herramientas . Haga clic en " Ver ", " caja de herramientas ", " Herramientas" y " Controles adicionales . " Aparecerá un cuadro de diálogo con una lista de los controles. Desplácese hacia abajo para "Control Calendar 8.0" (o la última versión) , haga clic para seleccionarlo y luego haga clic en " Aceptar".
6

Insertar el control de calendario en el formulario de usuario . Haga clic en el icono " Calendario de control" en la caja de herramientas y haga clic en la esquina superior izquierda del formulario de usuario . Haga clic y arrastre la imagen del calendario a la posición deseada en el formulario de usuario .
7

Crear el botón de salida del calendario de control . Haga clic en el botón "Control de comandos" en la caja de herramientas . Mueva el botón " x " en la parte superior izquierda del formulario de usuario . En "Propiedades ", cambie el nombre a " Cmdclose " y cambie el valor de " Cancelar" en "True ". Pulse el botón F7 para acceder al editor de código. Copie y pegue el siguiente código en el VBE :

Private Sub cmdClose_Click ()

Unload Me End Sub

Programa el calendario funcionalidad . Seleccione " Calendar1 " en el menú desplegable en la parte superior izquierda de la VBE . Hay otro menú desplegable a la derecha de esta lista , seleccione "Click" en este menú. Copia y pega el siguiente código en el VBE :

Private Sub Calendar1_Click ()

ActiveCell.Value = Calendar1.Value

Unload Me End Sub

Guardar la hoja de cálculo " personal.xls " con la tecla " Ctrl" y " s " al mismo tiempo.
10

ejecutar la macro. Haga clic en la " x " en la esquina superior derecha para cerrar el VBE . Haga clic en cualquier celda de la hoja de cálculo. Pulse el botón " Alt " y " F8 " simultáneamente . Aparecerá el cuadro de diálogo Macros. Seleccione " personal.xls ! OpenCalendar " y luego haga clic en " Ejecutar". Aparecerá el control de calendario . Haga clic en cualquier fecha en el calendario para anotar la fecha de la célula.