Excel Avanzado

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

Excel Avanzado

Frases de hermanos

| Sin comentarios

Los formularios tienen distintas funcionalidades, en esta ocasión los utilizaremos para la generación de frases aleatorias.

En el siguiente ejemplo observamos cómo utilizando los códigos de la función aleatorio podemos generar frases e imágenes aleatorias, respecto a la temática escogida, presionando un solo botón.

El código utilizado es el siguiente:

Private Sub CommandButton1_Click()

Dim a As Integer
Dim b As Integer

a = WorksheetFunction.RandBetween(1, 5)
b = WorksheetFunction.RandBetween(1, 30)
TextBox1 = Worksheets("bancofrases").Cells(b, 1)

Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\imagenes\" & a & ".jpg")
Image1.PictureSizeMode = fmPictureSizeModeZoom

End Sub

 

Anexado a esta entrada, pueden ver el ejemplo en Excel y el código VBA  del generador de frases de hermanos.

generador de frases 300x263 Frases de hermanos

Descargar archivo con Frases de Hermanos: Frases de Hermanos

Por: Sofía G.

Deja una respuesta

Los campos requeridos estan marcados con *.