Jak generovat všechna prvočísla mezi dvěma danými čísly v aplikaci Excel?

Zkoušeli jste v aplikaci Excel někdy uvést všechna prvočísla mezi dvěma danými čísly? V tomto článku budu hovořit o několika zajímavých metodách řešení tohoto úkolu.

Generujte všechna prvočísla mezi dvěma danými čísly pomocí vzorců

Generujte všechna prvočísla mezi dvěma danými čísly pomocí funkce definované uživatelem

Generujte všechna prvočísla mezi dvěma danými čísly pomocí vzorců

Kombinace Definujte jméno Funkce a vzorce můžete vypsat nebo vygenerovat všechna prvočísla mezi dvěma konkrétními čísly. Postupujte prosím následovně:

1. Kliknutím na vytvoříte název prvního rozsahu Vzorce > Správce jmen, a v Správce jmen , klepněte na tlačítko OK Nový tlačítko, viz screenshot:

2. V Nové jméno v dialogovém okně v Příjmení textové pole, zadejte RNG jako název rozsahu a poté zadejte tento vzorec: = ŘÁDEK (NEPŘÍMÝ (List1! $ B $ 1 & ":" & List1! $ B $ 2)) (Sheet1 je váš aktuální list, který jste použili, B1 a B2 jsou počáteční a koncová čísla, která jste zadali) do Odkazuje na textové pole a klikněte na OK tlačítko pro návrat do předchozího dialogu. Viz screenshot:

3. Pokračujte kliknutím Nový tlačítko pro vytvoření jiného názvu rozsahu v Nové jméno V dialogovém okně zadejte název hlavní do Příjmení textové pole a poté zadejte tento vzorec: =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 první název rozsahu, který jste vytvořili v kroku 2) do souboru Odkazuje na textové pole, viz screenshot:

4. Pak klikněte na tlačítko OK a zavřete dialogy a vyberte jeden sloupec, ve kterém chcete vypsat všechna prvočísla, a zadejte tento vzorec: = IFERROR (prime, "")(hlavní je název rozsahu, který jste vytvořili v kroku 3) do řádku vzorců, a poté stiskněte CTRL+SHIFT+ENTER společně, všechna prvočísla mezi danými dvěma čísly jsou uvedena jako následující snímek obrazovky:

Generujte všechna prvočísla mezi dvěma danými čísly pomocí funkce definované uživatelem

Pokud je první metoda poněkud obtížná, zde můžete použít a Uživatelem definovaná funkce to vyřešit.

1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula vložte následující kód do Modul Okno.

Kód VBA: Generování všech prvočísel mezi dvěma konkrétními čísly:

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. Poté tento kód uložte a zavřete, vraťte se do listu, zadejte tento vzorec: = připravit (10,100 XNUMX) (10 je počáteční číslo a 100 je konečné číslo, mezi které chcete získat prvočísla, můžete je podle potřeby změnit) a poté stiskněte vstoupit klíč a všechna prvočísla se zobrazují do jedné buňky, viz screenshot: