Sisu

• Juhised
• Kuidas
• Mida sa vajad

Põhinumbril on ainult number number ja number. Näiteks 13 on esmane number, kuna sellel on ainult jagajad 1 ja 13. Iga numbrit saab kirjutada algarvude tootena. Esmakordse numbri leidmiseks on palju vahendeid, sealhulgas otsuste tegemise skeeme. Makroti saate Excel 2007-s hõlpsasti lisada, et asendada osa otsustusprotsessist. Makro on tööriist, mis võimaldab kohandada Exceli oma nuppudega: sellisel juhul nupp, mis arvutab tegurid. Kui olete makro lisanud, sisestage lihtsalt number ja Excel arvutab tegurid.

Juhised

Kasutage Exceli ja leidke peamisi tegureid ja numbreid (Numbers image poolt Paul Hampton Fotolia.com)

1. Sulgege kõik töövihikud ja alustage uut Exceli töölehte. Põhilise visuaalse redaktori käivitamiseks vajutage "ALT + F11".

2. Töölehe avamiseks topeltklõpsake VBAProjecti menüüs asuval töövihikul.

3. Lõika ja kleebi järgmine kood tühja töövihikusse:

   Sub GetFactors () Dim Count kui terviklik Dim NumToFactor kui üksik “Integer limit kuni <32768 Dim Factor kui üksikmõõt ja ühtne Dim IntCheck kui üksik

   Count = 0 NumToFactor = _ Application.InputBox (Prompt: = "Tüüp täisarv", Tüüp: = 1) "Kogu täisarvude sisestamine suurem kui 0." on 0 - võimaldab tühistada. ElseIf NumToFactor <1 Seejärel MsgBox "Palun sisestage täisarv, mis on suurem kui null." ElseIf IntCheck> 0 Seejärel MsgBox "Palun sisesta täisarv - ilma kümnendkohani." Lõpeta kui 'Loop' kuni täisarvu sisestamiseni, mis on suurem kui 0. Loop Kuigi NumToFactor <= 0 või IntCheck> 0 y = 1 jaoks NumToFactor 'Pane sõnum olekuribal, mis näitab kontrollitava täisarvu. Application.StatusBar = "Kontrollimine" & y Factor = NumToFactor Mod ja 'Määrake, kas jagamise tulemus Modiga on ülejäänud ja seega tegur. Kui tegur = 0, siis sisesta tegur veerusse, mis algab aktiivse lahtriga. ActiveCell.Offset (Count, 0) .Value = y 'Suurendage järgmise väärtuse nihutamiseks vajalikku summat. Count = Count + 1 End Kui Next 'Restore Status Bar. Application.StatusBar = "Ready" Lõpeta alam

   
   

   Sub GetPrime () Dim Count kui terviklik Dim BegNum kui üksik “Integer limit kuni <32768 Dim EndNum kui üksikmõõtmine kui ühemõõtmeline lipp kui terviklik Dim IntCheck kui üksikarv = 0

   Kas BegNum = _ Rakendus.InputBox (Prompt: = "Tüüp algusnumber.", Tüüp: = 1) "Jõuda täisarvude sisestamisel, mis on suuremad kui 0. IntCheck = BegNum - Int (BegNum) Kui BegNum = 0 Siis Välju Sub 'Tühista on 0 - võimaldab tühistada. ElseIf BegNum <1 Seejärel MsgBox "Palun sisestage täisarv, mis on suurem kui null." ElseIf IntCheck> 0 Seejärel MsgBox "Palun sisesta täisarv - ilma kümnendkohani." Lõpeta kui 'Loop, kuni täisarvu sisestus on suurem kui 0. Loop Kuigi algusnimi <= 0 või IntCheck> 0

   EndNum = _ Application.InputBox (Prompt: = "Tüüp lõpuni number.", Tüüp: = 1) '0 täisarvude sisestamine. IntCheck = EndNum - Int (EndNum) Kui EndNum = 0 Siis Välju Alam "Tühista on 0 - võimaldab tühistada. ElseIf EndNum <BegNum Seejärel MsgBox "Palun sisestage täisarv, mis on suurem kui" & BegNum ElseIf EndNum <1 Seejärel MsgBox "Palun sisesta täisarv, mis on suurem kui null." ElseIf IntCheck> 0 Seejärel MsgBox "Palun sisesta täisarv - ilma kümnendkohani." Lõpetage kui 'Loop' kuni täisarvu, mis on suurem kui 0. Loop Kuigi EndNum <BegNum või EndNum <= 0 või IntCheck> 0

   
   

   Y = BegNum kuni EndNum lipu = 0 z = 1 Tee kuni lipu = 1 või z = y + 1 'Pane sõnum olekuribale, mis näitab iga silmuse täisarvu ja jagajat. Application.StatusBar = y & "/" & z Prime = y Mod z Kui peamine = 0 ja z <> y ja z <> 1 Siis lipp = 1 lõpp Kui z = z + 1 silmus

   Kui lipp = 0 Siis sisestage tegur veerusse, mis algab aktiivse lahtriga. ActiveCell.Offset (Count, 0) .Value = y 'Suurendage järgmise väärtuse nihutamiseks vajalikku summat. Count = Count + 1 End Kui Next ja 'Restore Status Bar. Application.StatusBar = "Ready" Lõpeta alam

4. Klõpsake "File" ja seejärel "Close and Return to Microsoft Excel".

5. Klõpsake Excelis Microsoft Office'i nuppu. Klõpsake "Excel Options", "Customize" ja valige "Macros" käsul "Select".

6. Klõpsake loendis makrot makro "ThisWorkbook.GetFactors" ja seejärel klõpsake "Add". Klõpsake "OK". Selle toimingu tulemusena lisatakse makro Exceli ülemises vasakus servas asuvale kiirühenduse tööriistaribale.

7. Valige lahtr, kuhu soovite andmeid kuvada.

8. Klõpsake kiirpääsu tööriistaribal makro nuppu. Sisestage number, millesse peamine tegur on leitud. Excel tagastab valitud veerus kõigi tegurite (sealhulgas prime ja noncousins) loendi. Näiteks on tegurid 30 1,2,3,5,6,10,15 ja 30.

9. Valige loendist esmane number. Loendis olevad algarvud on 2,3 ja 5. Need on teie antud numbri peamised tegurid.

Kuidas

• Laske Excelil arvutada jaotused. Lisage asjakohased võrrandid rakkudele, mis tagastavad tegurid, mitte käsitsi.

Mida sa vajad

• Excel 2007