Excel Avanzado

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

Excel Avanzado
Logo Excel Avanzado

Frases de Canciones

| Sin comentarios

El día de hoy describiré cómo realizar un generador de frases usando macros. para ello listaré las instrucción mediante un ejemplo llamado "Frases de Canciones". El ejemplo lo adicionaré en la parte final, no olviden descomprimir la carpeta para poder ver la funcionalidad de la macro. El objetivo de la Macro es Mostrar las frase de canciones e imágenes al azar, podrás ver frases de todo genero.

  1. Primero debes crear un Userform y crear un botón de comando, una Etiqueta y una Imagen.forma 1 300x181 Frases de Canciones

(Para mayor visualización de la imagen, hacer click en la misma)

  1. Luego en el botón añade lo siguiente:Private Sub CommandButton1_Click()Dim ult As Integer, a As Integer, b As Integer
    ult = Worksheets("frasescanciones").Cells(Rows.Count, 1).End(xlUp).Row
    a = WorksheetFunction.RandBetween(1, ult)
    b = WorksheetFunction.RandBetween(1, 9)UserForm1.Label1.Caption = Worksheets("frasescanciones").Cells(a, 1).Valueruta = ActiveWorkbook.Path & "\imagencancion\" & b & ".jpg"
    UserForm1.Image1.Picture = LoadPicture(ruta)
    UserForm1.Image1.PictureSizeMode = fmPictureSizeModeStretch
    End Sub
  2. Y listo sólo tienes que crear un Botón de Comando y listo. Dejaré la Macro para su revisión.

 

Descargar archivo con las frases de canciones:  Frases de Canciones

Deja una respuesta

Los campos requeridos estan marcados con *.