Indhold

• retninger
• tips
• Hvad du har brug for

Et primtal har som divisorer kun nummer et og selve nummeret. For eksempel er 13 et primærtal fordi det kun har divisorer 1 og 13. Hvert tal kan skrives som et produkt af primtal. Der er mange værktøjer til at finde primære tal, herunder beslutningsprocesser. Du kan nemt tilføje en makro i Excel 2007 for at erstatte en del af beslutningsprocessen. En makro er et værktøj, der gør det muligt at tilpasse Excel med dine egne knapper: i dette tilfælde en knap, der beregner faktorer. Når du har tilføjet makroen, skal du blot indtaste nummeret og Excel beregner faktorerne.

retninger

Brug Excel og find primære faktorer og tal (Numbers billede af Paul Hampton fra Fotolia.com)

1. Luk alle arbejdsbøger og start et nyt Excel-regneark. Tryk på "ALT + F11" for at starte den grundlæggende visuelle editor.

2. Dobbeltklik på en projektmappe i menuen VBAProject øverst til venstre på skærmen for at åbne et regneark.

3. Skær og indsæt den følgende kode i den tomme projektmappe:

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

   Count = 0 NumToFactor = _ Application.InputBox (Prompt: = "Type heltal", Type: = 1) 'Force indtastning af heltal større end 0.' er 0 - Tillad Annuller. ElseIf NumToFactor <1 Så MsgBox "Indtast et heltal større end nul." ElseIf IntCheck> 0 Then MsgBox "Indtast et helt tal - ingen decimaler." Afslut Hvis 'Loop indtil indtastning af heltal større end 0. Loop While NumToFactor <= 0 Eller IntCheck> 0 For y = 1 Til NumToFactor' Sæt besked i statuslinjen, der angiver det heltal, der kontrolleres. Application.StatusBar = "Checking" & y Factor = NumToFactor Mod og 'Bestem om resultatet af division med Mod er uden rest og dermed en faktor. Hvis Factor = 0 Then 'Indtast faktoren i en kolonne, der starter med den aktive celle. ActiveCell.Offset (Count, 0) .Value = y 'Forøg mængden for at kompensere for næste værdi. Count = Count + 1 End Hvis Next 'Gendan Statuslinjen. Application.StatusBar = "Klar" End Sub

   
   

   Sub GetPrime () Dim Count Som Integer Dim BegNum Som Single 'Integer grænser til <32768 Dim EndNum Som Single Dim Prime Som Single Dim Flag Som Integer Dim IntCheck Som Single Count = 0

   Gør BegNum = _ Application.InputBox (Prompt: = "Type startnummer.", Type: = 1) 'Force indtastning af heltal større end 0. IntCheck = BegNum - Int (BegNum) Hvis BegNum = 0 Afslut derefter Sub' Cancel ' 0 - Tillad Annuller. ElseIf BegNum <1 Så MsgBox "Indtast et heltal større end nul." ElseIf IntCheck> 0 Then MsgBox "Indtast et helt tal - ingen decimaler." Afslut Hvis 'Loop indtil indtastning af heltal større end 0. Loop While BegNum <= 0 Eller IntCheck> 0

   EndNum = _ Application.InputBox (Prompt: = "Type ende nummer.", Type: = 1) 'Force indtastning af heltal større end 0. IntCheck = EndNum - Int (EndNum) Hvis EndNum = 0 Afslut derefter Sub' Cancel ' 0 - Tillad Annuller. ElseIf EndNum <BegNum Then MsgBox "Indtast venligst et helt tal større end" & BegNum ElseIf EndNum <1 Then MsgBox "Indtast et helt tal større end nul." ElseIf IntCheck> 0 Then MsgBox "Indtast et helt tal - ingen decimaler." Afslut Hvis 'Loop indtil indtastning af heltal større end 0. Loop While EndNum <BegNum Eller EndNum <= 0 Eller IntCheck> 0

   
   

   For y = BegNum Til EndNum flag = 0 z = 1 Gør indtil flag = 1 Eller z = y + 1 'Sæt besked i Statuslinje, der angiver heltal og divisor i hver sløjfe. Application.StatusBar = y & "/" & z Prime = y Mod z Hvis Prime = 0 Og z <> y Og z <> 1 Så flag = 1 Slut Hvis z = z + 1 Loop

   Hvis flag = 0 Så 'Indtast faktoren i en kolonne, der starter med den aktive celle. ActiveCell.Offset (Count, 0) .Value = y 'Forøg mængden for at kompensere for næste værdi. Count = Count + 1 End Hvis Next og 'Gendan Status Bar. Application.StatusBar = "Klar" End Sub

4. Klik på "File", og vælg derefter "Close and Return to Microsoft Excel."

5. Klik på Microsoft Office-knappen i Excel. Klik på "Excel-indstillinger", "Tilpas", og vælg derefter "Makroer" i "Vælg" -kommandoerne.

6. På listen klikker du på "ThisWorkbook.GetFactors" makroen, og klik derefter på "Tilføj". Klik på "OK". Denne handling får makroen til at blive tilføjet til værktøjslinjen Hurtig adgang øverst til venstre i Excel.

7. Vælg den celle, hvor du vil have dataene vist.

8. Klik på makroknappen på værktøjslinjen Hurtig adgang. Indtast det nummer, som du vil finde hovedfaktoren på. Excel returnerer en liste over alle faktorer (herunder primere og noncousins) i den valgte kolonne. F.eks. Er faktorerne på 30 1,2,3,5,6,10,15 og 30.

9. Vælg de primære tal fra listen. Hovedtalene i listen er 2,3 og 5. Disse er de primære faktorer i dit givne nummer.

tips

• Lad Excel beregne divisionerne for dig. Tilføj de relevante ligninger til de celler, der returnerer faktorerne, i stedet for at beregne manuelt.

Hvad du har brug for

• Excel 2007