|
Los controles como las Etiquetas y Cuadros de Textos pueden modificárseles algunas opciones en la Ventana
PropiedadesPara hacer esto es necesario tener conocimiento sobre las propiedades de los controles.
No altere las propiedades si no las conoce.
Así quedara el Formulario formado por los controles:
- Ahora 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 se valla a A9 y escriba lo que hay en el Textbox1
Nota.-Lo que esta en azul lo genera Excel automáticamente, usted solo escribirá lo que esta en Negrita.
Para volver al Formulario y programar el siguiente Textbox de doble clic en UserForm1 que se encuentra en el
Explorador de Proyecto, o simplemente de clic en Ver Objeto en el mismo Explorador de Proyecto.
- Ahora 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 se valla a B9 y escriba lo que hay en el Textbox2
Para volver al Formulario y programar el siguiente Textbox de doble clic en UserForm1 que se encuentra en el
Explorador de Proyecto, o simplemente de clic en Ver Objeto en el mismo Explorador de Proyecto.
- Ahora 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 = TextBox2
End Sub
Esto indica que se valla a C9 y escriba lo que hay en el Textbox3
Para volver al Formulario y programar el Botón de ComandoInsertar
de doble clic en UserForm1 que se encuentra en
el Explorador de Proyecto, o simplemente de clic en Ver Objeto en el mismo Explorador de Proyecto.
- Ahora de doble clic sobre el control Botón de Comando para programarlo y después inserte el siguiente código:
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
Nota.-El comando Rem es empleado para poner comentarios dentro de la programación, el comando Empty es
empleado para vaciar los Textbox.
-
Ahora presione el botón Ejecutar User/Form que se encuentra en la barra de herramientas o
simplemente la tecla de función F5
Se activara el Userform1 y todo lo que escriba en los Textbox se escribirá en Excel y cuando presione el botón Insertar,
se insertara un renglón y se vaciaran los Textbox y después se mostrara el cursor en el Textbox1.
En este archivo que usted bajo se encuentra una hoja de Excel Libre de Virus o sea que esta limpio,
ábralo sin ningún problema, ya que ahí viene un ejemplo de la Macro ya realizada y solo la ejecutara y vera como
trabajan las Macros. Espero y estés pendiente porque vienen mas partes sobre este interesante Tutorial de Macros.
El Archivo Viene con el Nombre de Macro1
|
|
|
|
|
tutorial realizado por el Profesor Ramón Mendoza Ochoa
|
|