Hoe genereer je alle priemgetallen tussen twee gegeven getallen in Excel?
In Excel, heb je ooit geprobeerd om alle priemgetallen tussen twee gegeven getallen te lijsten? In dit artikel zal ik het hebben over enkele interessante methoden om deze taak aan te pakken.
Genereer alle priemgetallen tussen twee gegeven getallen met formules
Genereer alle priemgetallen tussen twee gegeven getallen met formules
Door de functie Namen Definiëren en formules te combineren, kun je alle priemgetallen tussen twee specifieke getallen weergeven of genereren. Doe het volgende:
1. Maak de eerste bereiknaam aan door op Formules > Namenbeheer te klikken, en in het dialoogvenster Namenbeheer, klik op de knop Nieuw, zie onderstaande schermafbeelding:
2. Voer in het dialoogvenster Nieuwe naam, in het tekstvak Naam, voer rng in als de bereiknaam, en voer vervolgens deze formule in: =RIJ(INDIRECT(Sheet1!$B$1&":"&Sheet1!$B$2)) (Sheet1 is het huidige werkblad dat je gebruikt, B1 en B2 zijn de start- en eindgetallen die je hebt gespecificeerd) in het tekstvak Verwijst naar, klik dan op de knop OK om terug te keren naar het vorige dialoogvenster. Zie onderstaande schermafbeelding:
3. Klik verder op de knop Nieuw om een andere bereiknaam aan te maken, voer in het dialoogvenster Nieuwe naam een naam prime in het tekstvak Naam, en voer vervolgens deze formule in: =KLEINSTE(ALS(MMULT(--(ALS(rng>GTRANSPOSE(rng-Sheet1!$B$1+2),REST(rng,(rng>GTRANSPOSE(rng-Sheet1!$B$1+2))*GTRANSPOSE(rng-Sheet1!$B$1+2)))=0),rng-Sheet1!$B$1+2)=0,rng),RIJ(INDIRECT("1:"&Sheet1!$B$2))) (rng is de eerste bereiknaam die je hebt aangemaakt in stap 2) in het tekstvak Verwijst naar, zie onderstaande schermafbeelding:
4. Klik dan op OK en sluit de dialoogvensters, selecteer één kolom waarin je alle priemgetallen wilt weergeven, en voer deze formule in: =ALS.FOUT(prime," ") (prime is de bereiknaam die je hebt aangemaakt in stap 3) in de formulebalk, en druk vervolgens tegelijkertijd op CTRL + SHIFT + ENTER toetsen, alle priemgetallen tussen de gegeven twee getallen worden weergegeven zoals in de onderstaande schermafbeelding wordt getoond:
Genereer alle priemgetallen tussen twee gegeven getallen met een door de gebruiker gedefinieerde functie
Als de eerste methode enigszins moeilijk is, kun je hier een door de gebruiker gedefinieerde functie toepassen om het probleem op te lossen.
1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module, en plak de volgende code in het modulevenster.
VBA-code: Genereer alle priemgetallen tussen twee specifieke getallen:
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. Sla vervolgens deze code op en sluit deze, ga terug naar het werkblad, voer deze formule in: =priem(10,100) (10 is het startnummer, en 100 is het eindnummer waarvan je de priemgetallen ertussen wilt krijgen, je kunt ze naar behoefte wijzigen), en druk vervolgens op de Enter-toets, en alle priemgetallen worden weergegeven in één cel, zie onderstaande schermafbeelding:
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen