Sorteio de perguntas sem repetição

Question

Pessoal,

Possuo uma lista com cem perguntas, quero sortear uma de cada vez, porém não pode haver repetição, alguém tem uma dica?

Answer 1

Uma possível solução (Excel 2007 ou mais recente)

Ponha um cabeçalho em A1 = "Perguntas"

Copie suas 100 perguntas para o intervalo A2:A101, uma em cada linha

Deixe a coluna B em branco

No Excel tecle Alt+F11 para abrir o VBEditor

Vá em Inserir > Módulo

Cole o código abaixo no painel à direita

Function Aleatorio(r As Range)    Dim MyCol As Collection, rCell As Range        Set MyCol = New Collection        For Each rCell In r        If rCell.Offset(, 1) = "" Then            MyCol.Add rCell.Row, CStr(rCell.Row)        End If    Next rCell        If MyCol.Count = 0 Then        Aleatorio = "Todos sorteados"    Else        Aleatorio = MyCol.Item(Application.RandBetween(1, MyCol.Count))    End If    End Function

Sub Sorteia()    'Teclas de atalho: Ctrl + h    Dim linha As Variant        If Range("D1") = "" Then Range("D1") = "Sorteados"        linha = Aleatorio(Range("A2:A101"))        If linha <> "Todos sorteados" Then        Range("B" & linha) = "x"        Range("D" & Cells(Rows.Count, "D").End(xlUp).Row + 1) = linha    Else        MsgBox "Todos os números já foram sorteados"    End If    End Sub

Volte para o Excel e na guia Exibição tecle naquela setinha embaixo de Macros

Escolha Exibir Macros

Selecione Sorteia

Tecle no botão Opções

Na Caixinha Tecla de Atalho digite um h minúsculo

Ok, Ok

Prontinho!

Agora é teclar Ctrl+h simultaneamente, repetidas vezes, e ver os números sorteados a cada vez surgindo na coluna D e um "x" sendo colocado ao lado da pergunta sorteada. 

Para repetir o sorteio, apague a coluna B e torne a digitar Ctrl+h simultaneamente repetidas vezes.

Espero que ajude

M.

Answer 2

Obrigado!

Answer 3

Poderia criar um coluna 'extra' com um sinalizador. Atribua o valor zero em todas. Se a questão foi sorteada, mude o sinalizador para 1. No momento do sorteio, além de 'sortear' a questão, verifique se o sinalizador está zero ou 1. Se estiver 1, faça novo sorteio.