Excel Avanzado

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

Excel Avanzado

Frases de cobradores

| Sin comentarios

FRASES DE COBRADORES

Se elaboró una macro con la finalidad de crear memes con imágenes y frases de cobradores de combi al azar, de una lista de 30 frases típicas y 6 imágenes que ilustran como es el transporte en Lima.

La codificación de la macro es la siguiente:

Private Sub CommandButton1_Click()

ult = Worksheets("Hoja1").Cells(Rows.Count, 1).End(xlUp).Row
X = WorksheetFunction.RandBetween(2, ult)
Y = WorksheetFunction.RandBetween(1, 6)
UserForm1.Label1.Caption = Worksheets("Hoja1").Cells(X, 1).Value
ruta = ActiveWorkbook.Path & "\imagenes\" & Y & ".jpg"
UserForm1.Image1.Picture = LoadPicture(ruta)
UserForm1.Image1.PictureSizeMode = fmPictureSizeModeStretch

End Sub

En esta codificación se usa como función principal el RandBetween, que te bota un número al azar entre un rango, es así como se eligen imágenes y frases al azar. Es necesario para esto que el libro de excel y la carpeta de imágenes estén siempre juntos.

Para generar el meme se hace lo siguiente:

1

  • Se da click en el botón "Genera tu meme"

2

  • A continuación aparecerá un formulario donde debes volver a hacer click en el botón "Genera tu meme"

3

  • Como consecuencia se genera un meme con cualquier imagen y frase al azar de cobradores de combi de hoy en día. Para general otro meme se hace click nuevamente en el botón antes mencionado.

Frases cobradores

Por: RENATO TORRES MEJIA.

Deja una respuesta

Los campos requeridos estan marcados con *.