Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako ustvariti vse prime številke med dvema navedenim številkam v Excelu?

Ali ste v Excelu kdaj poskusili našteti vse prime številke med dvema številkama? V tem članku bom govoril o nekaterih zanimivih metodah za reševanje te naloge.

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

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


puščica modra desno mehurček Ustvari vsa prosta števila med dvema danima številkama s formulami


Združevanje Določite ime funkcijo in formule, lahko navedete ali ustvarite vse prime številke med dvema posebnima številkama. Prosimo, naredite naslednje:

1. Prosimo, ustvarite ime prvega obsega s klikom Formule > Ime Manager, in v Ime Manager pogovorno okno, kliknite New gumb, si oglejte posnetek zaslona:

doc seznam prime števila 1

2. v Novo ime pogovorno okno, v Imenu polje z besedilom, vnesite RNG kot ime obsega, in nato vnesite to formulo: = ROW (INDIRECT (Sheet1! $ B $ 1 & ":" & Sheet1! $ B $ 2)) (Sheet1 je vaš trenutni delovni list, ki ste ga uporabili, B1 in B2 so številke začetka in konca, ki ste jih navedli) Se nanaša na polje z besedilom, nato kliknite OK da se vrnete v prejšnje pogovorno okno. Prikaz slike:

doc seznam prime števila 2

3. Pojdite s klikom New gumb, če želite ustvariti novo ime območja, v Novo ime pogovorno okno, vnesite ime Glavni v Imenu v polje z besedilom in nato 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 ime prvega obsega, ki ste ga ustvarili v koraku2) v Se nanaša na polje z besedilom, si oglejte sliko zaslona:

doc seznam prime števila 3

4. Nato kliknite OK in zaprite pogovorna okna in izberite enega stolpca, v katerega želite navesti vse prime številke, in vnesite to formulo: = IFERROR (prime, "")(Glavni je ime območja, ki ste ga ustvarili v koraku 3) v vrstico s formulo in pritisnite CTRL + SHIFT + ENTER skupaj, vse prime številke med dvema številkama, so navedene kot naslednji sliki:

doc seznam prime števila 4


puščica modra desno mehurček Ustvari vsa prosta števila med dvema danima številkama s funkcijo, ki jo določa uporabnik

Če je prva metoda nekoliko težavna, lahko tukaj uporabite a Uporabniško določeno funkcijo rešiti.

1. Drži dol ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduli, in prilepite naslednjo kodo v Moduli Okno.

VBA koda: ustvarite vse prime številke med dvema posebnima š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. Potem shranite in zaprite to kodo in se vrnite na delovni list, prosimo, vnesite to formulo: = prime (10,100) (10 je številka začetka in 100 je številka za konec, na katero želite dobiti prvotne številke, jih lahko spremenite v svoje potrebe) in nato pritisnite Vnesite ključ in vse prime številke so prikazane v eni celici, glejte sliko zaslona:

doc seznam prime števila 5


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    John Kennedy Aquino · 1 years ago
    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
  • To post as a guest, your comment is unpublished.
    John Kennedy Aquino · 1 years ago
    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