Manual de Excel tutorial de excel

manuales, tutoriales, programacion
programming tutorials, programming manuals
programacion
Manual de excel
Macros en Excel 1 parte
tutorial realizado por el Profesor Ramón Mendoza Ochoa

MACROS EN EXCEL Parte III

Hola amigos, estamos de nuevo aquí para mostrar la tercera parte de Guía de Macros en Excel que te será de gran utilidad, ya que se manejaran Consultas en los Formularios, accesos a las Macros desde Excel sin necesidad de entrar a Visual Basic y algunos métodos de trabajar mas fácil. De antemano muchas gracias por apoyar este curso de Excel creo que les ha servido, no había tenido mucho tiempo para escribir esta tercera parte pero creo que ya esta…….!!!Mucho Animo!!!.

 

ELABORANDO UNA CONSULTA

 

Todo Registro de información debe de tener su propia Consulta, Baja y Modificación, es por eso que en este nuevo capitulo nos concentramos en ello, primeramente en poder consultar la información que ya se escribió en la Hoja de Excel, obviamente desde una Macro combinada con Visual Basic, observemos el siguiente ejemplo:

 

Fase I

 

  1. Presione La Teclas Alt + F11, para entrar al editor de Visual Basic.
  2. 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 Ventana Propiedades
  1. 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.

 

Ahora crearas un formulario con el siguiente aspecto:

 

 

el formulario tendrá:

 

    • Tres etiquetas
    • Tres Textbox
    • Tres Botones de Comando

 

Los datos que se preguntaran serán Nombre, Dirección y Teléfono. Los tres botones nos servirán para lo siguiente: Consultar consultara la información que hayamos insertado desde el botón insertar. Baja podrá eliminar algún dato que se consulto y no lo queremos. Insertar tendrá la función de insertar los registros que vayamos dando de alta, es como los ejercicios anteriores. A continuación se muestra como se deben de programar estos Controles:

 

Programación de los Controles:

 

BOTON DE CONSULTA

 

Private Sub CommandButton1_Click()

 

Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _

:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _

False).Activate

 

ActiveCell.Offset(0, 1).Select

TextBox2 = ActiveCell

 

Rem la línea que contiene el ActiveCell.Offset(0, 1).Select permite moverse una columna a la derecha, por lo tanto después de la búsqueda de las primeras líneas con Cell.Find si encuentra el Nombre de la persona se mueve a la siguiente columna y la línea TextBox2 = ActiveCell Permite capturar el valor de la celda al Textbox2 y así mostrar el dato de la celda en el TextBox2.

 

ActiveCell.Offset(0, 1).Select

TextBox3 = ActiveCell

 

Rem Cada vez que se escriba la línea ActiveCell.Offset(0, 1).Select significa que se tiene que moverse una columna a la derecha.

 

Rem Si el nombre que tratas de consultar no se encuentra podría generar un error porque fallaría el Cell.Find esto puede ocurrir en el Word 97, yo trabajo con el Word 2000 o XP y no tengo ese problema. Pero esto se solucionaría con una trampa de error.

 

End Sub

 

BOTON BAJA

Private Sub CommandButton2_Click()

Selection.EntireRow.Delete

Range("A9").Select

TextBox1 = Empty

TextBox2 = Empty

TextBox3 = Empty

TextBox1.SetFocus

End Sub

 

 

BOTON INSERTAR

 

Private Sub CommandButton3_Click()

Range("A9").Select

Selection.EntireRow.Insert

TextBox1 = Empty

TextBox2 = Empty

TextBox3 = Empty

TextBox1.SetFocus

End Sub

 

 

CUADROS DE TEXTO

 

Private Sub TextBox1_Change()

Range("A9").FormulaR1C1 = TextBox1

 

Rem esta primer línea reemplaza a estas dos…… que te parece todavía mas corta

 

 

Range("A9").Select

ActiveCell.FormulaR1C1 = TextBox1

 

End Sub

 

 

Private Sub TextBox2_Change()

Range("B9").FormulaR1C1 = TextBox2

End Sub

 

Private Sub TextBox3_Change()

