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

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 termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza 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!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (3)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Algenerálása prímszámok között() kezdő_szám = 1 'bemeneti érték itt utolsó_szám = 2000 'beviteli érték itt prímszámok = "" For a = kezdő_szám Utolsó_számhoz For b = 2 To a Ha a - b * Int(a / b) = 0 És ab Akkor Kilépés Else esetén Ha a = b Akkor prímszámok = prímszámok & " " & a vége Ha vége Ha Következő b Következő a MsgBox prímszámok Vége Alfüggvény prímszámok(kezdő_szám, utolsó_szám) prímszámok között = "" For a = kezdő_szám Utolsó_számhoz A b = 2-hez a Ha a - b * Int(a / b) = 0 És ab, majd kilépés másért Ha a = b Akkor prímszámok = prímszámok & " " & a vége, ha vége, ha következő b Következő egy prímszámok között = prímszámok Vége Függvény annak ellenőrzésére, hogy egy szám prím. Sub ISPRIME() ellenőrzendő_szám = 102 'bemeneti érték ide For b = 2 Ellenőrizendő szám Ha ellenőrzendő szám - b * Int(ellenőrzendő_szám / b) = 0 És _ ellenőrizendő_szám b Akkor __el_ellenőrzendő Sub Else If number_to_be_checked = b Akkor MsgBox "Prime" End If End If Next b End Sub ' annak ellenőrzéséhez, hogy egy szám prím-e Függvény ISPRIME2(ellenőrzendő_szám) For b = 2 Ellenőrizendő szám Ha ellenőrzendő szám - b * Int(ellenőrzendő_szám / b) = 0 És _ ellenőrizendő_szám b Akkor nincs ISPRIME2 = ". Osztható a következővel: " & b Exit függvény Else If_be_ellenőrizendő szám = b Akkor ISPRIME2 = "Prime" End If End If Next b Vége a függvénynek
A weboldal moderátora ezt a megjegyzést minimalizálta




End Sub

A weboldal moderátora ezt a megjegyzést minimalizálta
Algenerálása prímszámok között3() kezdő_szám = 1 'bemeneti érték itt utolsó_szám = 10000 'beviteli érték itt prímszámok = "" For a = kezdő_szám Utolsó_számig c = a For b = 2 To c Ha a Mod b = 0 És cb, akkor kilépés különben Ha b = c Akkor prímszámok = prímszámok & " " & a Kilépés For Else If Kerek(a / (b + 1)) + 1 > b Akkor c = Kerek(a / (b + 1)) + 1 End If End If End Ha Következő b Következő a MsgBox prímszámok Vége Alfüggvény PRÍMSZÁMOK KÖZÖTT3(kezdő_szám, utolsó_szám) prímszámok = "" For a = kezdő_szám Utolsó_számig c = a For b = 2 To c Ha a Mod b = 0 És cb Akkor Kilépés Másért Ha b = c Akkor prímszámok = prímszámok & " " & a Kilépés For Else If Kerek(a / (b + 1)) + 1 > b Akkor c = Kerek(a / (b + 1)) + 1 End If End If End If Következő b Következő a PRIMENUMBERSBETWEEN3 = prímszámok Vége Funkció Sub ISPRIME3() ellenőrzendő_szám = 15485863 'bemeneti érték itt c = ellenőrzendő_szám Ha b = 2 - c Ha ellenőrzendő_szám Mod b = 0 És cb Osztható, akkor MsgBox.Exit Sub Else If b = c Then MsgBox "Prime" Exit Sub Else If Round(ellenőrzendő_szám / (b + 1)) + 1 > b Akkor c = Round(ellenőrzendő_szám / (b + 1)) + 1 End If End If End Ha Következő b End Sub
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi