Innhold

• retninger
• tips
• Hva du trenger

Et primallummer har som divisorer bare nummer ett og tallet selv. For eksempel er 13 et primaltall fordi det bare har divisors 1 og 13. Hvert nummer kan skrives som et produkt av primtal. Det er mange verktøy for å finne primære tall, inkludert beslutningsprosesser. Du kan enkelt legge til en makro i Excel 2007 for å erstatte en del av beslutningsprosessen. En makro er et verktøy som lar deg tilpasse Excel med dine egne knapper: i dette tilfellet en knapp som beregner faktorer. Når du har lagt til makroen, skriv bare inn tallet og Excel beregner faktorene.

retninger

Bruk Excel og finn hovedfaktorer og tall (Numbers bilde av Paul Hampton fra Fotolia.com)

1. Lukk alle arbeidsbøker og start et nytt Excel-regneark. Trykk "ALT + F11" for å starte den grunnleggende visuelle editoren.

2. Dobbeltklikk på en arbeidsbok i VBAProject-menyen øverst til venstre på skjermen for å åpne et regneark.

3. Klipp og lim inn følgende kode i den tomme arbeidsboken:

   Sub GetFactors () Dim Count Som Integer Dim NumToFactor Som Single 'Integer grenser til <32768 Dim Factor Som Single Dim og Som Single Dim IntCheck Som Single

   Count = 0 NumToFactor = _ Application.InputBox (Prompt: = "Type heltall", Type: = 1) 'Force inntasting av heltall større enn 0.' er 0 - tillat Avbryt. ElseIf NumToFactor <1 Så MsgBox "Vennligst skriv inn et heltall som er større enn null." ElseIf IntCheck> 0 Så MsgBox "Vennligst skriv inn et heltall - ingen desimaler." Slutt hvis 'Loop til inntasting av heltall større enn 0. Loop While NumToFactor <= 0 Eller IntCheck> 0 For y = 1 Til NumToFactor' Sett melding i statuslinjen som indikerer at hele tallet blir sjekket. Application.StatusBar = "Checking" & y Factor = NumToFactor Mod og 'Bestem om resultatet av divisjon med Mod er uten gjenværende og dermed en faktor. Hvis Faktor = 0 Deretter Skriv inn faktoren i en kolonne som starter med den aktive cellen. ActiveCell.Offset (Count, 0) .Value = y 'Øk beløpet som skal kompenseres for neste verdi. Count = Count + 1 End Hvis Next 'Gjenopprett Statuslinje. Application.StatusBar = "Klar" End Sub

   
   

   Sub GetPrime () Dim Count Som Integer Dim BegNum Som Single 'Integer grenser til <32768 Dim EndNum Som Single Dim Prime Som Single Dim flagg Som Integer Dim IntCheck Som Single Count = 0

   Gjør BegNum = _ Application.InputBox (Prompt: = "Type startnummer.", Type: = 1) 'Force inntasting av heltall større enn 0. IntCheck = BegNum - Int (BegNum) Hvis BegNum = 0 Avslutt sub' Avbryt er 0 - tillat Avbryt. ElseIf BegNum <1 Så MsgBox "Vennligst skriv inn et heltall som er større enn null." ElseIf IntCheck> 0 Så MsgBox "Vennligst skriv inn et heltall - ingen desimaler." Slutt hvis 'Loop til inntasting av heltall større enn 0. Loop While BegNum <= 0 Eller IntCheck> 0

   EndNum = _ Application.InputBox (Prompt: = "Type sluttnummer.", Type: = 1) 'Force inntasting av heltall større enn 0. IntCheck = EndNum - Int (EndNum) Hvis EndNum = 0 Avslutt Sub' Cancel ' 0 - tillat Avbryt. ElseIf EndNum <BegNum Then MsgBox "Vennligst skriv inn et heltall større enn" & BegNum ElseIf EndNum <1 Then MsgBox "Vennligst skriv inn et heltall som er større enn null." ElseIf IntCheck> 0 Så MsgBox "Vennligst skriv inn et heltall - ingen desimaler." Slutt hvis 'Loop til inntasting av heltall større enn 0. Loop While EndNum <BegNum Eller EndNum <= 0 Eller IntCheck> 0

   
   

   For y = BegNum Til EndNum flagg = 0 z = 1 Gjør til flagg = 1 Eller z = y + 1 'Sett melding til Statuslinje som viser heltallet og divisoren i hver sløyfe. Application.StatusBar = y & "/" & z Prime = y Mod z Hvis Prime = 0 Og z <> y Og z <> 1 Deretter flagg = 1 Slutt Hvis z = z + 1 Loop

   Hvis flagg = 0 Deretter Skriv inn faktoren i en kolonne som starter med den aktive cellen. ActiveCell.Offset (Count, 0) .Value = y 'Øk beløpet som skal kompenseres for neste verdi. Count = Count + 1 End Hvis Next og 'Restore Status Bar. Application.StatusBar = "Klar" End Sub

4. Klikk "File", og velg deretter "Close and Return to Microsoft Excel."

5. Klikk på Microsoft Office-knappen i Excel. Klikk på "Excel-alternativer", "Tilpass", og velg deretter "Makroer" i "Velg" -kommandoene.

6. I listen klikker du på "ThisWorkbook.GetFactors" -makroen, og klikker deretter på "Legg til". Klikk på "OK". Denne operasjonen fører til at makroen legges til verktøylinjen Hurtig tilgang øverst til venstre i Excel.

7. Velg cellen der du vil at dataene skal vises.

8. Klikk på makroknappen på verktøylinjen Hurtig tilgang. Skriv inn nummeret du vil finne hovedfaktoren på. Excel vil returnere en liste over alle faktorer (inkludert primater og noncousins) i den valgte kolonnen. For eksempel er faktorene på 30 1,2,3,5,6,10,15 og 30.

9. Velg primtallene fra listen som er oppgitt. Hovedtalene i listen er 2,3 og 5. Dette er de viktigste faktorene i ditt nummer.

tips

• La Excel beregne divisjonene for deg. Legg de relevante ligningene til cellene som returnerer faktorene, i stedet for å beregne for hånd.

Hva du trenger

• Excel 2007