Ako používať Excel nájsť prvočinitele

prvočíslo má iba sám a číslo 1 ako deliteľa . Napríklad , 13 je prvočíslo , pretože má len 1 a 13 , deliteľov . Každé číslo sa dá zapísať ako súčin prvočísel . Existuje mnoho nástrojov , aby zistili , prvočísla , vrátane rozhodovacích stromov . Môžete ľahko pridať makro programe Excel 2007 nahradiť časť rozhodovacieho stromu procesu . Makro je nástroj , ktorý vám umožní vlastné aplikácie Excel s vašimi vlastnými tlačidlami : v tomto prípade sa tlačidlo , ktoré počíta faktory . Potom, čo ste pridali makro , stačí pripojiť do počtu a Excel vypočítať faktory . Veci , ktoré budete potrebovať
Excel 2007
Zobraziť ďalšie inštrukcie Cestuj 1

Zatvorte všetky existujúce zošity a začať nový hárok programu Excel . Stlačením tlačidla " ALT " a " F11 " spustite Editor jazyka Visual Basic .
2

Otvorenie zošita pomocou dvojkliku na zošita v ponuke VBAProject v ľavom hornom rohu obrazovky .

3

Cut a vložte nasledujúci kód do prázdneho zošita :

Sub GetFactors ( ) Dim počítať ako IntegerDim NumToFactor ako jednotlivé " Integer limitov < 32768Dim faktor SingleDim y ako SingleDim IntCheck ako samostatné

Count = 0DoNumToFactor = _Application.InputBox vstupu " Force celých čísel väčších ako 0.IntCheck = NumToFactor - Int ( NumToFactor ( Prompt : = 1 : = " Typ integer " , Type ) ) Ak NumToFactor = 0 ThenExit Sub'Cancel je 0 - umožniť Cancel.ElseIf NumToFactor < 1 ThenMsgBox " Zadajte celé číslo väčšie ako nula . " ElseIf IntCheck > 0 ThenMsgBox " Zadajte celé číslo - bez desatinných miest . " Koniec If'Loop až do vstupu celé číslo väčšie ako 0.Loop Kým NumToFactor < = 0 alebo IntCheck > 0For y = 1 NumToFactor'Put správy v stavovom riadku uvedie číslo je checked.Application.StatusBar = " kontrola " a yFactor = NumToFactor Mod y'Determine v prípade , že výsledok delenie s Mod je bez _remainder a tým aj " faktor " . Ak faktor = 0 Then'Enter faktor do stĺpca začína s aktívnym cell.ActiveCell . offset ( Count , 0 ) . Value = y'Increase suma na úhradu pre ďalšie value.Count = count + 1End IfNext'Restore Status Bar.Application.StatusBar = " Ready " End Sub

Sub GetPrime ( ) Dim počítať ako IntegerDim BegNum ako jednotlivé " Integer limitov < 32768Dim EndNum ako SingleDim Prime ako SingleDim Označiť ako IntegerDim IntCheck ako SingleCount = 0

DoBegNum = _Application.InputBox ( Prompt : = " Typ začínajúcich číslom . " Typ : vstup = 1 ) " Sila čísel väčších než 0.IntCheck = BegNum - Int ( BegNum ) Ak BegNum = 0 ThenExit Sub'Cancel je 0 - umožniť Cancel.ElseIf BegNum < 1 ThenMsgBox " Prosím , zadajte . celé číslo väčšie ako nula " ElseIf IntCheck > 0 ThenMsgBox " Zadajte celé číslo - . bez desatinných miest " End If'Loop až do vstupu celé číslo väčšie ako 0.Loop Kým BegNum < = 0 alebo IntCheck > 0

DoEndNum = _Application.InputBox ( Prompt : = " . Typ končí číslo " , Type : = 1 ) ' Zápis čísel väčšia sila , než 0.IntCheck = EndNum - Int ( EndNum ) Ak EndNum = 0 ThenExit Sub'Cancel je 0 - umožniť Cancel.ElseIf EndNum < BegNum ThenMsgBox " Zadajte celé číslo väčšie ako " a BegNumElseIf EndNum < 1 ThenMsgBox " Zadajte celé číslo väčšie ako nula . " ElseIf IntCheck > 0 ThenMsgBox " Zadajte celé číslo - . bez desatinných miest " End If'Loop až do vstupu celé číslo väčšie ako 0.Loop Kým EndNum < BegNum alebo EndNum < = 0 alebo IntCheck > 0

Pre y = BegNum Pre EndNumflag = 0z = 1do Do vlajka = 1 alebo z = y + 1'Put správ na stavovom riadku uvedie číslo a _divisor v každej loop.Application.StatusBar = y & " /" & ; sprí = y Mod zJestliže Prime = 0 a z < > y a z < > 1 Thenflag = 1End IFZ = z + 1Loop

flag = 0 Then'Enter faktor do štartu stĺpca s aktívnym cell.ActiveCell.Offset ( Count , 0 ) . Value = y'Increase suma na úhradu pre ďalšie value.Count = count + 1End IfNext y'Restore Status Bar.Application.StatusBar = " Ready " End Sub
Stránka 4

Kliknutím na tlačidlo " Súbor " a vyberte " Zatvoriť a vrátiť sa do programu Microsoft Excel . "
5

Kliknite na tlačidlo Microsoft Office v programe Excel . Kliknite na " Možnosti programu Excel " , " Customize " a vyberte " makrá " v " Vybrať " príkazy .
6

V zozname kliknite na makro " ThisWorkbook.GetFactors , " a potom kliknite na tlačidlo " Pridať " . Kliknite na tlačidlo " OK " . Toto pridá makro rýchle prístup paneli nástrojov v ľavej hornej časti aplikácie Excel sa .
7

Vyberte bunku , kde sa by som dáta na spustenie .
8

Kliknite na tlačidlo makra na paneli nástrojov rýchly prístup k Zadajte číslo , ktoré chcete nájsť primárnu faktory . Excel vráti zoznam všetkých faktorov ( vrátane primárnej a non - prime ) vo vybranom stĺpci . Napríklad , že faktory z 30. sú 1 , 2 , 3 , 5 , 6 , 10 , 15 a 30.
9

Vyberte prvočísel z daného zoznamu . Prvočísla v zozname sú 2,3 a 5. To sú hlavné faktory pre váš daného čísla .

• Predchádzajúca strana: Ako vytvoriť Koše v programe Excel 2007 
• Ďalšia strana: Ako vytvoriť High Resolution TIF súbory z Excelu