Macros

ir a principal | Ir a lateral

[pic][pic][pic][pic][pic][pic][pic]
Principio del formulario
[pic][pic]
Final del formulario
Incluir un calendario en un formulario
[pic][pic][pic][pic]Hoy veremos como incluir un calendario en un formulario. No se trata de un calendario, como aquel calendario para imprimir que vimos en un artículo anterior, sino de un control de calendario. Igual que en losformularios tenemos controles como pueden ser las etiquetas, los cuadros de texto, los cuadros combinados, o las casillas de verificación, por ejemplo, también podemos añadir un calendario.

Para ver como funciona, deberemos incluir un formulario desde VBA, seleccionando en el menú “Insertar”, la opción “Userform”. Por defecto, desde VBA, solo se nos muestran en el cuadro de herramientas,aquellos controles que son de uso más común. Para poder ver el resto de controles que podemos incluir en un formulario, deberemos cliquear con el botón derecho del ratón dentro de la ventana “Cuadro de herramientas”, donde nos aparecen los controles, pero en el espacio donde no hay controles. De esa forma, nos aparecerá un menú desplegable donde podremos seleccionar controles adicionales.

[pic]Seleccionaremos la opción “Controles adicionales”, y en la lista, escogeremos el correspondiente al control de calendario, marcándolo con una muesca. Seguidamente, pulsaremos sobre el botón “Aceptar”, y en el cuadro de herramientas nos aparecerá ahora un nuevo elemento, que será el correspondiente al calendario:

[pic]
Ahora solo nos quedará pulsar sobre ese botón del calendario, y dibujar el mismosobre el formulario. Hacer esto, es tan sencillo como pulsar el ratón sobre el formulario, mantener pulsado el botón, y arrastrar hacia abajo y hacia la derecha, para ir viendo como nos aparece un cuadro que es donde al soltar el botón del ratón, nos aparecerá dibujado el calendario. Por defecto, nos aparecerá el mes de la fecha en curso.

[pic]
Ahora ya solo nos quedará darle alguna utilidadal calendario, más allá de la propia para tener visible el mes. Por ejemplo podremos insertar la fecha que seleccionemos en el calendario, en una celda. Para ello utilizaremos el evento click, que ejecutará las acciones contenidas dentro de ese evento, cada vez que cliqueemos dentro del calendario.

Por ejemplo, si queremos insertar la fecha que seleccionemos en el calendario, en una celda,utilizaremos esto dentro del código del propio formulario (en este ejemplo, insertamos la fecha en la celda A1):

|Private Sub Calendar1_Click() |
|'Ponemos la fecha en la celda A1 |
|Range("A1") =Calendar1.Value |
|End Sub |

Ahora, incluiremos este otro código dentro del formulario, que lo que hará es cargarse el calendario con el mes y el día de la fecha en que loabramos (la fecha del sistema). Esto se producirá cada vez que activemos (o carguemos) el formulario:

|Private Sub UserForm_Activate() |
|'Al activar el formulario, que aparezca |
|'la fecha de hoy enel calendario |
|Calendar1.Today |
|End Sub |

De esta...