Range("C9").FormulaR1C1 = TextBox3

End Sub

 

 

Si con el Botón Consulta tienes un error cuando no encuentra a la persona, entonces tendrás que agregar esto a tu código del Botón Consultar

 

 

 

 

 

 

 

 

 

 

BOTON DE CONSULTA

 

Private Sub CommandButton1_Click()

 

On Error Goto noencontro

 

Rem esta línea genera una trampa de error si Excel encuentra un error se le dice que se vaya a la etiqueta noencontro que esta definida mas adelante en el código. No use la trampa de error si no tiene problemas a la hora de que no encuentra a la persona. Recuerde si usted comete cualquier error Excel se dirigirá a la etiqueta noencontro.y esquivara cualquier error, hasta uno que usted cometa en la programación.

 

Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _

:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _

False).Activate

 

ActiveCell.Offset(0, 1).Select

TextBox2 = ActiveCell

ActiveCell.Offset(0, 1).Select

TextBox3 = ActiveCell

 

Rem También se puede utilizar este código para leer la información de las celdas lo que esta en azul. La diferencia es que se asignan los valores a variables y después se descargan a los TextBoxs.

 

ActiveCell.Offset(0, 1).Select

Direccion = Activecell

 

ActiveCell.Offset(0, 1).Select

Telefono = Activecell

 

TextBox2 = Direccion

TextBox3 = Telefono

 

 

noencontro:

Rem Aquí se esquiva el error

 

End Sub

 

 

Que te parece es increíble como una Macro combinada con Visual Basic puede hacer hasta lo imposible

 

 

 

Bueno ya tenemos elaborado un ejercicio de consultas de datos, ahora accesaremos al formulario desde Excel sin necesidad de entrar al Editor de Visual Basic.

 

Para realizar este ejercicio debemos permanecer dentro del Editor de Visual Basic para poder introducir el código en un Modulo, por lo tanto deberás seguir los siguientes pasos:

 

  • De clic en el Menú Insertar y elija la opción Modulo
  • Escriba dentro del Modulo el nombre del modulo en este caso Sub Entrada

 

Cuando usted escriba Sub Entrada aparecerá de la siguiente manera:

 

Sub Entrada()

 

Load UserForm1

UserForm1.Show

 

End Sub

 

Usted deberá escribir las dos líneas que están en medio que son:

 

Load UserForm1

UserForm1.Show

 

La primer línea significa que cargue a la memoria el formulario que se llama UserForm1, la segunda línea significa que lo muestre, esto quiere decir que en el modulo estamos escribiendo el código de una macro que permitirá cargar el formulario desde Excel sin necesidad de entrar al Editor de Visual Basic.

 

Si te fija en el explorador de proyecto aparece el Modulo que creamos.

 

 

si queremos volver al formulario solo da doble clic en UserForm1

Bueno ya esta listo ahora salgamos del Editor de Visual Basic y volvamos a Excel.

 

  • De clic en el Menú Archivo del Editor de Visual Basic
  • Elija la opción Cerrar y volver a Microsoft Excel

 

 

Ya que estamos en Excel, podemos insertar una imagen o un botón o cualquier grafico, por ejemplo:

 

  • De clic en el Menú Insertar
  • Elija la opción Imagen, seguido por Imagen Prediseñada
  • inserte cualquier imagen y dele el tamaño que usted desea.
  • De clic derecho sobre la Imagen
  • Elija la opción Asignar Macro
  • De clic en la Macro que se llama Entrada, es obvio la única que hicimos
  • De Clic en Aceptar
  • De clic fuera de la imagen en cualquier celda y listo si presionas la imagen cargara el formulario.

 

 

sigueinte
tutorial realizado por el Profesor Ramón Mendoza Ochoa

si estas interesado en excel te ofrecemos a parte del manual de macros de excel que estas leyendo, nuestro manual de manejo de microsoft excel en esta direccion

 

Recomendar
Recomendar esta pagina a un amigo

Si buscas mas manuales te recomendamos
Sugiere un manual para esta seccion
¿buscas mas manuales? recomendamos solorecursos.com