Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment générer tous les nombres premiers entre deux nombres donnés dans Excel?

Dans Excel, avez-vous déjà essayé de lister tous les nombres premiers entre deux nombres donnés? Cet article, je vais parler de quelques méthodes intéressantes pour faire face à cette tâche.

Générer tous les nombres premiers entre deux nombres donnés avec des formules

Générer tous les nombres premiers entre deux nombres donnés avec la fonction définie par l'utilisateur


flèche bleue droite bulle Générer tous les nombres premiers entre deux nombres donnés avec des formules


Combiner le Définir le nom fonction et formules, vous pouvez lister ou générer tous les nombres premiers entre les deux nombres spécifiques. S'il vous plaît faites comme suit:

1. Veuillez créer le premier nom de plage en cliquant sur Formules > Gestionnaire de nomset dans le Gestionnaire de noms boîte de dialogue, cliquez sur Nouveau bouton, voir capture d'écran:

liste de doc nombres premiers 1

2. Dans le Nouveau nom boîte de dialogue, dans le Nom zone de texte, s'il vous plaît entrer RNG comme le nom de la plage, puis entrez cette formule: = ROW (INDIRECT (Sheet1! $ B $ 1 & ":" et Sheet1! $ B $ 2)) (Sheet1 est votre feuille de calcul actuelle que vous avez utilisée, B1 et B2 sont les numéros de début et de fin que vous avez spécifiés) dans le Se réfère à zone de texte, puis cliquez sur OK pour revenir à l'ancien dialogue. Voir la capture d'écran:

liste de doc nombres premiers 2

3. Aller en cliquant Nouveau bouton pour créer un autre nom de plage, dans le Nouveau nom boîte de dialogue, entrez un nom dans le Nom zone de texte, puis entrez cette formule: =SMALL(IF(MMULT(--(IF(rng>TRANSPOSE(rng-SheetXNUMX!$B$XNUMX+XNUMX),MOD(rng,(rng>TRANSPOSE(rng-SheetXNUMX!$B$XNUMX+XNUMX))*TRANSPOSE(rng-SheetXNUMX!$B$XNUMX+XNUMX)))=XNUMX),rng-SheetXNUMX!$B$XNUMX+XNUMX)=XNUMX,rng),ROW(INDIRECT("XNUMX:"&SheetXNUMX!$B$XNUMX))) (RNG est le premier nom de plage que vous avez créé à l'étape 2) dans le Se réfère à zone de texte, voir capture d'écran:

liste de doc nombres premiers 3

4. Puis clique OK et fermez les boîtes de dialogue et sélectionnez une colonne dans laquelle vous souhaitez répertorier tous les nombres premiers, puis entrez cette formule: = IFERROR (prime, "")( est le nom de plage que vous avez créé à l'étape 3) dans la barre de formule, puis appuyez sur CTRL + MAJ + ENTRÉE clés ensemble, tous les nombres premiers entre les deux nombres donnés sont listés comme capture d'écran suivante montrée:

liste de doc nombres premiers 4


flèche bleue droite bulle Générer tous les nombres premiers entre deux nombres donnés avec la fonction définie par l'utilisateur

Si la première méthode est un peu difficile, ici, vous pouvez appliquer un Fonction définie par l'utilisateur pour le résoudre.

1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. Cliquez insérer > Moduleet collez le code suivant dans le Module Fenêtre.

Code VBA: Génère tous les nombres premiers entre deux nombres spécifiques:

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. Ensuite, enregistrez et fermez ce code, retournez à la feuille de calcul, veuillez entrer cette formule: = prime (10,100) (10 est le numéro de départ, et 100 est le numéro de fin auquel vous voulez obtenir les nombres premiers, vous pouvez les changer selon vos besoins), puis appuyez sur Entrer touche, et tous les nombres premiers sont affichés dans une cellule, voir capture d'écran:

liste de doc nombres premiers 5



Outils de productivité recommandés

Office Tab

étoile d'or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d'or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d'or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d'écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    John Kennedy Aquino · 1 years ago
    Sub generateprimenumbersbetween3()
    starting_number = 1 'input value here
    last_number = 10000 'input value here
    primenumbers = ""
    For a = starting_number To last_number
    c = a
    For b = 2 To c
    If a Mod b = 0 And c b 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
    Next a
    MsgBox primenumbers
    End Sub

    Function PRIMENUMBERSBETWEEN3(starting_number, last_number)
    primenumbers = ""
    For a = starting_number To last_number
    c = a
    For b = 2 To c
    If a Mod b = 0 And c b 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
    Next a
    PRIMENUMBERSBETWEEN3 = primenumbers
    End Function

    Sub ISPRIME3()
    number_to_be_checked = 15485863 'input value here
    c = number_to_be_checked
    For b = 2 To c
    If number_to_be_checked Mod b = 0 And c b Then
    MsgBox "Not Prime. Divisible by " & b
    Exit 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 If
    Next b
    End Sub
  • To post as a guest, your comment is unpublished.
    John Kennedy Aquino · 1 years ago
    Sub generateprimenumbersbetween()
    starting_number = 1 'input value here
    last_number = 2000 'input value here
    primenumbers = ""
    For a = starting_number To last_number
    For b = 2 To a
    If a - b * Int(a / b) = 0 And a b 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 = ""
    For a = starting_number To last_number
    For b = 2 To a
    If a - b * Int(a / b) = 0 And a b Then
    Exit For
    Else
    If a = b Then
    primenumbers = primenumbers & " " & a
    End If
    End If
    Next b
    Next a
    primenumbersbetween = primenumbers
    End Function

    'to check if a number is prime
    Sub ISPRIME()
    number_to_be_checked = 102 'input value here
    For b = 2 To number_to_be_checked
    If number_to_be_checked - b * Int(number_to_be_checked / b) = 0 And _
    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 Sub

    'to check if a number is prime
    Function ISPRIME2(number_to_be_checked)
    For b = 2 To number_to_be_checked
    If number_to_be_checked - b * Int(number_to_be_checked / b) = 0 And _
    number_to_be_checked b Then
    ISPRIME2 = "Not Prime. Divisible by " & b
    Exit Function
    Else
    If number_to_be_checked = b Then
    ISPRIME2 = "Prime"
    End If
    End If
    Next b
    End Function