Home Excel - Dicas Microsoft Excel VBA Excel VBA - Perguntas e Respostas Excel planilha vba questoes perguntas e respostas retorna em um shapes

Excel planilha vba questoes perguntas e respostas retorna em um shapes

E-mail Imprimir PDF

Saberexcel - o site das macros

Esta macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), contém uma macro que gera uma pergunta aleatória  faz um loop nas respostas e de forma aleatoria a resposta é direcionada para uma autoforma(Shapes). A busca é realizada em outra planilha (Banco de Dados).
O exemplo tem finalidade didática.  (observe que a simetria no código facilita muito o entendimento)
Veja bem, no aprendizado VBA você tem por obrigação em aprender, o que são esses vocábulos e seus membros mais importantes.

CÓDIGOS ESTÃO NA PRIMEIRA LINHA DA MACRO
  Set c = Sheets("BD").Range("A1").Offset(Int(Rnd() * [Questoes].Count + 1), 0)

'Set' , 'c'  , 'Sheets', 'Range', 'OffSet', 'Int', 'Rnd','questoes-range dinamico nomeado','Count',. - 
(viu que não é dificil) esses nomes são "Vocábulos do VB"



             A B
1 VOCABULÁRIO   << S I G N I F I C A D O >>
 2 Instrução Set Atribui uma referência de objeto a uma variável ou propriedade
 3 Variável c Variáveis servem para armazenarmos dados e usarmos quando necessário
 4 Objeto Range Representa uma célula, uma linha, uma coluna, uma seleção de células
contendo um ou mais blocos contíguos de células ou um intervalo 3D.
 5  Propriedade Offset  Retorna um objeto Range, que representa um intervalo que é deslocado
do intervalo especificado
 6 Instrução Int Função que retorna parte de um inteiro
 7 Funçao Rnd Função que retorna um Single que contém um número aleatório
 8 Propriedade Count Retorna um Long (número inteiro longo) que contém o número de objetos de uma coleção.
9 COMO SABER Teclando F1 no VBE na palavra chave, abrirá o Help do item selecionado.

 Sub Gera_questao_resposta_aleatoria()
    Set c = Sheets("BD").Range("A1").Offset(Int(Rnd() * [Questoes].Count + 1), 0)

    Saber1.Shapes("sb").Visible = False
    Saber1.Shapes("sbm").Visible = False
    Saber1.Shapes("sbm1").Visible = False

   
With Sheets("Questões")
       
        [B5] = c            
        [C5] = c(1, 3)
        [D5] = c(1, 4)
        [E5] = c(1, 5)
        [F5] = c(1, 6) 'código
       
        'essa instrução With foi criada para retornar os valores no Shapes(Autoforma)'Saber'
        With .Shapes("Saber")
             .TextFrame.Characters.Text = c(1, 2)
             .Visible = False
        End With
      
    End With
  [F8].Select
End Sub

essa macro foi criada somente para tornar os shapes(autoformas) visíveis.
Sub ver()
    Saber1.Shapes("Saber").Visible = True
    Saber1.Shapes("sb").Visible = True
    Saber1.Shapes("sbm").Visible = True
    Saber1.Shapes("sbm1").Visible = True  
End Sub

'caso queira programar pela folha de código da folha de planilha, bem simples olhe no projeto vba
'caso o usuário mude o nome da folha de planilha lá na aba das planilha, não ocorrerá o erro de
'localização do objeto Worksheet. Ok...

Sub Gera_questao_resposta_aleatoria_1()
    Set c = Saber2.Range("A1").Offset(Int(Rnd() * [Questoes].Count + 1), 0)
    With Saber1 'planilha Questões
       
        [B5] = c
        [C5] = c(1, 3)
        [D5] = c(1, 4)
        [E5] = c(1, 5)
        [F5] = c(1, 6) 'código
       
        'essa instrução With foi criada para retornar os valores no Shapes(Autoforma)'Saber'
        With .Shapes("Saber")
             .TextFrame.Characters.Text = c(1, 2)
             .Visible = False
        End With
   
    End With
End Sub




Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel





  baixe o exemplo de planilha contendo as macros acima.
Excel planilha vba perguntas e resposta retorna valor shapes (48.43 Kb) 

Última atualização em Dom, 14 de Agosto de 2011 12:45  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje4027
mod_vvisit_counterOntem4432
mod_vvisit_counterEsta Semana30550
mod_vvisit_counterSemana passada46212
mod_vvisit_counterEsse mês17756
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10440585
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA