Trivia y Catálogo Italiano

TRIVIA ITALIANA

Descargar archivo: Trivia de Italia

Se ha realizado un documento Excel habilitado para macros el cual contiene la TRIVIA ITALIANA. Para este documento se ha utilizado tres useform, a los cuales adicionalmente se le insertó imágenes, textos y tres Option Button que contienen las opciones a escoger.

Además, se insertó 3 botones de comando:

El que da inicio a la macro:

Para este objeto se realizó el siguiente macro:

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

2 y 3. Son los que te brindan la opción de salir o seguir en la trivia. El botón de Siguiente se utiliza cuando has marcado una de las tres opciones que te brinda para responder.

A continuación se brindarán las macro utilizadas en el excel:

• Para que la opción de salir se utilizó el siguiente macro:

Private Sub CommandButton1_Click()
Unload UserForm1
End Sub

• Para la opción de aceptar se utilizó el siguiente macro:

Private Sub CommandButton2_Click()
If OptionButton2.Value = True Then
MsgBox "¡¡Felicitaciones!! Respuesta correcta. Haz superado la Trivia"
Unload UserForm3
Else
MsgBox "Sigue Intentando. Tú puedes"
End If
End Sub

* Esta macro nos indica que si se selecciona la respuesta correcta o incorrecta nos aparecerá un MsgBox con la opción descrita.

*El número 1 varía a 2 o 3 dependiendo en el formulario que te encuentres.

Sin más que decir, les dejo el archivo para que lo prueben y se diviertan:

Descargar archivo: Trivia de Italia

 

CATÁLOGO DE IMAGENES - ITALIA

Descargar archivo con: Catálogo - Lugares Italia

Para la segunda parte de este artículo, hemos creado un XLS habilitado para macros el cual contiene un catálogo de imágenes de los principales sitios turísticos de las principales ciudades de Italia.

Este catálogo funciona de la siguiente manera: Seleccionas la celda que hace referencia a la imagen e inmediatamente puedes visualizarla en la hoja de Excel, esto porque previamente se insertó el Control ActiveX Imagen y un código respectivo en VBA.

Este catálogo de imágenes es una herramienta de ayuda que brinda la opción de dar conocer o presentar de manera fácil y rápida algún tema como productos, lugares, entre otros.

Los macros utilizados fueron los siguientes:

• Selection_Change: Ejecuta la macro cuando selecciones una de las celdas del rango indicado : Range(“L5:L10”).
• ByVal Target As Range: Permite que el argumento no afecte el valor de la siguiente variable.
• LoadPicture: Sube y reproduce la imagen en el control Activex.

Les dejo los códigos utilizados:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error GoTo control
If Not Intersect(Target, Range("N5:N11")) Is Nothing Then

Ruta = ActiveWorkbook.Path & "\carpetadeimagenes\" & Target & ".jpg"
Image1.Picture = LoadPicture(ruta)

End If
Exit Sub

control:
Image1.Picture = Nothing
Resume Next

End Sub

Sin más que decir, les dejo el archivo para que lo prueben:

Espero les guste

Descargar archivo con: Catálogo - Lugares Italia