-
- hur man använder Excel för att hitta primtalsfaktorer
- Postad av:Jonathan Nyberg
- Ett primtal har bara sig själv och det nummer 1 som delare. Till exempel är 13 en primtal eftersom det bara har 1 och 13 som delare. Varje nummer kan skrivas som en produkt av primtal. Det finns många verktyg för att räkna ut primtal, inklusive beslut träd. Du kan enkelt lägga ett makro till Excel 2007 för att ersätta en del av beslutsprocessen trädet process. Ett makro är en 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 det antal och Excel beräknar faktorer.
Du behöver:
Excel 2007
1
Stäng alla befintliga arbetsböcker och börja ett nytt kalkylblad i Excel. . . Tryck på "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 arbetsbok:.
Sub GetFactors ()
Dim räknas som Integer
Dim NumToFactor As Single "Integer gränser <32. 768
Dim Factor As Single Dim
y As Single Dim
IntCheck As Single
Count=0
Har
NumToFactor=Application _
. InputBox (Prompt:="Typ heltal", typ:=1).
"Force inträde heltal större än 0
IntCheck=NumToFactor-Int (NumToFactor)
Om NumToFactor=0 Then
Exit Sub
"Avbryt är 0-tillåta Avbryt
ElseIf NumToFactor <1 Sedan
MsgBox
ElseIf IntCheck>. " Ange ett heltal större än noll. " ; 0 Then
MsgBox "Ange ett heltal-utan decimaler. "
End If
"loop tills inträde heltal större än 0.
Loop While NumToFactor <= 0 eller IntCheck> 0
för y=1 To NumToFactor
"Sätt meddelande i statusfältet visar heltal som kontrolleras.
Application. StatusBar="Kontrollera" y
Factor=NumToFactor Mod y
"Ta reda på om resultatet av divisionen med Mod är utan _
återstoden och därmed en" faktor ".
Om Faktor=0 Then
"Skriv en faktor i en kolumn som börjar med den aktiva cellen.
ActiveCell. Offset (Count, 0). Value=y
"Öka mängden för att kompensera för nästa värde.
=ANTAL + 1
End If
Nästa
" Återställ Status Bar.
Application. StatusBar="Ready"
End Sub
Sub GetPrime ()
Dim Räkna As Integer Dim
BegNum As Single "Integer begränsningar <32. 768
Dim EndNum As Single Dim
Prime As Single Dim
flagg As Integer Dim
IntCheck As Single
Count=0
Har
BegNum=Application _
. InputBox (Prompt:="Skriv början numret. ", Typ:=1)
"Force inträde heltal större än 0
IntCheck=BegNum-Int (BegNum)
Om BegNum=0. Då
Exit Sub
"Avbryt är 0-tillåta Avbryt
ElseIf BegNum <1 Sedan
MsgBox
ElseIf. " Ange ett heltal större än noll. " IntCheck> Då 0
MsgBox "Ange ett heltal -. inga decimaler"
End If
"loop tills inmatning av heltal större än 0.
Loop While BegNum <= 0 eller IntCheck> 0
Har
EndNum=_
Application. InputBox (Prompt:="Skriv sinande antal. ", Typ:=1)
"Force inträde heltal större än 0
IntCheck=EndNum-Int (EndNum)
Om EndNum=0 Then
Exit Sub
. " Avbryt är 0-tillåta Avbryt
ElseIf EndNum MsgBox "Ange ett heltal större än" BegNum
ElseIf EndNum <1 Sedan
MsgBox ". Ange ett heltal större än noll. "
ElseIf IntCheck> 0 Then
MsgBox" Ange ett heltal -. Inga decimaler "
End If
" loop tills inträde heltal större än 0
Loop While EndNum 0
för y=BegNum vill EndNum
flagga=0
z=1
göra tills flagga=1 eller z=y + 1
"Sätt meddelande till Status Bar anger heltal och _
divisor i varje slinga.
Application. StatusBar=y "/" z
Prime=y Mod z
Om Prime=0 och z <> y och z <> 1 Och
flagga=1
End If
z=z + 1
Loop
Om flaggan=0 Then
"Skriv en faktor i en kolumn börjar med den aktiva cellen.
ActiveCell. Offset (Count, 0). Value=y
"Öka mängden för att kompensera för nästa värde.
=ANTAL + 1
End Om
Nästa y
"Återställ Statusfält.
Application. StatusBar="Ready"
End Sub
4.
Klicka på "File" och välj sedan "Stäng och gå tillbaka till Microsoft Excel. "
5.
Klicka på Microsoft Office-knappen i Excel. Klicka på "Excel-alternativ", "Anpassa" 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 bidrar makrot till snabb åtkomst verktygsfältet längst upp till vänster i Excel.
7.
Markera den cell där du vill att uppgifterna ska börja.
8.
Klicka på makro-knappen på snabb åtkomst verktygsfältet. Ange det nummer du vill hitta primtalsfaktorer för. Excel kommer tillbaka en lista över alla faktorer (inklusive prime och icke-prime) i den valda kolumnen. Till exempel 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 viktigaste faktorerna för din givet antal.
Tips och varningar
- har Excel beräkna divisioner för dig genom att lägga till relevanta ekvationer till cellerna som återger faktorer, istället för att beräkna för hand.
Relaterade artiklar
adobe 3,0 systemkrav
hur man gör ett intyg om erfarenhet
hur man kan kontrollera en pdf-fil för ett färgsystem
hur jag bläddrar med Windows Live Messenger
hur man lär sig Microsoft Access online
hur klippbok med Adobe Photoshop CS2
hur man kan blockera annonser från internet
hur man installerar en Backup Exec System Recovery
Hur konvertera vob till xvid
hur till återvinna en PST lösenord