Excel Avanzado

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

Excel Avanzado

Capital de República de Macedonia

| 0 comments

Capital de República de Macedonia,

Para la esta trivia usaremos 4f ormularios .

1. Formulario Principal

Capital de República de Macedonia 01

(Para mayor visualización de la imagen, hacer click en la misma)

2. Formulario Preguntas

Capital de República de Macedonia 02

(Para mayor visualización de la imagen, hacer click en la misma)

 

Al llenar el formulario click en Intentar y arrojará los resultados de las preguntas si son correctas o incorrectas.

Capital de República de Macedonia 03

(Para mayor visualización de la imagen, hacer click en la misma)

3. Datos Demográficos

Capital de República de Macedonia 04

4. Formulario Reseña Histórica

Capital de República de Macedonia 05

(Para mayor visualización de la imagen, hacer click en la misma)

 

Funcionamiento de los Formularios:

1. Para el Formulario de Menú obtenemos el siguiente código:

El formulario menú carga las imágenes y el ListBox , las acciones de los botones dirigiéndose a sus respectivos formularios.

Private Sub btnPreguntas_Click()
Preguntas.Show
End Sub

Private Sub CommandButton3_Click()
Main.Hide
End Sub

Private Sub CommandButton4_Click()
If ListBox1.Text = “MAPA” Then
Image1.Visible = False
Image2.Visible = True
Image3.Visible = False
ElseIf ListBox1.Text = “BANDERA” Then
Image1.Visible = True
Image2.Visible = False
Image3.Visible = False
Else
Image1.Visible = False
Image2.Visible = False
Image3.Visible = True
End If
End Sub

Private Sub CommandButton5_Click()
Demografia.Show

End Sub

Private Sub CommandButton6_Click()
Resena.Show
End Sub

Private Sub UserForm_Activate()
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
ListBox1.AddItem (“MAPA”)
ListBox1.AddItem (“BANDERA”)
ListBox1.AddItem (“CAPITAL”)

End Sub

2. Para el Formulario de Preguntas.

Agrupamos las optionbutton para la primera y tercera pregunta. Luego le damos una lógica condicional para poder obtener las respuestas correctas y enviar un mensaje de responder las preguntas correctas y sino contesta con un mensaje donde indica cual de las preguntas es incorrecta.

Private Sub btnIntentar_Click()
If OptionButton1.Value = True Then
primera = “Correcta”
Else
primera = “Incorrecta”
End If

If LCase(TextBox1.Value) = “skopie” Then
segunda = “Correcta”
Else
segunda = “Incorrecta”
End If

If OptionButton5.Value = True Then
Tercera = “Correcta”
Else
Tercera = “Incorrecta”
End If

If primera = “Correcta” And segunda = “Correcta” And Tercera = “Correcta” Then
MsgBox “Felcidades todas las respuestas estan correctas.”
Else
MsgBox “Intentalo denuevo. Respuesta 1: ” & primera & “, Respuesta 2: ” & segunda & “, Respuesta 3: ” & Tercera
End If

3. Formularios de Demografía y Reseña Histórica

Estos formularios muestran información sobre la Capital de República de Macedonia.

Este código para el formulario de Reseña Histórica permite ajustar texto al Textbox

Private Sub UserForm_Activate()

TextBox1.MultiLine = True
ScrollBars = 2 – fmScrollBarsVertical
End Sub

 

Formulario Capital de la República de Macedonia

Republica_de_Macedonia

 

Por: Kevin Mallea

Deja un comentario

Required fields are marked *.


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