A primtall har bare seg selv og tallet 1 som divisors . For eksempel er 13 et primtall fordi den bare har 1 og 13 som divisors . Hver rekke kan skrives som et produkt av primtall . Det finnes mange verktøy for å finne ut primtall , inkludert beslutning trær . Du kan enkelt legge til en makro i Excel 2007 for å erstatte en del av beslutnings- treet prosess . En makro er et verktøy som lar deg custom Excel med dine egne knapper : i dette tilfellet , en knapp som beregner faktorer. Når du har lagt til makroen , bare å plugge i antall og Excel vil beregne faktorer. Du trenger
Excel 2007
Vis flere instruksjoner
en

Lukk alle eksisterende arbeidsbøker og starte en ny Excel-regneark. Trykk " ALT " pluss " F11 " for å starte Visual Basic Editor .
2

Åpne en arbeidsbok ved å dobbeltklikke på en arbeidsbok på VBAProject menyen øverst til venstre på skjermen .

3

Klipp ut og lim inn følgende kode inn i det tomme arbeidsbok:

Gå GetFactors ( ) Dim Count Som IntegerDim NumToFactor som singel ' heltall grenser for < 32768Dim Factor Som SingleDim y Som SingleDim IntCheck som singel

Count = 0DoNumToFactor = _Application.InputBox ( Prompt : = "Type heltall " , Type : = 1 ) 'Force oppføring av heltall større enn 0.IntCheck = NumToFactor - Int ( NumToFactor ) Hvis NumToFactor = 0 ThenExit Sub'Cancel er 0 - tillater Cancel.ElseIf NumToFactor 0 ThenMsgBox "Vennligst skriv inn et heltall < 1 ThenMsgBox ElseIf IntCheck " Vennligst skriv inn et heltall større enn null . " > - ingen desimaler . " End If'Loop til oppføring av heltall større enn 0.Loop Mens NumToFactor < = 0 Eller IntCheck > 0 ° C y = 1 To NumToFactor'Put melding i statuslinjen indikerer heltall være checked.Application.StatusBar =" Kontroll "& yFactor = NumToFactor Mod y'Determine dersom resultatet av divisjonen med Mod er uten _remainder og dermed en" faktor " . Hvis Factor = 0 Then'Enter faktoren i en kolonne som starter med den aktive cell.ActiveCell . offset ( Count , 0 ) . Verdi = y'Increase beløpet til å kompensere for neste value.Count = Count + 1End IfNext'Restore Status Bar.Application.StatusBar = "Klar" End Sub

Sub GetPrime ( ) Dim Count Som IntegerDim Begnum som singel ' heltall grenser for < 32768Dim EndNum Som SingleDim Prime Som SingleDim flagg Som IntegerDim IntCheck Som SingleCount = 0

DoBegNum = _Application.InputBox ( Prompt : = "Type begynnelsen nummer. " , Type : = 1 ) 'Force oppføring av heltall større enn 0.IntCheck = Begnum - Int. ( Begnum ) Hvis Begnum = 0 ThenExit Sub'Cancel er 0 - tillate Cancel.ElseIf Begnum < 1 ThenMsgBox " Vennligst skriv et heltall større enn null " ElseIf IntCheck > 0 ThenMsgBox " oppgi et heltall - . . ingen desimaler " End If'Loop til oppføring av heltall større enn 0.Loop Mens Begnum < = 0 Eller IntCheck > 0

DoEndNum = _Application.InputBox ( Prompt : = "Type ending nummer. " , Type : = 1 ) 'Force oppføring av heltall større enn 0.IntCheck = EndNum - Int. ( EndNum ) Hvis EndNum = 0 ThenExit Sub'Cancel er 0 - tillate Cancel.ElseIf EndNum < Begnum ThenMsgBox " oppgi et heltall større enn " & BegNumElseIf EndNum < 1 ThenMsgBox "Vennligst skriv inn et heltall større enn null . " ElseIf IntCheck > 0 ThenMsgBox " oppgi et heltall - . ingen desimaler " End If'Loop til oppføring av heltall større enn 0.Loop Mens EndNum < Begnum Eller EndNum < = 0 Eller IntCheck > 0
< p> For y = Begnum å EndNumflag = 0z = 1Bruk inntil flagg = 1 Eller z = y + 1'Put melding i statuslinjen indikerer heltall og _divisor i hvert loop.Application.StatusBar = y & " /" & ; zPrime = y Mod zHvis Prime = 0 og z < > y og z < 1 > Thenflag = 1End Ifz = z + 1Loop
p Hvis flagg = 0 Then'Enter faktoren i en kolonne som starter med den aktive cell.ActiveCell.Offset ( Count , 0 ) . Verdi = y'Increase beløpet til å kompensere for neste value.Count = Count + 1End IfNext y'Restore Status Bar.Application.StatusBar = " Klar " End Sub

4

Klikk på " File" og velg deretter " Lukk og gå tilbake til Microsoft Excel. "
5

Klikk Microsoft Office -knappen i Excel. Klikk på " Alternativer for Excel ", " Tilpass " og velg deretter " Makroer " i " Velg " kommandoer .
6

i listen , klikker du makroen " ThisWorkbook.GetFactors , "og deretter " Legg til. "Klikk " OK . " Dette legger makroen til rask tilgang verktøylinjen øverst til venstre i Excel.
7

Merk cellen der du ønsker at data skal begynne.
8

Klikk på makro -knappen på rask tilgang verktøylinjen. Tast inn nummeret du ønsker å finne primfaktorene for . Excel vil returnere en liste over alle faktorer ( inkludert prime og non -prime ) i den valgte kolonnen. For eksempel faktorer av 30 er 1, 2 , 3, 5 , 6, 10, 15 og 30 år.
9

Velg primtall fra den gitte listen . De viktigste tallene i listen er 2,3, og 5 . Disse er de viktigste faktorene for din gitt nummer.