Et primtal kun har sig selv , og antallet 1 som divisorer . For eksempel er 13 et primtal , fordi det kun har 1 og 13 som divisorer . Hvert nummer kan skrives som et produkt af primtal . Der er mange værktøjer til at finde ud af primtal , herunder beslutning træer. Du kan nemt tilføje en makro til Excel 2007 for at erstatte en del af beslutningsprocessen træet proces. En makro er et værktøj, der giver dig mulighed for at custom Excel med dine egne knapper : i dette tilfælde en knap, der beregner faktorer. Når du har tilføjet makroen, bare plug i antallet og Excel vil beregne de faktorer. Ting du skal
Excel 2007
Vis Flere Instruktioner
1
Luk alle eksisterende projektmapper og starte en ny Excel-regneark. Tryk på " ALT " plus " F11 " for at starte Visual Basic Editor.
2
Åbne en projektmappe ved at dobbeltklikke på en projektmappe på VBAProject menuen i øverste venstre hjørne af skærmen. < br >
3
klippe og indsætte følgende kode i den tomme projektmappe:
sub GetFactors ( ) Dim Count Som IntegerDim NumToFactor som single ' Integer grænser for < 32768Dim Factor Som SingleDim y Som SingleDim IntCheck Som Single
Count = 0DoNumToFactor = _Application.InputBox ( Prompt : = "Type integer " , Type: = 1) "Force indtastning af heltal større end 0.IntCheck = NumToFactor - Int ( NumToFactor ) Hvis NumToFactor = 0 ThenExit Sub'Cancel er 0 - tillader Cancel.ElseIf NumToFactor 0 ThenMsgBox "Indtast et heltal <1 ThenMsgBox EllersHvis IntCheck " Indtast et heltal større end nul . " > - ingen decimaler . "Slut If'Loop indtil indtastning af heltal større end 0.Loop Mens NumToFactor <= 0 Or IntCheck > 0For y = 1 til NumToFactor'Put besked i statuslinjen angiver heltal bliver checked.Application.StatusBar =" kontrol " & yFactor = NumToFactor Mod y'Determine hvis resultatet af divisionen med Mod er uden _remainder og dermed en " faktor " . Hvis faktor = 0 Then'Enter faktoren i en søjle begyndende med den aktive cell.ActiveCell . offset ( Count , 0) . Value = y'Increase beløbet for at udligne for næste value.Count = Count + 1End IfNext'Restore status Bar.Application.StatusBar = "Klar" End Sub
Sub GetPrime ( ) Dim Count Som IntegerDim BegNum som single ' Integer grænser for < 32768Dim EndNum Som SingleDim Prime Som SingleDim flag Som IntegerDim IntCheck Som SingleCount = 0
DoBegNum = _Application.InputBox ( Prompt : = "Type begynder nummer. " Type: = 1) " Force indtastning af heltal større end 0.IntCheck = BegNum - Int ( BegNum ) Hvis BegNum = 0 ThenExit Sub'Cancel er 0 - tillade Cancel.ElseIf BegNum <1 ThenMsgBox "Indtast et heltal større end nul " ElseIf IntCheck > 0 ThenMsgBox " Indtast et heltal - . . ingen decimaler "Slut If'Loop indtil indtastning af heltal større end 0.Loop Mens BegNum <= 0 Eller IntCheck > 0
DoEndNum = _Application.InputBox ( Prompt : = "Type slutter nummer. " , Type: = 1) "Force indtastning af heltal større end 0.IntCheck = EndNum - Int ( EndNum ) Hvis EndNum = 0 ThenExit Sub'Cancel er 0 - tillade Cancel.ElseIf EndNum < BegNum ThenMsgBox "Indtast et heltal større end " & BegNumElseIf EndNum <1 ThenMsgBox "Indtast et heltal større end nul. " ElseIf IntCheck > 0 ThenMsgBox "Indtast et heltal - . ingen decimaler " Slut If'Loop indtil indtastning af heltal større end 0.Loop Mens EndNum < BegNum Eller EndNum <= 0 eller IntCheck > 0
< p> for y = BegNum til EndNumflag = 0z = 1Do Indtil flag = 1 eller z = y + 1'Put besked i statuslinjen angiver heltal 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 flag = 0 Then'Enter faktoren i en kolonne starter med den aktive cell.ActiveCell.Offset ( Count , 0) . Value = y'Increase beløbet for at udligne for næste value.Count = Count + 1End IfNext y'Restore status Bar.Application.StatusBar = "Klar" End Sub < br >
4
Klik på "File " og derefter vælge " Luk og vend tilbage til Microsoft Excel. "
5
Klik på Microsoft Office-knappen i Excel. Klik på " Excel-indstillinger ", " Tilpas " og vælg derefter " makroer" i " Vælg " kommandoer .
6
listen, klik makro " ThisWorkbook.GetFactors , "og derefter klikke på" Tilføj ". Klik på " OK ". Dette tilføjer makro til hurtig adgang værktøjslinjen øverst til venstre i Excel.
7
Vælg den celle, hvor du ønsker data til at starte.
8
Klik makro knappen på hurtig adgang værktøjslinjen . Indtast det nummer, du ønsker at finde primfaktorer for . Excel vil returnere en liste over alle faktorer ( herunder prime og ikke- prime) i den valgte kolonne. For eksempel er de faktorer af 30 1 , 2, 3 , 5, 6 , 10, 15 og 30 år.
9
Vælg primtal fra given liste . De primtal på listen er 2,3 , og 5 . Disse er de vigtigste faktorer for dit givet tal.
