Como fazer um sorteio em uma planilha do Excel via VBA

Na planilha do Excel, você também pode fazer um sorteio. Neste artigo, mostraremos como concluir esta tarefa no Excel.

Um sorteio é muito comum em nossa vida diária. Por exemplo, você precisa dar bônus aos funcionários no final de um ano. Você gostaria de selecionar alguns funcionários sortudos aleatoriamente. Portanto, você pode usar o arquivo do Excel para fazer um sorteio.

Faça um Sorteio

Nesta parte, apresentaremos os métodos em detalhes.

1. Abra o arquivo Excel com todas as informações dos funcionários. Neste exemplo, há 18 funcionários na planilha. E os bônus existentes são calculados de acordo com o volume de vendas.
2. E então pressione as teclas de atalho “Alt + F11” no teclado para abrir o editor do Visual Basic.
3. Depois disso, insira um novo módulo no editor.
4. Nesta etapa, copie os seguintes códigos para o novo módulo:

Sub MakeLuckyDraw()
  Dim nNumber As Integer, nRowIndex As Integer

  'Generate a random number
  nNumber = Int(Rnd() * (19 - 2 + 1)) + 2

  'Go through the list
  For nRowIndex = 2 To 19
    If nRowIndex = nNumber Then
      MsgBox "The lucky one is " & Cells(nRowIndex, 1).Value
    End If
  Next nRowIndex
End Sub

Nesses códigos, a fórmula “Int(Rnd() * (19 – 2 + 1)) + 2” garantirá que o número aleatório esteja em 2-19. Você também pode modificar a fórmula de acordo com sua necessidade.

Na verdade, exceto pela fórmula acima para gerar um número, você também pode usar a função de planilha “RandBetween”. E você precisa alterar os códigos no módulo.

'Generate a random number
nNumber = Application.WorksheetFunction.RandBetween(2, 19)

5. Depois disso, clique na guia “Desenvolvedor” na faixa de opções.
6. E então clique no botão “Inserir” na barra de ferramentas.
7. Na lista suspensa, escolha a opção “Botão”.
8. Depois disso, clique na planilha. Você verá a janela “Atribuir Macro”.
9. Nesta janela, clique na macro que você inseriu no novo módulo.
10. E depois clique no botão “OK”.
11. Em seguida, você pode ver o botão na planilha. Clique com o botão direito do mouse no botão.
12. Na janela pop-up, escolha a opção “Editar texto”.
13. Agora dê um nome para o botão. Vamos chamá-lo de “Pessoa de Sorte”.
14. Você concluiu todas as configurações. Agora você pode iniciar a atividade. Clique no botão.
15. E então você verá uma janela pop-up com o nome do seu funcionário.

Pelas etapas acima, você pode ver que usar o Excel para fazer um sorteio é muito conveniente. Da próxima vez, você também pode considerar o uso de arquivos do Excel para essas tarefas.

Como reparar seus arquivos do Excel

A maioria dos usuários sairá do aplicativo Excel, desde que encontre erros no Excel. E da próxima vez que abrirem um arquivo do Excel, os problemas não existirão mais. Mas se você encontrar problemas graves no Excel, precisará executar ações adicionais. Você pode usar uma ferramenta de terceiros para reparar danificado Excel xlsx e corrigir erros do Excel. Este também é o método mais eficaz para lidar com erros do Excel.

Introdução do autor:

Anna Ma é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo reparar dados de documentos corrompidos e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com