1 MICROSOFT EXCEL PROGRAMACIÓN

2 Entorno de programación Parte de la aplicación donde escribe el código, crea controles, establece las propiedades del control y el formulario. A continuación el editor de Visual Basic para la elaboración de formularios.

3 Editor de Visual Basic

4 PROGRAMACIÓN EN MICROSOFT EXCEL

5 2.- Del Menú Insertar elija la Opción UserForm. Esto inserta el Formulario que programaremos con controles. En el Explorador de Proyecto se observará que se insertó el UserForm. Cuadro de Herramientas

6 ÁREA DE PROGRAMACIÓN DEL FORMULARIO Cuadro de Herramientas ÁREA PROGRAMACIÓ N NOTA: cuando de clic en el Formulario USERFORM1 se debe de activar el Cuadro de Herramientas, si no se activa de clic en el Menú Ver y elija la opción Cuadro de Herramientas.

7 PROGRAMACIÓN EN MICROSOFT EXCEL

8 2.- Elija del Cuadro de Herramientas el control Cuadro de Texto el que tiene ab y arrastre dibujando en el formulario USERFORM1 el cuadro de texto a un lado de la etiqueta que dice Nombre. El cuadro de texto debe de estar vacío y su nombre será Textbox1, el nombre solo aparecerá en el control. 3.- Haga los dos pasos anteriores igualmente poniendo Dirección en la Label2 y Teléfono en la Label3 y también dibújeles su Textbox.

9 PROGRAMACIÓN EN MICROSOFT EXCEL 4.- Elija del Cuadro de Herramientas el control Botón de Comando y Arrastre dibujando en el Formulario USERFORM1 el Botón, después de un clic en el nombre del Botón dibujado y podrá modificar el nombre y escribimos ahí Insertar. Así quedara el Formulario formado por los controles:

10 PROGRAMANDO LOS CONTROLES 1.- Haga de doble clic sobre el control Textbox1 para programarlo y después inserte el siguiente código: Private Sub TextBox1_Change() Range("A9").Select ActiveCell.FormulaR1C1 = TextBox1 End Sub Esto indica que valla a A9 y escriba lo que hay en el Textbox1 Nota: Lo que esta en Amarillo lo crea Excel automáticamente, usted solo escribirá lo que esta en blanco.

11 PROGRAMANDO LOS CONTROLES 2.- Programar el siguiente Textbox, Haga de doble clic sobre el control Textbox2 para programarlo y después inserte el siguiente código: Private Sub TextBox2_Change() Range("B9").Select ActiveCell.FormulaR1C1 = TextBox2 End Sub Esto indica que valla a B9 y escriba lo que hay en el Textbox2 Nota: Lo que esta en Amarillo lo crea Excel automáticamente, usted solo escribirá lo que esta en blanco.

12 PROGRAMANDO LOS CONTROLES 3.- Programar el siguiente Textbox, Haga de doble clic sobre el control Textbox3 para programarlo y después inserte el siguiente código: Private Sub TextBox3_Change() Range("C9").Select ActiveCell.FormulaR1C1 = TextBox3 End Sub Esto indica que valla a C9 y escriba lo que hay en el Textbox3 Nota: Lo que esta en Amarillo lo crea Excel automáticamente, usted solo escribirá lo que esta en blanco.

13 PROGRAMANDO LOS CONTROLES 4.- Ahora de doble clic sobre el control Botón de Comando para programarlo y después inserte el siguiente código:

14 Private Sub CommandButton1_Click() Rem inserta un renglón Selection.EntireRow.Insert Rem Empty Limpia Los Textbox TextBox1 = Empty TextBox2 = Empty TextBox3 = Empty Rem Textbox1.SetFocus Envía el cursor al Textbox1 para volver a capturar los datos TextBox1.SetFocus End Sub