Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado
Generador de frases de cariño

Frases de Cariño

| 0 comments

En el siguiente ejemplo se encontrará un archivo Excel que ha sido preparado para generar frases de cariño, combinando imágenes con las frases seleccionadas aleatoriamente,

Descargar archivo con Frases de Cariño

 

Para poder crear el ejemplo se han seguido los siguientes pasos:

Ingresar al Editor de Visual Basic que nos ofrece EXCEL

  1. En el panel izquierdo crear un formulario, para ello se debe realizar lo siguiente:
  • Botón derecho del mouse
  • Clic en INSERTAR
  • Clic en USERFORM
  1. Ahora crearemos el siguiente Formulario:

Generador de frases de cariño

Donde agregaremos los siguientes elementos:

  • Etiquetas:
  • Label1 para el título del formulario
  • Label2 para el subítulo1
  • Label3 para el subtítulo2
  • Cuadros de Texto:
  • TextBox1 para que aquí aparezca la frase aleatoria
  • Imagen:
  • Imagen1 para el logotipo de Excel
  • Imagen2 para el lugar donde aparecerá la imagen aleatoria
  • Botón de comando:
  • CommandButton1 para que Genere los aleatorios
  • CommnadButton2 para que permita salir del formulario

Ahora programaremos al Botón GENERADOR:

El cual mostrara en forma aleatoria una de las 20 frases que tenemos en la hoja 1 y también debe mostrar una de las 10 imágenes que están en una carpeta, para lo cual su programación es la siguiente:

  1. Genero un número aleatorio entre 1 y 20, para asignarlo a la variable NUMFRASE, luego para comprobarlo lo imprimo.
  1. Aquí la variable FRASE tendrá como contenido de la hoja1, la celda número de frase +1 y la columna 2. Luego el textBox1 asume dicho contenido de la variable FRASE.
  1. Genero un número aleatorio entre 1 y 10, para asignarlo a la variable NUMIMAGEN, Luego para comprobarlo lo imprimo.
  1. Con esta línea estamos cargando de la carpeta Imágenes de Cariño, el archivo que se genera aleatoriamente en el NUMIMAGEN, el cual está grabado en una carpeta

 

 

La programación completa es la siguiente:

Ejemplo Frases de Cariño

Descargar archivo con Frases de Cariño

Por: Carlos Eduardo Carranza

 

 

Deja un comentario

Required fields are marked *.


Excel Avanzado located at , Lima, Perú . Reviewed by usuarios rated: 4.7 / 5