Ejemplo 02
Crear un formulario que se llame Forma02, que tenga un botón de comando y que éste permita dar por terminado el uso del formulario. Que su caption sea Botón de comando. Luego al hacer clic en dicho botón, durante la ejecución del formulario, debe dar por terminado su uso.
Procedimiento:
P1. Inserte un nuevo UserForm.
P2. Haga clic en (Name) y digite Forma02. Haga clic en <Caption> y digite "Botón de comando".
P3. Haga clic en el Botón <Botón de comando> del cuadro de herramientas. Luego, en el formulario, trace un pequeño rectángulo en la parte inferior derecha.
P4. Haga clic en (Name) y digite CmdTerminar. En <Caption> digite Terminar.
P5. Ahora vamos a insertar el código que permita dar por terminado la ejecución del formulario.
Para ello haga doble clic en el botón que ha insertado
Como verá se inserta el siguiente segmento de código:
Dentro de este procedimiento digite End
Nota:
Para volver al formulario haga clic en
Para ejecutar el formulario haga clic en el icono de la barra de herramienta Estándar.
Al estar en modo de ejecución, haga clic en el botón <Terminar> y verá que el formulario pasa a modo de edición en la ventana del editor.
Ejemplo 03
Crear un formulario que al hacer clic en un botón de comando, se muestre en una ventana del MsgBox, la ruta del libro que esté en uso y al hacer clic en el segundo, se dé por terminado la ejecución del formulario.
Procedimiento
P1. Insertar un UserForm que se llame Forma03
P2. Insertar dos botones de comando.
Botón 1: Nombre: CmdRuta Caption: Devuelve la ruta
Botón 2: Nombre: CmdFin Caption: Terminar
P3. Luego de hacer doble clic en el botón 1, ingrese el siguiente código:
Dim Ruta As Variant
Workbooks(1).Activate
Ruta = ActiveWorkbook.Path
MsgBox Ruta
P4. Luego de hacer clic en el botón 2, ingrese el siguiente código:
End
P5. Ejecute el formulario haciendo clic en el icono
Síguenos en: Facebook Sobre aulaClic Política de Cookies