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

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 Weiter Taste, und alle Primzahlen werden in einer Zelle angezeigt, siehe Screenshot:

doc Liste Primzahlen 5


Die besten Tools für die Office-Produktivität

Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.
kte tab 201905

Office Tab Bringt die Oberfläche mit Registerkarten 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!
officetab unten
Kommentare (3)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Sub generateprimenumbersbetween() Startnummer = 1 'Wert hier eingeben Last_Nummer = 2000 'Wert hier eingeben Primenumbers = "" For a = Startnummer To Last_Number For b = 2 To 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 = "" For a = starting_number To last_number For b = 2 To 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 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 S ub 'um zu prüfen, ob eine Zahl eine Primzahl ist 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. Teilbar durch " & b Funktion beenden Else If number_to_be_checked = b Then ISPRIME2 = "Prime" End If End If Next b Ende Funktion
Dieser Kommentar wurde vom Moderator auf der Website minimiert




End Sub

Dieser Kommentar wurde vom Moderator auf der Website minimiert
Sub generateprimenumbersbetween3() Startnummer = 1 'Wert hier eingeben Last_number = 10000 'Wert hier eingeben Primenumbers = "" For a = Startnummer To last_number c = a For b = 2 To c If a Mod b = 0 And cb Then Exit For Else If b = c Then Primzahlen = Primzahlen & " " & a Exit For Else If Round(a / (b + 1)) + 1 > b Then c = Round(a / (b + 1)) + 1 Ende Wenn Ende Wenn Ende 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 cb Then Exit For Else If b = c Then Primzahlen = Primzahlen & " " & 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 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 If Next b End Sub
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL