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

Kako v Excelu ustvariti vsa praštevila med dvema številkama?

Ste v Excelu že kdaj poskušali našteti vsa praštevila med dvema številkama? V tem članku bom govoril o nekaterih zanimivih metodah za reševanje te naloge.

Ustvari vsa praštevila med dvema danima številkama s formulami

Ustvari vsa praštevila med dvema danima številkama s funkcijo, ki jo določi uporabnik


puščica modri desni mehurček Ustvari vsa praštevila med dvema danima številkama s formulami

Združevanje Določite ime funkcijo in formulami, lahko med dvema določenima številkama navedete ali ustvarite vsa glavna števila. Naredite naslednje:

1. S klikom ustvarite ime prvega obsega Formule > Upravitelj imen, in v Upravitelj imen pogovorno okno, kliknite Novo gumb, glej posnetek zaslona:

doc seznam praštevil 1

2. v Novo ime v pogovornem oknu v Ime vnesite besedilno polje RNG kot ime obsega in nato vnesite to formulo: = VRSTA (POSREDNO (List1! $ B $ 1 & ":" & List1! $ B $ 2)) (Sheet1 je vaš trenutni delovni list, ki ste ga uporabili, B1 in B2 so začetne in končne številke, ki ste jih navedli v Se nanaša na polje, nato kliknite OK za vrnitev v prejšnje pogovorno okno. Oglejte si posnetek zaslona:

doc seznam praštevil 2

3. Pojdi na klik Novo , da ustvarite drugo ime obsega v Novo ime v pogovorno okno vnesite ime Glavni v Ime in vnesite to formulo: =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 je prvo ime obsega, ki ste ga ustvarili v koraku 2) v Se nanaša na besedilno polje, glej posnetek zaslona:

doc seznam praštevil 3

4. Nato kliknite OK in zaprite pogovorna okna in izberite en stolpec, v katerem želite navesti vsa osnovna števila, in vnesite to formulo: = IFERROR (prime, "")(Glavni je ime obsega, ki ste ga ustvarili v koraku 3) v vrstico s formulami in pritisnite CTRL+SHIFT+ENTER tipke skupaj, so vsa osnovna števila med tema dvema številkama navedena na spodnji sliki:

doc seznam praštevil 4


puščica modri desni mehurček Ustvari vsa praštevila med dvema danima številkama s funkcijo, ki jo določi uporabnik

Če je prva metoda nekoliko težka, lahko tukaj uporabite a Uporabniško določena funkcija rešiti.

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.

Koda VBA: Ustvari vsa praštevila med dvema določenima številkama:

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. Nato shranite in zaprite to kodo, se vrnite na delovni list, vnesite to formulo: = prime (10,100) (10 je začetna številka in 100 je končna številka, med katero želite dobiti praštevila, jih lahko spremenite po svoji potrebi) in pritisnite Vnesite in vse praštevila so prikazana v eni celici, glejte posnetek zaslona:

doc seznam praštevil 5


Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
zavihek kte 201905

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
dno pisarniške mize
Komentarji (3)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Subgenerationprimenumbersbetween() starting_number = 1 'vhodna vrednost tukaj last_number = 2000 'vhodna vrednost tukaj primenumbers = "" Za a = začetna_številka Do zadnje_številko Za b = 2 Do a Če a - b * Int(a / b) = 0 In ab Potem Exit For Else Če a = b Potem primenumbers = primenumbers & " " & a End If Konec, če Next b Next a MsgBox primenumbers End Sub Funkcija primenumbersbetween(začetna_številka, zadnja_številka) primenumbers = "" Za a = začetna_številka Do zadnje_številko Za b = 2 Do a Če a - b * Int(a / b) = 0 In ab Nato Izhod sicer Če a = b Potem primenumbers = primenumbers & " " & a End Če Konec Če Naprej b Naprej a primenumbersbetween = primenumbers Končna funkcija 'za preverjanje, če število je prvo Sub ISPRIME() number_to_be_checked = 102 'tu vnesite vrednost Za b = 2 Za številko_to_be_checked Če number_to_be_checked - b * Int(number_to_be_checked / b) = 0 In _ number_to_be_checked b "Ne Exit z "Prim.Box. Sub Drugače Če number_to_be_checked = b Potem MsgBox "Prime" Konec Če Konec Če Naslednji b Konec S ub 'za preverjanje, ali je število pra. Funkcija ISPRIME2(število_za_preverjanjem) Za b = 2 Za število_za_preverjanjem Če je število_za_preverjanjem - b * Int(število_za_preverjanjem / b) = 0 In _ number_to_be_checked b Potem ISPRIME2 ni. Deljivo z " & b Izhodna funkcija Drugače Če number_to_be_checked = b Potem ISPRIME2 = "Prime" Konec Če Konec Če Naslednji b Konec funkcije
Ta komentar je moderator na spletnem mestu minimiziral




End Sub

Ta komentar je moderator na spletnem mestu minimiziral
Subgenerationprimenumbersbetween3() starting_number = 1 'vhodna vrednost tukaj last_number = 10000 'vhodna vrednost tukaj primenumbers = "" Za a = začetno_številko Do zadnje_številko c = a Za b = 2 Do c Če je a Mod b = 0 In cb Nato izstopite drugače, če b = c Potem primenumbers = primenumbers & " " & a Exit For Else If Round(a / (b + 1)) + 1 > b Potem c = Round(a / (b + 1)) + 1 Konec, če Konec, če Konec Če Next b Next a MsgBox primenumbers Končna podfunkcija PRIMENUMBERSBETWEEN3(začetna_številka, zadnja_številka) primenumbers = "" Za a = začetna_številka Na zadnjo_številko c = a Za b = 2 Do c Če je a Mod b = 0 In cb Potem izstopite drugače, če b = c Potem primenumbers = primenumbers & " " & a Exit For Else If Round(a / (b + 1)) + 1 > b Potem c = Round(a / (b + 1)) + 1 End, če Konec, če Konec, če je naslednji b Naprej a PRIMENUMBERSBETWEEN3 = primenumbers Končna funkcija Sub ISPRIME3() number_to_be_checked = 15485863 'tukaj vnesite vrednost c = number_to_be_checked Za b = 2 Do c Če number_to_be_checked Mod b = 0 In cb Potem se MsgBoxi "Ne z"Exit Sub Else Če b = c Potem MsgBox "Prime" Exit Sub Else Če Round(število_za_preverjeno / (b + 1)) + 1 > b Potem c = Round(število_za_preverjanjem / (b + 1)) + 1 Konec, če Konec, če Konec Če Naslednji b Konec pod
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL