Excel Avanzado

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

Excel Avanzado
Logo Excel Avanzado

Frases de Julio Cortázar

| 0 comments

En éste aplicativo podremos generar de forma aleatoria una frase y una imagen del famoso escritor argentino.

En éste ejercicio daremos uso de una macro que nos brinde una forma lúdica de conocer un poco más al escritor; el cual nos brindará una frase aleatoria de una base de datos de 56 frases, de la misma forma nos brindará una imagen de una base de 17 imágenes. (Imagen 01)

En este ejercicio tendremos que agregar una carpeta, en el cual debemos insertar las imágenes correspondientes.

Imagen 01

Código empleado para las Frases de Julio Cortazar

El código base a utilizar es, para este ejemplo es :

rivate Sub CommandButton1_Click()

Dim ult As Integer, a As Integer, b As Integer

ult = Worksheets(“Frasesjuliocortazar”).Cells(Rows.Count, 1).End(xlUp).Row
a = WorksheetFunction.RandBetween(2, ult)
b = WorksheetFunction.RandBetween(1, 17)

UserForm1.Label1.Caption = Worksheets(“Frasesjuliocortazar”).Cells(a, 1).Value

ruta = ActiveWorkbook.Path & “\ImagenesdeJulio\” & b & “.jpg”

UserForm1.Image1.Picture = LoadPicture(ruta)
UserForm1.Image1.PictureSizeMode = fmPictureSizeModeStretch

End Sub

 

Adicionalmente en el aplicativo tenemos (imagen 02):

  • Tenemos un botón rojo que abrirá el aplicativo “Genera tu frase de Julio”, para posteriormente con el botón “Genera tu frase” brindará en automático una nueva frase e imagen.
  • Además nos brindará mediante unos enlaces (a otras hojas del libro) la biografía y algunos textos literarios del autor.

Imagen 02

Archivo del aplicativo:

frases de Julio Cortazar

Deja un comentario

Required fields are marked *.


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