Hvordan kontrolleres, om antallet er primtal i Excel?
Som vi alle vidste, er et primtal et naturligt tal, der kun indeholder to forskellige naturlige taldelere: Den ene og sig selv. Hvis du har en liste over tal i et regneark, hvordan kan du kontrollere, om tallene er primtal?
Kontroller, om et tal er primtal med matrixformlen
Kontroller, om et tal er primtal med brugerdefineret funktion
Kontroller, om et tal er primtal med matrixformlen
Følgende formel kan hjælpe dig med at identificere nummeret, uanset om det er et primtal eller ej, gør som dette:
1. Indtast følgende formel i en tom celle - C2 for eksempel ved siden af dine data:
=IF(A2=2,"Prime",IF(AND(MOD(A2,ROW(INDIRECT("2:"&ROUNDUP(SQRT(A2),0))))<>0),"Prime","Not Prime")) (A2 er cellen det nummer, du vil kontrollere), og tryk derefter på Ctrl + Skift + Enter tasterne sammen, og du får resultatet, hvis tallet er prime, viser det "Prime" i cellen, hvis ikke, vises "Not Prime", se skærmbillede:
2. Vælg derefter cellen C2, og træk udfyldningshåndtaget ned til de celler, som du vil anvende denne formel, og alle numrene identificeres, hvis det er primtal eller ej. Se skærmbillede:
Kontroller, om et tal er primtal med brugerdefineret funktion
Følgende Brugerdefineret funktion kan også hjælpe dig med at kontrollere tallene, hvis de er primære eller ej, skal du gøre som følger:
1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, og indsæt følgende kode i Modul vindue.
VBA-kode: Kontroller, om et tal er prime eller ikke:
Function CheckPrime(Numb As Single) As Boolean
'Updateby Extendoffice
Dim X As Long
If Numb < 2 Or (Numb <> 2 And Numb Mod 2 = 0) _
Or Numb <> Int(Numb) Then Exit Function
For X = 3 To Sqr(Numb) Step 2
If Numb Mod X = 0 Then Exit Function
Next
CheckPrime = True
End Function
3. Gem derefter og luk denne kode, gå tilbage til regnearket, og indtast denne formel: = checkprime (A2) ind i en tom celle ved siden af din nummerliste, og træk derefter udfyldningshåndtaget ned til de celler, som du vil indeholde denne formel. Hvis tallet er primtal, viser det SAND, hvis ikke, viser det FALSK, se skærmbillede:
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
