Hoe genereert u alle priemgetallen tussen twee opgegeven getallen in Excel?
Hebt u in Excel ooit geprobeerd alle priemgetallen tussen twee opgegeven getallen weer te geven? In dit artikel bespreek ik enkele slimme methoden om deze taak vlot uit te voeren.
Genereer alle priemgetallen tussen twee opgegeven getallen met formules
Genereer alle priemgetallen tussen twee opgegeven getallen met formules
Combineer de Namen definiëren-functie met formules om alle priemgetallen tussen twee specifieke getallen weer te geven of te genereren. Volg hiervoor de onderstaande stappen:
1. Maak de eerste celnaam aan door te klikken op Formules > Naambeheerder, en klik in het dialoogvenster Naambeheerder op de knop Nieuw. Zie de schermafbeelding:
2. Voer in het dialoogvenster Nieuwe Naam in het tekstvak Naam rng in als celnaam en voer daarna de volgende formule in het tekstvak Verwijst naar: =ROW(INDIRECT(Sheet1!$B$1&":"&Sheet1!$B$2)) (Sheet1 is uw huidige werkblad; B1 en B2 zijn het begin- en eindnummer dat u hebt opgegeven). Klik vervolgens op de knop OK om terug te keren naar het vorige dialoogvenster. Zie de schermafbeelding:
3. Klik nogmaals op de knop Nieuw om een andere celnaam aan te maken. Voer in het dialoogvenster Nieuwe Naam de naam prime in het tekstvak Naam in, en typ vervolgens deze formule: =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 is de eerste celnaam die u in stap 2 hebt aangemaakt) in het tekstvak Verwijst naar. Zie de schermafbeelding:
4. Klik vervolgens op OK en sluit de dialoogvensters. Selecteer daarna één kolom waarin u alle priemgetallen wilt weergeven, en voer in de formulebalk deze formule in: =IFERROR(prime,„")) (prime is de celnaam die u in stap 3 hebt aangemaakt). Druk daarna tegelijkertijd op CTRL + SHIFT + ENTER. Alle priemgetallen tussen de opgegeven getallen worden nu weergegeven, zoals op de volgende schermafbeelding:
Genereer alle priemgetallen tussen twee opgegeven getallen met een door de gebruiker gedefinieerde functie
Als de eerste methode wat lastig is, kunt u hier een door de gebruiker gedefinieerde functie gebruiken om dit 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 Module-venster.
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 deze code op en keer terug naar het werkblad. Voer nu de volgende formule in:=prime(10,100) (10 is het startnummer en 100 het eindnummer waartussen u priemgetallen wilt genereren; u kunt deze waarden naar wens aanpassen) en druk daarna op Enter. Alle priemgetallen verschijnen dan in één cel. Zie de schermafbeelding:
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins