Excel Avanzado

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

Excel Avanzado

Frases de hermanos

| 0 comments

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.

Descargar archivo con Frases de Hermanos: Frases de Hermanos

Por: Sofía G.

Deja un comentario

Required fields are marked *.


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