Como gerar números da lotaria no Excel?

Este método orienta-o na utilização de várias funções do Excel para gerar números da lotaria. Basta seguir estes passos:

1. Numa folha de cálculo em branco, introduza os cabeçalhos das colunas no intervalo A1:C1, conforme ilustrado na imagem abaixo:

2. Introduza fórmulas nas colunas A, B e C:

(1) Na célula A2, introduza a fórmula =RAND() e, em seguida, arraste a alça de preenchimento até ao intervalo A2:A50.
(2) Na célula B2, introduza a fórmula =RANK($A2,$A$2:$A$50)+COUNTIF(B$1:B1,B1)-1 e, em seguida, arraste a alça de preenchimento até ao intervalo B2:B50. (Na fórmula, A2 é o número aleatório à esquerda da célula atual, $A$2:$A$50 são todos os números aleatórios obtidos com a primeira fórmula, B$1 é a primeira célula na coluna B e B1 é a célula acima da célula atual.)
(3) No intervalo C2:C50, introduza números consecutivos de 1 a 49.

Obterá então uma tabela como a apresentada na imagem à esquerda:

 

A fórmula é demasiado complicada para memorizar? Guarde-a como uma entrada de Texto Automático e reutilize-a com apenas um clique no futuro!Ler mais…     Teste gratuito

3. Encontre uma faixa em branco e digite números consecutivos horizontalmente numa linha, conforme mostrado na imagem abaixo:

4. Abaixo da primeira ocorrência do número de sequência «1», introduza a fórmula =VLOOKUP(G1,$B$1:$C$50,2,FALSE) e, em seguida, arraste a alça de preenchimento até ao intervalo pretendido.

Nota: nesta fórmula, G1 é a célula com o primeiro número de sequência «1», $B$1:$C$50 correspondem às colunas «Classificação Única» e «Número da Bola», e o número 2 indica que os valores devem ser procurados na segunda coluna do intervalo $B$1:$C$50.

Obterá então os números da lotaria conforme mostrado na imagem abaixo:

5. É opcional. Para impedir que os números da lotaria mudem automaticamente quando a folha de cálculo for atualizada, clique em Fórmula > Opções de Cálculo > Manual.

Se tiver o Kutools para Excel instalado, a sua funcionalidade Inserir dados aleatórios permite-lhe gerar números da lotaria no Excel de imediato.

1. Selecione seis células adjacentes, por exemplo A1:F1, e clique em Kutools > Inserir > Inserir dados aleatórios.

2. Surge agora a caixa de diálogo Inserir dados aleatórios. Aceda ao separador Inteiro, digite 1 na caixa De, digite 49 na caixa Até, assinale a opção Valores únicos e clique no botão OK. Verá imediatamente 6 números únicos da lotaria gerados e apresentados nas células selecionadas.

Este método orienta-o na aplicação de uma macro VBA para gerar números da lotaria no Excel. Siga os passos abaixo:

1. Prima as teclas Alt+F11 para abrir a janela do Microsoft Visual Basic para Aplicações.

2. Clique em Inserir > Módulo para abrir uma nova janela de módulo e cole nela o seguinte código VBA:

VBA: Gerador de Números da Lotaria no Excel

Sub LotteyCode()
Dim Rng As Range
Dim WorkRng As Range
Dim xNumbers(49) As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Out put to (single cell):", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.Range("A1")
For xIndex = 1 To 49
xNumbers(xIndex) = xIndex
Next
For xIndex = 1 To 6
xNum = 1 + Application.Round(Rnd * (49 - xIndex), 0)
WorkRng.Offset(0, xIndex - 1).Value = xNumbers(xNum)
xNumbers(xNum) = xNumbers(50 - xIndex)
Next
End Sub

3. Prima a tecla F5 ou clique no botão Executar para executar esta macro VBA.

4. Surge agora uma caixa de diálogo. Especifique uma célula onde pretende apresentar os números da lotaria e clique no botão OK.

Verá então seis números únicos da lotaria gerados e apresentados nas células especificadas.

Selecionar células aleatoriamente com base em critérios no Excel

Adicionar aleatoriamente fundo/Cor de preenchimento às células no Excel