BlogAndOffice

Game Excel – Quiz Olímpico

O jogo criado com recursos de Excel 2007 e algumas macros de VBA.

LAYOUT

O layout foi construído com os recursos de formas do Excel e melhorado com a barra de Ferramentas de desenho, com a qual apliquei os efeitos de forma.

VALORES DOS RETANGULOS

Os valores estão ocultos na planilha e foram inseridas nos retângulos da seguinte forma:

1° – Clique em Formas (menu Inserir) e insira um retângulo;

2° – Clicar sobre o retângulo;

3° – Clicar na barra de Formulas

4° – Clicar na célula que contém o valor que deseja inserir no retângulo.

Quando o valor for alterado na célula ele será alterado também no retângulo.

MACROS

Ao clicar nos números cada qual executa uma macro diferente, porém com a mesma finalidade: Comparar o resposta com a opção escolhida.

Seguem as macros comentadas (em vermelho):

BOTÕES COM AS RESPOSTAS

___________________________________________________________________________________________________________

Sub UM() Determina a ação do botão 1

Dim opcaoum As Variant Declaração da variável da opção escolhida

opcaoum = Range(“K7″).Value Determina o valor desta variável (opção escolhida) será igual ao valor da célula K7

resposta = Range(“K6″).Value Determina o valor desta variável (resposta) será igual ao valor da célula K6

If Range(“K12″).Value < 7 Then
Determina o limite do jogadas (7 jogadas)

If opcaoum = resposta Then Se a reposta for igual a opção um ele apresentara a mensagem abaixo

MsgBox “Parabéns , você acertou” & Chr(13) & Chr(13) & “Vamos para uma nova pergunta.”, vbInformation + vbOKOnly, “That’s ok!”

Call Inicio Depois de apresentar a mensagem ele executará a macro inicio

Range(“K11″).Value = Range(“K11″).Value + 1 Conta a quantidade de acertos até o momento

Else

MsgBox “Esta pergunta você não acertou!” & Chr(13) & “A resposta correta é ” & resposta & “.” & Chr(13) & Chr(13) & “Vamos para uma nova pergunta.”, vbInformation + vbOKOnly, “Sorry!”

Call Inicio Depois de apresentar a mensagem ele executará a macro inicio

End If

Range(“K12″).Value = Range(“K12″).Value + 1 Conta a quantidade de jogadas até o momento

Call Final Depois de apresentar a mensagem ele executará a macro inicio

End If

End Sub

Esta macro é a mesma dos outros botões mudando apenas variável da opção.

___________________________________________________________________________________________________

SELEÇÃO ALEATÓRIA DAS PERGUNTAS

___________________________________________________________________________________________________

Sub Inicio() Abre o módulo

Dim pergunta As Integer Declaração da variável da pergunta escolhida

Sheets(“teste”).Select Certifica-se de executar a macro na planilha teste

Randomize

pergunta = Int((Range(“Y2″).Value – Range(“Y5″).Value + 1) * Rnd + (Range(“Y5″).Value)) determina o valor da variável pergunta

Range(“K4″).Value = pergunta Atribui a célula K4 o valor da variável pergunta

End Sub Fecha o módulo

___________________________________________________________________________________________________

FINALIZA O JOGO

___________________________________________________________________________________________________

Sub Final() Abre o módulo

If Range(“K12″).Value > 6 Then Determina o momento da execução da macro (na 7° jogada)

MsgBox ” O jogo acabou.” & Chr(13) & Chr(13) & ” Você acertou ” & Range(“k11″).Value & ” acertos” & Chr(13) & Chr(13) & “Você ganhou medalha de ” & Range(“j14″).Value & ” .” & Chr(13) & Chr(13) & “Vamos iniciar um novo jogo.”, vbInformation + vbOKOnly, “Game Over”

Call Iniciar_jogo Depois de apresentar a mensagem ele executará a macro inicio

End If

End Sub

Abraços,

Osmar Brandão.