VISUAL BASIC

VISUAL BASIC





1. Entre en el programa Excel.

2. Una vez abierto Excel, presiones las teclas Alt + F11, para entrar a visual Basic.

3. Activa las siguientes opciones:

• De clic en el menú ver y elija la opción Explorador de proyectos.

• De clic en el menú ver y elija la opción Ventanas Propiedades.

•

4. Del menú insertar elija la opción userform. Esto inserta el formulario que programaremos con controles. En el explorador de proyecto se observara que se inserto el userform.

También se debe activar el cuadro de herramientas junto con el Userform1, si no se activa de clic en el menú ver y elija la opción Cuadro de herramientas.

4. elija del cuadro de herramientas el control Etiqueta.

Arrastre dibujando en el formulario userform1 la etiqueta. Quedara el nombre label1, después de un clic en la etiqueta dibujada y podrá modificar el nombre de adentro y pondremos ahí Nombre. Si por error da doble click en la etiqueta y lo manda a la pantalla de programación de la etiqueta solo de doble click en user form1 que se encuentra en el explorador de proyectos.

Explorador de proyectos:

DE LA MISMA FORMA SE REALIZA CON DIRECCION Y TELEFONO:

5. Elija del Cuadro de herramientas el control cuadro de texto

Arrastre dibujando en el formulario Userform1 el cuadro de texto debe estar a un lado de la etiqueta que dice nombre, el cuadro de texto debe estar vacio y su nombre será textbox1, el nombre aparecerá en el control. De la misma forma se dibujan los cuadros de texto para las etiquetas dirección y teléfono.

6. 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 dibujando y podrá modificar el nombre y pondremos ahí insertar.

Así queda el formulario formado por controles.

7. ahora de doble click sobre el control Textbox1 para programarlo:


Se inserta el siguiente código:

Private sub textbox1_change()

Range(“a9”).select

Activecell.formular1c1=textbox1

End sub

Esto indica que vaya a A9 y escriba lo que hay en el textbox1.



NOTA: Lo que está en azul lo genera Excel automáticamente, usted solo escribirá lo que está en negrilla.



Para volver la formulario y programar el siguiente textbox de doble click en userform1 que se encuentra en el explorador de proyecto.


Doble click en userform1 para volver a programar los demás textbox


8. En el textbox 2 inserte el siguiente código:

Private Sub TextBox2_Change()

Range("B9").Select

ActiveCell.FormulaR1C1 = TextBox2

End Sub

Esto indica que se valla B9 y escriba lo que hay en el textbox2

9. En el textbox3, escriba el siguiente código:

Private Sub TextBox3_Change()

Range("C9").Select

ActiveCell.FormulaR1C1 = TextBox3

End Sub

Esto indica que se valla C9 y escriba lo que hay en el textbox3






10. Para volver al formulario y programar el botón de comando insertar de doble click en userform1 que se encuentra en el explorador de proyecto.

11. ahora doble clic sobre el control botón de comando para programarlo y después insertar el siguiente código:

Private Sub CommandButton1_Click()

Rem INSERTAR UN REGLON

Selection.EntireRow.Insert

Rem EMPTY LIMPIA LOS TEXTBOX

TextBox1 = Empty

TextBox2 = Empty

TextBox3 = Empty

Rem TEXTBOX1.SETFOCUS ENVIA EL CURSOR EL TEXTBOX1 PARA VOLVER A CAPTURAR LOS DATOS

TextBox1.SetFocus

End Sub



Nota: el comando REM es empleado para poner comentarios dentro de la programación, el comando Empty es empleado para vaciar los textbox.

12. Ahora presione el botón Ejecutar Userform que se encuentra en la barra de herramientas o simplemente presione la tecla F5.








Se activara el userform y todo lo que escriba en los textbox se escribirá en Excel y cuando presione el botón insertar, se insertara un reglón y se vaciaran los textbox y después se mostrara el cursor en el textbox1.



Así quedara el userform1 en Excel: