Excel Avanzado

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

Excel Avanzado

Frases de versículos

| Sin comentarios

En el siguiente adjunto se encuentra una relación versículos de la biblia que son combinados con algunas imágenes, solo debe descargar el siguiente archivo y obtendrá de forma aleatoria frases de distintas partes de la biblia.

Descargar ejemplo con: Frases de la Biblia

 

El programa empleado para generar el programa que muestra estos versículos es el siguiente:

Private Sub CommandButton1_Click()
Dim aleatorio As Integer
Dim ultimo As Integer
Dim ultimo2 As Integer

ultimo = Worksheets("Frases").Cells(Rows.Count, 2).End(xlUp).Row
'Ultimo, es la ultima fila con la frase de la hoja 3

aleatorio = WorksheetFunction.RandBetween(1 + 1, ultimo)
'La variable "aleatorio" tomará un valor ubicado entre el número 2 y la última fila con datos (ultimo)

Label1 = Worksheets("Frases").Cells(aleatorio, 2)
'En label1, se llama de manera aleatoria a las frases de la columna 2 que se encuentran en la hoja "Frases".

ultimo2 = Cells(Rows.Count, 4).End(xlUp).Row
'Ultimo, es la ultima fila con la numeracion de la foto de la Frases

foto = WorksheetFunction.RandBetween(ultimo2, 4)

ubicacion = ActiveWorkbook.Path & "\imagenes\" & foto & ".jpg"

'Para indicar la ubicación de la foto

Image2.Picture = LoadPicture(ubicacion)

'Carga la foto al boton Imagen2

End Sub

Deja una respuesta

Los campos requeridos estan marcados con *.