Saturs

• Instrukcijas
• Kā
• Kas jums nepieciešams

Galvenajam skaitlim ir tikai viens numurs un pats numurs. Piemēram, 13 ir galvenais numurs, jo tajā ir tikai dalītāji 1 un 13. Katru numuru var rakstīt kā primāro numuru produktu. Ir daudzi instrumenti, lai atrastu primāros numurus, tostarp lēmumu pieņemšanas shēmas. Jūs varat viegli pievienot makro Excel 2007, lai aizstātu lēmumu pieņemšanas procesa daļu. Makro ir rīks, kas ļauj pielāgot Excel ar savām pogām: šajā gadījumā poga, kas aprēķina faktorus. Kad esat pievienojis makro, vienkārši ievadiet numuru un Excel aprēķinās faktorus.

Instrukcijas

Izmantojiet Excel un atrodiet galvenos faktorus un numurus (Numbers image by Paul Hampton no Fotolia.com)

1. Aizveriet visas darbgrāmatas un startējiet jaunu Excel darblapu. Nospiediet "ALT + F11", lai sāktu pamata vizuālo redaktoru.

2. Lai atvērtu darblapu, divreiz noklikšķiniet uz darbgrāmatas VBAProject izvēlnē ekrāna augšējā kreisajā stūrī.

3. Izgrieziet un ielīmējiet šo kodu tukšajā darbgrāmatā:

   Sub GetFactors () Dim Count Kā Integer Dim NumToFactor Kā vienots 'Integer ierobežojumi līdz <32768 Dim Factor kā vienotam izmēram un kā vienotam Dim IntCheck kā vienotam

   Count = 0 NumToFactor = _ Application.InputBox (Prompt: = "Type integer", Type: = 1) "Piespiediet veselus skaitļus, kas lielāki par 0." ir 0 - atļaut Atcelt. ElseIf NumToFactor <1 Tad MsgBox "Lūdzu, ievadiet veselu skaitli, kas ir lielāks par nulli." ElseIf IntCheck> 0 Tad MsgBox "Lūdzu, ievadiet veselu skaitli - bez decimāldaļām." Beigt Ja 'Loop, līdz ieeja veselam skaitlim, kas ir lielāks par 0. Loop Kam NumToFactor <= 0 vai IntCheck> 0 y = 1 Lai NumToFactor' Ievietojiet ziņojumu statusa joslā, kas norāda, ka skaitlis tiek pārbaudīts. Application.StatusBar = "Pārbaude" & y Factor = NumToFactor Mod un 'Nosakiet, vai sadalījuma rezultāts ar Mod ir bez atlikuma un tādējādi faktors. Ja Factor = 0 Tad 'Ievadiet faktoru kolonnā, sākot ar aktīvo šūnu. ActiveCell.Offset (Count, 0) .Value = y 'Palieliniet summu, lai kompensētu nākamo vērtību. Count = Count + 1 Beigas Ja Next 'Restore Status Bar. Application.StatusBar = "Ready" Beigas Sub

   
   

   Sub GetPrime () Dim Count Kā Integer Dim BegNum kā Single 'Integer ierobežojumi līdz <32768 Dim EndNum kā vienreizējiem primāriem kā vienkāršiem dimantiem kā vienots skaitlis IntCheck kā vienreizējais skaitlis = 0

   Do BegNum = _ Application.InputBox (Prompt: = "Tips sākuma numurs.", Tips: = 1) "Piespiediet ierakstu ar veseliem skaitļiem, kas ir lielāki par 0. IntCheck = BegNum - Int (BegNum) Ja BegNum = 0, tad Iziet no sub 'Atcelt ir 0 - atļaut atcelt. ElseIf BegNum <1 Tad MsgBox "Lūdzu, ievadiet veselu skaitli, kas ir lielāks par nulli." ElseIf IntCheck> 0 Tad MsgBox "Lūdzu, ievadiet veselu skaitli - bez decimāldaļām." Beigt, ja 'Loop, līdz ieeja veselam skaitlim, kas ir lielāks par 0. Loop Kam BegNum <= 0 vai IntCheck> 0

   EndNum = _ Application.InputBox (Prompt: = "Tips beigu numurs.", Tips: = 1) "Piespiediet ieeju veselos skaitļos, kas ir lielāki par 0. IntCheck = EndNum - Int (EndNum) Ja EndNum = 0, tad Iziet Sub 'Atcelt ir 0 - atļaut atcelt. ElseIf EndNum <BegNum Tad MsgBox "Lūdzu, ievadiet veselu skaitli, kas ir lielāks par" & BegNum ElseIf EndNum <1 Tad MsgBox "Lūdzu, ievadiet veselu skaitli, kas ir lielāks par nulli." ElseIf IntCheck> 0 Tad MsgBox "Lūdzu, ievadiet veselu skaitli - bez decimāldaļām." Beigt, ja 'Loop', līdz tiek ievadīts vesels skaitlis, kas ir lielāks par 0. Loop, kamēr EndNum <BegNum vai EndNum <= 0 vai IntCheck> 0

   
   

   Y = BegNum līdz EndNum karodziņam = 0 z = 1 Vai līdz karodziņam = 1 vai z = y + 1 'Ievietojiet ziņu statusa joslā, kas norāda skaitli un dalītāju katrā cilpā. Application.StatusBar = y & "/" & z Prime = y Mod z Ja Prime = 0 Un z <> y un z <> 1 Tad karogs = 1 beigas Ja z = z + 1 cilpa

   Ja karogs = 0 Tad 'Ievadiet faktoru kolonnā, sākot ar aktīvo šūnu. ActiveCell.Offset (Count, 0) .Value = y 'Palieliniet summu, lai kompensētu nākamo vērtību. Count = Count + 1 Beigas Ja Next un 'Restore Status Bar. Application.StatusBar = "Ready" Beigas Sub

4. Noklikšķiniet uz "Fails" un pēc tam izvēlieties "Aizvērt un atgriezties Microsoft Excel".

5. Noklikšķiniet uz Microsoft Office pogas programmā Excel. Noklikšķiniet uz "Excel opcijas", "Pielāgot" un pēc tam "Izvēlēties" komandās atlasiet "Makro".

6. Sarakstā noklikšķiniet uz makro "ThisWorkbook.GetFactors" un pēc tam noklikšķiniet uz "Pievienot". Noklikšķiniet uz "OK". Šī darbība izraisa makro pievienošanu ātrās piekļuves rīkjoslai Excel augšējā kreisajā stūrī.

7. Atlasiet šūnu, kurā vēlaties rādīt datus.

8. Ātrās piekļuves rīkjoslā noklikšķiniet uz makro pogas. Ievadiet numuru, kurā vēlaties atrast galveno faktoru. Excel atgriezīs sarakstu ar visiem faktoriem (ieskaitot primes un noncousins) izvēlētajā slejā. Piemēram, koeficienti 30 ir 1,2,3,5,6,10,15 un 30.

9. Izvēlieties no saraksta galvenos numurus. Sarakstā pirmie numuri ir 2,3 un 5. Šie ir jūsu norādītā numura galvenie faktori.

Kā

• Ļaujiet Excel aprēķināt sadalījumu jums. Pievienojiet atbilstošos vienādojumus šūnām, kas atgriež faktorus, nevis aprēķina ar rokām.

Kas jums nepieciešams

• Excel 2007