Excel Avanzado

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

Excel Avanzado

Frases de Ghandi

| Sin comentarios

Frases de Ghandi

Descargar archivo desde:  Frases de Ghandi

Para la creación del archivo con las frases de Ghandi se realizaron los siguientes pasos:

-Se seleccionó 44 frases de Ghandi, las cuales se ubican en la hoja 2 desde la celda A2 a la celda A45 (Rango a Utilizar).

-Se insertó un Formulario en VBA (UserForm1)

-Se insertó un Label (Aparezcan las Frases) e Image (Aparezcan las Imágenes).

-Se insertó un CommandButton que tiene de contenido “Frases de Ghandi” (Caption). El cual tiene la opción de que cuando se haga click sobre él se realice la aleatoriedad.

-Se diseñó el formulario a gusto, acomodando todas las herramientas según la preferencia.

-En la Hoja 1 se insertó un CommandButton con el Nombre “Frases de Ghandi”.

-Se escriben los códigos para que se pueda utilizar según lo mencionado al inicio.

A continuación el código VBA utilizado:

  1. Show: Muestra el Userform1 cuando se haga click en el CommandButton “Frases de Ghandi”.
  2. WorsheetFunction.RandBetwee: Para la aleatoriedad
  3. Se brindo valores a algunas letras.
  4. Se seleccionó el lugar de donde saldrán las imágenes.

Private Sub CommandButton1_Click()
Dim ult As Integer, a As Integer, b As Integer

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

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

ruta = ActiveWorkbook.Path & “\carpetadeimagen\” & b & “.jpg”
UserForm1.Image1.Picture = LoadPicture(ruta)
UserForm1.Image1.PictureSizeMode = fmPictureSizeModeStretch

End Sub

Deja una respuesta

Los campos requeridos estan marcados con *.