Jak zkontrolovat, zda je číslo prvočíslem v aplikaci Excel?
Jak všichni víme, prvočíslo je přirozené číslo, které obsahuje pouze dva odlišné dělitele přirozeného čísla: jeden a sám. Pokud máte v listu seznam čísel, jak můžete zkontrolovat, zda jsou čísla prvočísly?
Pomocí maticového vzorce zkontrolujte, zda je číslo prvočíslem
Pomocí funkce definované uživatelem zkontrolujte, zda je číslo prvočíslem
Pomocí maticového vzorce zkontrolujte, zda je číslo prvočíslem
Následující vzorec vám pomůže identifikovat číslo, ať už jde o prvočíslo nebo ne, udělejte to takto:
1. Do prázdné buňky zadejte následující vzorec - například C2 vedle svých dat:
=IF(A2=2,"Prime",IF(AND(MOD(A2,ROW(INDIRECT("2:"&ROUNDUP(SQRT(A2),0))))<>0),"Prime","Not Prime")) (A2 je buňka obsahující číslo, které chcete zkontrolovat), a poté stiskněte Ctrl + Shift + Enter klávesy dohromady a získáte výsledek, pokud je číslo prvočíslo, zobrazí se v buňce „Prime“, pokud ne, zobrazí se „Not Prime“, viz screenshot:
2. Poté vyberte buňku C2 a přetáhněte úchyt výplně dolů k buňkám, na které chcete použít tento vzorec, a všechna čísla budou identifikována, ať už jde o prvočíslo nebo ne. Viz screenshot:
Pomocí funkce definované uživatelem zkontrolujte, zda je číslo prvočíslem
Následující Uživatelem definovaná funkce také vám může pomoci zkontrolovat čísla, zda jsou primární nebo ne, prosím, postupujte takto:
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 Okno modulu.
Kód VBA: Zkontrolujte, zda je číslo prvočíslo nebo ne:
Function CheckPrime(Numb As Single) As Boolean
'Updateby Extendoffice
Dim X As Long
If Numb < 2 Or (Numb <> 2 And Numb Mod 2 = 0) _
Or Numb <> Int(Numb) Then Exit Function
For X = 3 To Sqr(Numb) Step 2
If Numb Mod X = 0 Then Exit Function
Next
CheckPrime = True
End Function
3. Poté tento kód uložte a zavřete, vraťte se do listu a zadejte tento vzorec: = checkprime (A2) do prázdné buňky vedle seznamu čísel a potom přetáhněte popisovač výplně dolů do buněk, které chcete tento vzorec obsahovat, pokud je číslo prvočíslem, zobrazí se PRAVDA, pokud ne, zobrazí FALSE, viz screenshot:
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!