Macros

APUNTE DE Nº3 DE MACROS DE EXCEL
PROGRAMACION DE FORMULARIOS

Para comenzar el desarrollo de formulario en excel primero debe insertar un UserForm ( Formulario ) desde el editor de visual basic de excel , menú herramientas , macros , opción editor de visual basic . Una vez en el editor debe insertar un formulario para comenzar a diseñar el programa quedesea realizar .
Una vez dentro del editor de código debe insertar el formulario , menú insertar , opción UserForm, aquí se presentara una un formulario de color plomo con un titulo “UserForm 1” . Paralelamente se presenta una ventana de herramientas que trae controles ( botones ) , los que se utilizan para insertar o pegar en el formulario ycomenzar a diseñar el programa .

Ventana de Propiedades Formulario de Barra de Herramientas
Diseño
Nombre del formulario de Diseño

Botón UserForm , inserta formularios y módulos

Una vez diseñado el formulario debe comenzar a programar las acciones que realizara cada botón, como porejemplo el botón grabar, que al presionarlo ejecute el grabado y lo almacene en un rango de celdas de la planilla .

También debe tener en cuenta que las acciones se pueden ejecutar cuando ud. haga un click con el botón izquierdo del mouse o presionando la tecla enter . Para que esas acciones se lleven a cabo y sean validas se debenprogramar los eventos Click del mouse y el evento KeyDown de la tecla enter según lo que se requiera.

Ej1. Si se presenta la opción donde el usuario debe ingresar su nombre , como lo siguiente :

INGRESE NOMBRE TextBox1

Label 1 ( etiqueta )

Lo maslógico es que cuando termine de ingresar su nombre presione enter , para así pasar a la siguiente acción , para eso debe programar el evento KeyDown que es el que utiliza la tecla enter , de manera tal que si programa el cuadro de respuesta del nombre del ejemplo 1, es decir el control o botón Textbox1 quedaría de la siguiente forma :

PrivateSub TextBox1__KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
......... Programación del TextBox
......... Programación del TextBox
End If
End Sub

NOTA : Todo el código en ingles que aparece entre paréntesis en la primera línea , se colocan solo al momento de seleccionar el evento “KeyDown ” para latecla enter .

NOTA1 :La segunda línea de código ( If KeyCode = 13 Then ) esta realiza una pregunta :
¿ Si el código o el valor de la tecla es el 13 ? ejecutara las líneas siguientes , es decir la programación del TextBox1 .
( No se olvide que todas las teclas tienen un valor numérico en el computador , un código especial llamado “ CódigoAscii” , donde el 13 corresponde a la tecla enter , el 27 corresponde a la tecla escape , etc. ) .


Validación Numérica ( IsNumeric ) : Se utiliza para valida que el ingreso sea solo numérico de
parte del usuario . Al programar esta instrucción indica que solo aceptara ingresos numéricos ,
por lo tanto pasara al siguiente Text . Si elusuario ingresa un valor no numérico pasara a ejecutar la programación siguiente de la instrucción Else ( la opción falsa ) .

Private Sub TextBox1__KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
If IsNumeric ( TextBox1 ) Then
Programación Verdadera ( Ingreso Ok )
Programación Verdadera ( Pase al siguiente...