Como gerar todos os números primos entre dois números especificados no Excel?
No Excel, já alguma vez tentou listar todos os números primos entre dois números dados? Neste artigo, apresento alguns métodos interessantes para resolver esta tarefa.
Gerar todos os números primos entre dois números dados com fórmulas
Gerar todos os números primos entre dois números dados com uma Função Definida pelo Utilizador
Gerar todos os números primos entre dois números dados com fórmulas
Combinando a função Definir Nome com fórmulas, pode listar ou gerar todos os números primos entre dois números específicos. Siga estes passos:
1. Crie o primeiro nome de célula clicando em Fórmulas > Gerenciador de Nomes e, na caixa de diálogo Gerenciador de Nomes, clique no botão Novo. Veja a captura de ecrã:
2. Na caixa de diálogo Novo Nome, introduza rng como nome da célula na caixa de texto Nome. Em seguida, na caixa de texto Refere-se a, insira esta fórmula: =ROW(INDIRECT(Sheet1!$B$1&":"&Sheet1!$B$2)) (Sheet1 é a sua planilha atual utilizada; B1 e B2 são, respetivamente, o número inicial e o número final que especificou) e clique no botão OK para regressar à caixa de diálogo anterior. Veja a captura de ecrã:
3. Clique novamente no botão Novo para criar outro Nome de célula. Na caixa de diálogo Novo Nome, introduza o nome prime na caixa de texto Nome e insira a seguinte fórmula: =SMALL(IF(MMULT(--(IF(rng>TRANSPOSE(rng-Sheet1!$B$1+2),MOD(rng,(rng>TRANSPOSE(rng-Sheet1!$B$1+2))*TRANSPOSE(rng-Sheet1!$B$1+2)))=0),rng-Sheet1!$B$1+2)=0,rng),ROW(INDIRECT("1:"&Sheet1!$B$2))) (rng é o primeiro Nome de célula que criou no passo 2) na caixa de texto Refere-se a. Veja a captura de ecrã:
4. Em seguida, clique em OK e feche as caixas de diálogo. Selecione uma coluna onde pretenda listar todos os números primos e introduza a seguinte fórmula na Barra de Fórmulas: =IFERROR(prime,«»)) (prime é o nome da célula que criou no passo 3). Depois, prima em simultâneo as teclas CTRL + SHIFT + ENTER. Todos os números primos entre os dois números indicados serão listados, conforme mostrado na seguinte captura de ecrã:
Gerar todos os números primos entre dois números dados com uma Função Definida pelo Utilizador
Se o primeiro método for um pouco difícil, aqui pode aplicar uma Função Definida pelo Utilizador para resolver este problema.
1. Mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic para Aplicações.
2. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.
Código VBA: Gerar todos os números primos entre dois números específicos:
Function PRIME(St, En As Long)
'Updateby Extendoffice 20160613
Dim num As String
For n = St To En
For m = 2 To n - 1
If n Mod m = 0 Then GoTo 20:
Next m
num = num & n & ","
20:
Next n
PRIME = num
End Function
3. Em seguida, guarde e feche este código e regresse à folha de cálculo. Introduza esta fórmula: =prime(10,100) (10 é o número inicial e 100 é o número final entre os quais pretende obter os números primos; pode alterá-los conforme necessário) e prima a tecla Enter. Todos os números primos são apresentados numa única célula. Veja a captura de ecrã:
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos