Ugrás a tartalomra

Hogyan generálható az összes prímszám két megadott szám között az Excelben?

Az Excelben megpróbálta már az összes prímszámot két megadott szám között felsorolni? Ebben a cikkben néhány érdekes módszerről fogok beszélni ennek a feladatnak a kezelésére.

Generálja az összes prímszámot két megadott szám között képletekkel

Hozza létre az összes prímszámot két megadott szám között a Felhasználó által definiált funkcióval


nyíl kék jobb buborék Generálja az összes prímszámot két megadott szám között képletekkel

Kombinálva a Definiálja a nevet függvény és képletek segítségével felsorolhatja vagy létrehozhatja az összes prímszámot a két konkrét szám közé. Kérjük, tegye a következőket:

1. Kérjük, kattintson a gombra az első tartománynév létrehozásához képletek > Névkezelő, és a Névkezelő párbeszédpanelen kattintson a gombra Új gomb, lásd a képernyőképet:

doc felsorolja a prímszámokat 1

2. Az Új név párbeszédpanelen, a Név szövegmezőbe, kérjük, írja be rng tartománynévként, majd írja be ezt a képletet: = ROW (INDIRECT (1. lap! $ B $ 1 & ":" & 1. lap! $ B $ 2)) (Sheet1 a jelenlegi munkalapod, B1 és a B2 az Ön által megadott kezdő és befejező szám) Utal rá szövegmezőbe, majd kattintson a gombra OK gombra az előző párbeszédpanelre való visszatéréshez. Lásd a képernyőképet:

doc felsorolja a prímszámokat 2

3. Kattintson a gombra Új gombra egy másik tartománynév létrehozásához a Új név párbeszédpanelen írjon be egy nevet első be a Név szövegmezőbe, majd írja be ezt a képletet: =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 az első tartománynév, amelyet a 2. lépésben létrehozott a Utal rá szövegmező, lásd a képernyőképet:

doc felsorolja a prímszámokat 3

4. Ezután kattintson OK zárja be a párbeszédpaneleket, és jelöljön ki egy oszlopot, amelyben fel szeretné sorolni az összes prímszámot, és írja be ezt a képletet: = IFERROR (elsődleges, "")(első a 3) lépésben létrehozott tartománynév a képletsávba, majd nyomja meg a gombot CTRL+SHIFT+ENTER billentyűk együtt, az adott két szám közötti összes prímszám a következő képernyőképen jelenik meg:

doc felsorolja a prímszámokat 4


nyíl kék jobb buborék Hozza létre az összes prímszámot két megadott szám között a Felhasználó által definiált funkcióval

Ha az első módszer kissé nehéz, itt alkalmazhatja a Felhasználó által definiált funkció megoldani.

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.

VBA kód: Az összes prímszám generálása két meghatározott szám között:

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. Ezután mentse el és zárja be ezt a kódot, menjen vissza a munkalapra, írja be ezt a képletet: = elsődleges (10,100 XNUMX) (10 a rajtszám, és 100 az a végszám, amely között meg akarja kapni a prímszámokat, szükség szerint módosíthatja őket, majd nyomja meg a gombot belép gombot, és az összes prímszám egy cellában jelenik meg, lásd a képernyőképet:

doc felsorolja a prímszámokat 5

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
Comments (3)
No ratings yet. Be the first to rate!
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
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
This comment was minimized by the moderator on the site
<p>



End Sub

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