Note: The other languages of the website are Google-translated. Back to English

Como gerar todos os números primos entre dois números fornecidos no Excel?

No Excel, você já tentou listar todos os números primos entre dois números fornecidos? Neste artigo, irei falar sobre alguns métodos interessantes para lidar com essa tarefa.

Gere todos os números primos entre dois números fornecidos com fórmulas

Gere todos os números primos entre dois números fornecidos com a função definida pelo usuário


seta azul bolha direita Gere todos os números primos entre dois números fornecidos com fórmulas

Combinando o Definir o Nome função e fórmulas, você pode listar ou gerar todos os números primos entre os dois números específicos. Faça o seguinte:

1. Crie o primeiro nome de intervalo clicando em Fórmulas > Gerente de Nomes, E no Gerente de Nomes caixa de diálogo, clique em Novo botão, veja a captura de tela:

doc list números primos 1

2. No Novo nome caixa de diálogo, no Nome caixa de texto, por favor digite RNG como o nome do intervalo e, em seguida, insira esta fórmula: = LINHA (INDIRETO (Folha1! $ B $ 1 & ":" & Folha1! $ B $ 2)) (Sheet1 é a sua planilha atual que você usou, B1 e B2 são os números inicial e final que você especificou) no Refere-se a caixa de texto e clique em OK botão para voltar ao diálogo anterior. Veja a imagem:

doc list números primos 2

3. Continue clicando Novo botão para criar outro nome de intervalo, no Novo nome caixa de diálogo, digite um nome primeiro no Nome caixa de texto e, em seguida, insira esta 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 intervalo que você criou na etapa 2) no Refere-se a caixa de texto, veja a captura de tela:

doc list números primos 3

4. Então clique OK e feche as caixas de diálogo e selecione uma coluna na qual deseja listar todos os números primos e insira esta fórmula: = IFERROR (primo, "")(primeiro é o nome do intervalo que você criou na etapa 3) na barra de fórmulas e, em seguida, pressione CTRL + SHIFT + ENTER juntas, todos os números primos entre os dois números fornecidos são listados como a seguinte captura de tela mostrada:

doc list números primos 4


seta azul bolha direita Gere todos os números primos entre dois números fornecidos com a função definida pelo usuário

Se o primeiro método for um pouco difícil, aqui, você pode aplicar um Função definida pelo usuário para resolvê-lo.

1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.

Código VBA: Gere 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, salve e feche este código, volte para a planilha, insira esta fórmula: = primo (10,100) (10 é o número inicial, e 100 é o número final entre o qual deseja obter os números primos, você pode alterá-los de acordo com sua necessidade) e, em seguida, pressione Entrar chave, e todos os números primos são exibidos em uma célula, veja a captura de tela:

doc list números primos 5


As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
  • Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

Guia do Office traz interface com guias para o Office e torna seu trabalho muito mais fácil

  • Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
parte inferior da aba do escritório
Comentários (3)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Sub generateprimenumbersbetween() começando_number = 1 'input value here last_number = 2000 'input value here primenumbers = "" Para a =start_number Para last_number Para b = 2 Para a If a - b * Int(a / b) = 0 And ab Then Exit For Else If a = b Then primenumbers = primenumbers & " " & a End If End If Next b Next a MsgBox primenumbers End Sub Function primenumbersbetween(starting_number, last_number) primenumbers = "" Para a =start_number Para last_number For b = 2 To a If a - b * Int(a / b) = 0 E ab Then Exit For Else If a = b Then primenumbers = primenumbers & " " & a End If End If Next b Next a primenumbersbetween = primenumbers End Function 'para verificar se um número é primo Sub ISPRIME() number_to_be_checked = 102 'introduza o valor aqui Para b = 2 Para number_to_be_checked If number_to_be_checked - b * Int(number_to_be_checked / b) = 0 E _ number_to_be_checked b Then MsgBox "Not Prime. Divisible by " & b Exit Sub Else If number_to_be_checked = b Then MsgBox "Prime" End If End If Next b End S ub 'para verificar se um número é primo Função ISPRIME2(number_to_be_checked) Para b = 2 Para number_to_be_checked If number_to_be_checked - b * Int(number_to_be_checked / b) = 0 E _ number_to_be_checked b Then ISPRIME2 = "Not Prime. Divisível por " & b Exit Function Else If number_to_be_checked = b Then ISPRIME2 = "Prime" End If End If Next b End Function
Este comentário foi feito pelo moderador no site




End Sub

Este comentário foi feito pelo moderador no site
Sub gereprimenúmerosentre3() número_inicial = 1 'introduza o valor aqui last_number = 10000 'introduza o valor aqui primenumbers = "" Para a = número_inicial Para número_último c = a Para b = 2 Para c Se a Mod b = 0 E cb Então Exit For Else If b = c Then primenumbers = primenumbers & " " & a Exit For Else If Round(a / (b + 1)) + 1 > b Then c = Round(a / (b + 1)) + 1 End If End If End If Next b Next a MsgBox primenumbers End Sub Function PRIMENUMBERSBETWEEN3(starting_number, last_number) primenumbers = "" Para a =start_number Para last_number c = a Para b = 2 Para c Se a Mod b = 0 E cb Then Exit For Else If b = c Then primenumbers = primenumbers & " " & a Exit For Else If Round(a / (b + 1)) + 1 > b Then c = Round(a / (b + 1)) + 1 End If End If End If Next b Em seguida a PRIMENUMBERSBETWEEN3 = primenumbers End Function Sub ISPRIME3() number_to_be_checked = 15485863 'introduza o valor aqui c = number_to_be_checked Para b = 2 Para c If number_to_be_checked Mod b = 0 E cb Then MsgBox "Not Prime. Divisible by " & bExit Sub Else If b = c Then MsgBox "Prime" Exit Sub Else If Round(number_to_be_checked / (b + 1)) + 1 > b Then c = Round(number_to_be_checked / (b + 1)) + 1 End If End If End Se Próximo b Fim Sub
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL