Direkt zum Inhalt

Wie generiere ich alle Primzahlen zwischen zwei gegebenen Zahlen in Excel?

Haben Sie jemals in Excel versucht, alle Primzahlen zwischen zwei angegebenen Zahlen aufzulisten? In diesem Artikel werde ich über einige interessante Methoden sprechen, um mit dieser Aufgabe umzugehen.

Generieren Sie alle Primzahlen zwischen zwei gegebenen Zahlen mit Formeln

Generieren Sie alle Primzahlen zwischen zwei angegebenen Zahlen mit der benutzerdefinierten Funktion

Pfeil blau rechte Blase Generieren Sie alle Primzahlen zwischen zwei gegebenen Zahlen mit Formeln

Kombinieren der Name definieren Funktion und Formeln können Sie alle Primzahlen zwischen den beiden spezifischen Zahlen auflisten oder generieren. Bitte gehen Sie wie folgt vor:

1. Bitte erstellen Sie den ersten Bereichsnamen durch Klicken Formeln > Name Manager, und in der Name Manager Dialogfeld, klicken Sie auf Neu Schaltfläche, siehe Screenshot:

doc Liste Primzahlen 1

2. In dem Neuer Name Dialogfeld, in der Name Textfeld, bitte eingeben RNG Geben Sie als Bereichsname die folgende Formel ein: = REIHE (INDIREKT (Blatt1! $ B $ 1 & ":" & Blatt1! $ B $ 2)) (Sheet1 ist Ihr aktuelles Arbeitsblatt, das Sie verwendet haben. B1 und B2 sind die von Ihnen angegebenen Start- und Endnummern) in die Bezieht sich auf Textfeld, dann klicken Sie auf OK Schaltfläche, um zum vorherigen Dialog zurückzukehren. Siehe Screenshot:

doc Liste Primzahlen 2

3. Klicken Sie weiter Neu Klicken Sie auf die Schaltfläche, um einen anderen Bereichsnamen zu erstellen Neuer Name Geben Sie im Dialogfeld einen Namen ein zuerst in die Name Textfeld, und geben Sie dann diese Formel ein: =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 ist der erste Bereichsname, den Sie in Schritt 2) in der erstellt haben Bezieht sich auf Textfeld, siehe Screenshot:

doc Liste Primzahlen 3

4. Dann klick OK Schließen Sie die Dialoge, wählen Sie eine Spalte aus, in der alle Primzahlen aufgelistet werden sollen, und geben Sie die folgende Formel ein: = IFERROR (prime, "")(zuerst ist der Bereichsname, den Sie in Schritt 3) in der Formelleiste erstellt haben, und drücken Sie dann STRG + UMSCHALT + EINGABETASTE Wenn Sie die Tasten zusammen drücken, werden alle Primzahlen zwischen den beiden angegebenen Zahlen wie folgt aufgelistet:

doc Liste Primzahlen 4

Pfeil blau rechte Blase Generieren Sie alle Primzahlen zwischen zwei angegebenen Zahlen mit der benutzerdefinierten Funktion

Wenn die erste Methode etwas schwierig ist, können Sie hier a anwenden Benutzerdefinierte Funktion um es zu lösen.

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.

VBA-Code: Generieren Sie alle Primzahlen zwischen zwei bestimmten Zahlen:

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. Speichern und schließen Sie diesen Code, kehren Sie zum Arbeitsblatt zurück und geben Sie die folgende Formel ein: = prime (10,100) (10 ist die Startnummer und 100 ist die Endzahl, zwischen der Sie die Primzahlen erhalten möchten (Sie können sie nach Bedarf ändern) und dann drücken Enter Taste, und alle Primzahlen werden in einer Zelle angezeigt, siehe Screenshot:

doc Liste Primzahlen 5

Beste Office-Produktivitätstools

Beliebte Funktionen: Suchen, markieren oder identifizieren Sie Duplikate   |  Leere Zeilen löschen   |  Kombinieren Sie Spalten oder Zellen, ohne Daten zu verlieren   |   Runde ohne Formel ...
Super-Lookup: VLookup mit mehreren Kriterien  |   VLookup mit mehreren Werten  |   VLookup über mehrere Blätter hinweg   |   Unscharfe Suche ....
Erweiterte Dropdown-Liste: Erstellen Sie schnell eine Dropdown-Liste   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Fügen Sie eine bestimmte Anzahl von Spalten hinzu  |  Spalten verschieben  |  Schalten Sie den Sichtbarkeitsstatus ausgeblendeter Spalten um  |  Vergleichen Sie Bereiche und Spalten ...
Ausgewählte Funktionen: Rasterfokus   |  Designansicht   |   Große Formelleiste   |  Arbeitsmappen- und Blattmanager   |  Ressourcen (Autotext)   |  Datumsauswahl   |  Arbeitsblätter kombinieren   |  Zellen verschlüsseln/entschlüsseln   |  Senden Sie E-Mails nach Liste   |  Superfilter   |   Spezialfilter (Filter fett/kursiv/durchgestrichen...) ...
Top 15 Toolsets:  12 Text Tools (Text hinzufügen, Zeichen entfernen, ...)   |   50+ Chart Typen (Gantt-Diagramm, ...)   |   40+ Praktisch Formeln (Berechnen Sie das Alter basierend auf dem Geburtstag, ...)   |   19 Einfügen Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Umwandlung (Conversion) Tools (Zahlen zu Wörtern, Currency Conversion, ...)   |   7 Zusammenführen & Teilen Tools (Erweiterte Zeilen kombinieren, Zellen teilen, ...)   |   ... und mehr

Verbessern Sie Ihre Excel-Kenntnisse mit Kutools for Excelund erleben Sie Effizienz wie nie zuvor. Kutools for Excel Bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeitersparnis.  Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...

kte tab 201905

Office Tab Bringt eine Tab-Oberfläche in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
Comments (3)
No ratings yet. Be the first to rate!
John Kennedy Aquino
John Kennedy Aquino
This comment was minimized by the moderator on the site
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
Reply
0
0
John Kennedy Aquino
John Kennedy Aquino
This comment was minimized by the moderator on the site
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
Reply
0
0
Lakshmi
Lakshmi     John Kennedy Aquino
This comment was minimized by the moderator on the site
<p>



End Sub

</p>
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations