Aprenda a criar uma página para sorteio no Excel com o uso de comandos VBA e customize seu trabalho.
Por Felipe Paranhos em 03/01/2014 - atualização: 04/09/2018 08:23
Festas de final de ano, amigo secreto ou até mesmo sorteio escolar; já imaginou poder realizá-los com o máximo de rapidez e agilidade, e sem o uso de papeis? Pois bem, há uma maneira de se fazer uma tela no Excel onde, através de comandos VBA e de algumas outras funções, torna-se possível este sorteio.
Como já mencionado em outros tutoriais, os comandos VBA trazem ações muitas vezes inimagináveis, proporcionando ao usuário uma ampla gama de ações e tarefas que com eles podem ser executados. Neste caso, iremos utilizar, além de comandos VBA, as funções =Procv e =AleatórioEntre, usadas na busca pelos nomes das pessoas sorteadas que estarão em outra planilha.
Como exemplo, teremos um lista de alunos de uma determina instituição, onde a mesma pretende realizar um sorteio dentre estes. Para isso, necessita-se desta ferramenta para facilitar e customizar o sorteio.
1- Abra um documento Excel e edite as seguinte informações:
Título: SORTEIO ESCOLAR
Caixa em branco (de preferência na célula G7): reservada para o aparecimento do nome sorteado.
Nas abas da Plan1 e Plan2 renomear, respectivamente, Sorteio e Lista.
Dispor os nomes que serão sorteados na planilha Lista (no exemplo foram utilizados 80 nomes)
2- Vamos agora criar um botão, ao qual servirá para dar partida ao sorteio. Clique em Inserir, a partir da aba Desenvolver, onde deverá escolher o botão. Crie-o do tamanho desejado.
3- Ao demarcar a criação, retornará uma janela para escolha da macro; opte por Novo e cole o seguinte comando na caixa de edição:
Public Sub AleatorioEntreFixo()
lUltimaLinhaAtiva = Worksheets("Lista").Cells(Worksheets("Lista").Rows.Count, 1).End(xlUp).Row
Range("G7").FormulaR1C1 = "=VLOOKUP(RANDBETWEEN(1," & lUltimaLinhaAtiva & "),Lista!C[-6]:C[-5],2,0)"
4- Feche a janela de edição e modifique o nome do botão criado para SORTEAR, formatando-o como preferires.
5- Contudo, devemos atribuir a macro ao botão criado e, para isso, clique com o botão direito do mouse sobre ele e selecione Atribuir macro... optando pela mesma na janela que retornará.
6- Ao clicar no botão, veja que o sorteio será realizado, portanto, a letra do nome retornado estará muito pequena, por isso, selecione-a e formate-a como preferires.
Enfim, toda vez que clicares no botão de sorteio, o mesmo irá procurar dentre os nomes contidos na planilha lista, de forma aleatória, um para ser sorteado. Com este comando é possível realizar outras tarefas, como outras ações que necessitam da escolha de objetos aleatórios, por exemplo, tornando o seu trabalho muito mais divertido.
Função =Aleatório e =AleatórioEntre no Excel
Sorteie valores e gere séries de valores com facilidade no Excel.
Planilha de sorteio de dados sem repetição 4.0
Faça o download desta planilha e realize um sorteio, dispondo seus dados de forma aleatória e sem repetição.