Vsebina
Prvotno število ima kot delilce le številko ena in samo številko. Na primer, 13 je praštevilo, ker ima samo delilce 1 in 13. Vsako število lahko zapišemo kot produkt prostih števil. Obstaja veliko orodij za iskanje primarnih številk, vključno s sistemi odločanja. V Excelu 2007 lahko preprosto dodate makro, ki bo nadomestil del postopka odločanja. Makro je orodje, ki vam omogoča, da prilagodite Excel z lastnimi gumbi: v tem primeru gumb, ki izračuna dejavnike. Ko dodate makro, preprosto vnesite številko in Excel bo izračunal faktorje.
Navodila
Uporabite Excel in poiščite osnovne dejavnike in številke (Številka slike, ki jo je napisal Paul Hampton iz Fotolia.com)-
Zaprite vse delovne zvezke in zaženite nov Excelov delovni list. Pritisnite "ALT + F11" za zagon osnovnega vizualnega urejevalnika.
-
Dvokliknite delovni zvezek v meniju VBAPprojekt v zgornjem levem delu zaslona, da odprete delovni list.
-
Izreži in prilepi naslednjo kodo v prazen delovni zvezek:
Sub GetFactors () Dim Count As Integer Dim NumToFactor Kot enojna “Integer omejitev na <32768 Dim Factor Kot enotna dim in kot enoten Dim IntCheck As Single
Count = 0 NumToFactor = _ Application.InputBox (Prompt: = "Type integer", Type: = 1) 'Prisilno vnašanje celih števil, ki so večja od 0.' je 0 - omogoči Prekliči. ElseIf NumToFactor <1 Nato MsgBox "Vnesite celo število, ki je večje od nič." ElseIf IntCheck> 0 Nato MsgBox "Vnesite celo število - brez decimalnih mest." End If 'Loop do vnosa celega števila, ki je večja od 0. Loop while NumToFactor <= 0 Ali IntCheck> 0 Za y = 1 Za NumToFactor' Vnesite sporočilo v statusno vrstico, ki označuje, da je celo število preverjeno. Application.StatusBar = "Preverjanje" & y Factor = NumToFactor Mod in 'Določite, ali je rezultat delitve z Modom brez ostankov in torej faktor. Če je faktor = 0, potem vnesite faktor v stolpec, ki se začne z aktivno celico. ActiveCell.Offset (Count, 0) .Value = y 'Povečajte znesek za zamik za naslednjo vrednost. Count = Count + 1 End If Next 'Obnovi vrstico stanja Application.StatusBar = "Ready" End Sub
Sub GetPrime () Dim Count Kot Integer Dim BegNum Kot enojna “Integer omejitve na <32768 Dim EndNum Kot enotna dim Prime Kot ena dimna zastava Kot Integer Dim IntCheck As Single Count = 0
Ali BegNum = _ Application.InputBox (Prompt: = "Vnesite začetno številko.", Type: = 1) 'Prisilite vnos celih števil, ki so večje od 0. 0 - omogoči Prekliči. ElseIf BegNum <1 Nato MsgBox "Vnesite celo število, ki je večje od nič." ElseIf IntCheck> 0 Nato MsgBox "Vnesite celo število - brez decimalnih mest." End If 'Loop do vnosa celih števil, ki je večja od 0. Loop While BegNum <= 0 Ali IntCheck> 0
EndNum = _ Application.InputBox (Prompt: = "Vrsta končne številke.", Type: = 1) 'Prisilite vnos celih števil, ki so večja od 0. IntCheck = EndNum - Int (EndNum) Če je EndNum = 0, potem Exit Sub' Cancel je 0 - omogoči Prekliči. ElseIf EndNum <BegNum Then MsgBox "Vnesite celo število, večje od" & BegNum ElseIf EndNum <1 Nato MsgBox "Prosimo, vnesite celo število, ki je večje od nič." ElseIf IntCheck> 0 Nato MsgBox "Vnesite celo število - brez decimalnih mest." End If 'Loop do vnosa celih števil, ki je večja od 0. Loop While EndNum <BegNum or EndNum <= 0 Ali IntCheck> 0
Za y = BegNum To EndNum zastavica = 0 z = 1 Do Do flag = 1 Ali z = y + 1 'Sporočilo v statusno vrstico, ki označuje celo število in delitelja v vsaki zanki. Application.StatusBar = y & "/" & z Prime = y Mod z Če je Prime = 0 In z <> y In z <> 1 Potem zastavica = 1 End Če z = z + 1 Loop
Če je zastava = 0 Potem 'Vnesite faktor v stolpec, ki se začne z aktivno celico. ActiveCell.Offset (Count, 0) .Value = y 'Povečajte znesek za zamik za naslednjo vrednost. Count = Count + 1 End If Next in "Restore Status Bar. Application.StatusBar =" Ready "End Sub
-
Kliknite »Datoteka« in nato »Zapri in vrnite se v Microsoft Excel«.
-
Kliknite gumb Microsoft Office v Excelu. Kliknite "Možnosti programa Excel", "Prilagodi" in nato v ukazih "Izberi" izberite "Makri".
-
Na seznamu kliknite makro »ThisWorkbook.GetFactors« in kliknite »Dodaj«. Kliknite »V redu«. Ta postopek povzroči, da se makro doda v orodno vrstico za hitri dostop v zgornjem levem kotu programa Excel.
-
Izberite celico, v kateri želite prikazati podatke.
-
Kliknite gumb makra v orodni vrstici za hitri dostop. Vnesite številko, ki jo želite najti glavni dejavnik. Excel bo v izbranem stolpcu vrnil seznam vseh dejavnikov (vključno s številkami in osebami). Na primer, faktorji 30 so 1,2,3,5,6,10,15 in 30.
-
Na seznamu izberite glavne številke. Prvotne številke na seznamu so 2,3 in 5. To so glavni dejavniki vaše dane številke.
Kako
- Pustite Excelu, da izračuna delitve za vas. V celice, ki vrnejo dejavnike, dodajte ustrezne enačbe, namesto da jih izračunate ročno.
Kaj potrebujete
- Excel 2007