Excel Avanzado

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

Excel Avanzado
Capital de República de Macedonia

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

2. Formulario Preguntas

Capital de República de Macedonia 02

 

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

3. Datos Demográficos

Capital de República de Macedonia 04

4. Formulario Reseña Histórica

Capital de República de Macedonia 05

 

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