Ett primtal har bara sig själv och talet 1 som delare . Till exempel är 13 ett primtal eftersom den bara har en och 13 som divisorer . Varje nummer kan skrivas som en produkt av primtal . Det finns många verktyg för att räkna ut primtal , inklusive beslutsträd . Du kan enkelt lägga till ett makro till Excel 2007 för att ersätta en del av beslutsprocessen trädet process . Ett makro är ett verktyg som låter dig anpassade Excel med egna knappar : i detta fall , en knapp som beräknar faktorer . När du har lagt till makrot , bara att koppla in numret och Excel beräknar faktorer . Saker du behöver
Excel 2007
Visa fler instruktioner
1
Stäng alla befintliga arbetsböcker och starta en ny Excel-kalkylblad . Tryck " ALT " plus " F11 " för att starta Visual Basic Editor .
2
Öppna en arbetsbok genom att dubbelklicka på en arbetsbok på VBAProject menyn längst upp till vänster på skärmen .
3
Klipp och klistra in följande kod i den tomma arbetsboken :
sub GetFactors ( ) Dim räknas som IntegerDim NumToFactor Som enda " Integer begränsningar < 32768Dim faktor SingleDim Y SingleDim IntCheck As Single
Count = 0DoNumToFactor = _Application.InputBox ( Prompt : = " Typ integer " , Type : = 1 ) " Force inmatning av heltal större än 0.IntCheck = NumToFactor - Int ( NumToFactor ) Om NumToFactor = 0 ThenExit Sub'Cancel är 0 - tillåter Cancel.ElseIf NumToFactor 0 ThenMsgBox " Ange ett heltal < 1 ThenMsgBox ElseIf IntCheck " Ange ett heltal större än noll . " > - inga decimaler . " End If'Loop tills inmatning av heltal större än 0.Loop Medan NumToFactor < = 0 Eller IntCheck > 0For y = 1 att NumToFactor'Put meddelande i statusfältet indikerar heltal är checked.Application.StatusBar = " kontroll " & yFactor = NumToFactor Mod y'Determine om resultatet av uppdelningen med Mod är utan _remainder och därmed en " faktor " . Om faktor = 0 Then'Enter faktorn i en kolumn som börjar med den aktiva cell.ActiveCell . offset ( Count , 0 ) . Value = y'Increase det belopp för att kompensera för nästa value.Count = Count + 1End IfNext'Restore Status Bar.Application.StatusBar = " Klar " End Sub
Sub GetPrime ( ) Dim räknas som IntegerDim BegNum Som enda " Integer begränsningar < 32768Dim EndNum Som SingleDim Prime Som SingleDim flagga som IntegerDim IntCheck Som SingleCount = 0
DoBegNum = _Application.InputBox ( Prompt : = " Typ startnumret . " , Type : = 1 ) " Force inmatning av heltal större än 0.IntCheck = BegNum - Int ( BegNum ) Om BegNum = 0 ThenExit Sub'Cancel är 0 - tillåta Cancel.ElseIf BegNum < 1 ThenMsgBox " Ange ett heltal större än noll " ElseIf IntCheck > 0 ThenMsgBox " Ange ett heltal - . . inga decimaler " End If'Loop tills inmatning av heltal större än 0.Loop Medan BegNum < = 0 Eller IntCheck > 0
DoEndNum = _Application.InputBox ( Prompt : = " Typ slutar numret . " , Type : = 1 ) " Force inmatning av heltal större än 0.IntCheck = EndNum - Int ( EndNum ) Om EndNum = 0 ThenExit Sub'Cancel är 0 - tillåta Cancel.ElseIf EndNum 0 ThenMsgBox " Ange ett heltal - . inga decimaler " End If'Loop tills inmatning av heltal större än 0.Loop Medan EndNum 0
för y = BegNum till EndNumflag = 0z = 1Do Fram flagga = 1 eller Z = y + 1'Put meddelande i statusfältet indikerar heltal och _divisor i varje loop.Application.StatusBar = y & " /" & ; zPrime = y Mod zNär Prime = 0 och z <> y och z <> 1 Thenflag = 1End Ifz = z + 1Loop
p Om flagga = 0 Then'Enter faktorn i en kolonn med början med den aktiva cell.ActiveCell.Offset ( Count , 0 ) . Value = y'Increase det belopp för att kompensera för nästa value.Count = Count + 1End IfNext y'Restore Status Bar.Application.StatusBar = " Ready " End Sub
4
Klicka på " File " och sedan välja " Stäng och gå tillbaka till Microsoft Excel . "
5
Klicka på Microsoft Office -knappen i Excel . Klicka på " Excel-alternativ ", "skräddarsy" och välj sedan " Makron " i " Välj " -kommandon .
6
i listan , klicka på makrot " ThisWorkbook.GetFactors , " och klicka sedan på " Lägg till . " Klicka på" OK . " Detta lägger makrot till snabb tillgång verktygsfältet längst upp till vänster i Excel .
7
Markera cellen där du vill att uppgifterna ska börja .
8
Klicka makrot knappen på snabb - åtkomst verktygsfältet . Skriv in numret du vill hitta primfaktorer för . Excel kommer att returnera en lista över alla faktorer ( inklusive prime och icke - prime ) i den valda kolumnen . Till exempel , de faktorer av 30 är 1 , 2 , 3 , 5 , 6 , 10 , 15 och 30 .
9
Välj primtalen från den givna listan . Primtalen i listan är 2,3 , och 5 . Dessa är de främsta faktorerna för din givna talet .
