Een priemgetal heeft alleen zichzelf en de nummer 1 als delers . Bijvoorbeeld , 13 is een priemgetal , want het heeft slechts 1 en 13 als delers . Ieder getal kan worden geschreven als een product van priemgetallen . Er zijn veel tools om erachter priemgetallen , met inbegrip van beslisbomen . U kunt een macro eenvoudig toevoegen aan Excel 2007 om een deel van het besluit - boom -proces vervangen. Een macro is een tool die u toelaat om aangepaste Excel met uw eigen knoppen : in dit geval , een knop die factoren berekent . Zodra u de macro hebt toegevoegd , gewoon aansluiten in het aantal en Excel berekent de factoren . Wat je nodig hebt
Excel 2007
Toon Meer Aanwijzingen
1 Sluit alle bestaande werkmappen en start een nieuwe Excel-werkblad . Druk op " ALT " plus " F11 " om de Visual Basic Editor te starten . Kopen van 2 Open een werkmap door te dubbelklikken op een werkmap op het VBAProject menu in de linkerbovenhoek van het scherm . < br >
Cut 3 en plak de volgende code in het lege werkmap : Sub GetFactors
( ) Dim Telling Zoals IntegerDim NumToFactor Zoals Single ' Integer grenzen aan < 32768Dim Factor Zoals SingleDim y Als SingleDim IntCheck Zoals Single Graaf
= 0DoNumToFactor = _Application.InputBox ( Prompt : = " Type integer" , Type : = 1 ) ' Force binnenkomst van gehele getallen groter dan 0.IntCheck = NumToFactor - Int ( NumToFactor ) Als NumToFactor = 0 ThenExit Sub'Cancel is 0 - toestaan Cancel.ElseIf NumToFactor 0 ThenMsgBox "Geef een geheel getal < 1 ThenMsgBox ElseIf IntCheck " Geef een geheel getal groter dan nul . " > - geen decimalen . "End If'Loop tot invoer van geheel getal groter dan 0.Loop Terwijl NumToFactor < = 0 of IntCheck > 0For y = 1 To bericht NumToFactor'Put in statusbalk het integer zijn checked.Application.StatusBar = " controle " & yFactor = NumToFactor Mod y'Determine als het resultaat van deling met Mod zonder _remainder en dus een " factor " . Als factor = 0 Then'Enter de factor in een kolom beginnend met de actieve cell.ActiveCell . offset ( graaf , 0 ) . Value = y'Increase het bedrag te compenseren voor volgend value.Count = Graaf + 1End IfNext'Restore Status Bar.Application.StatusBar = " Klaar " End Sub Sub GetPrime
( ) Dim Graaf Zoals IntegerDim BegNum Zoals Single ' Integer grenzen aan < 32768Dim EndNum Zoals SingleDim Prime Zoals SingleDim vlag Zoals IntegerDim IntCheck Zoals SingleCount = 0 DoBegNum
= _Application.InputBox ( Prompt : = " Type begin nummer . " , Type : = 1 ) ' Force binnenkomst van gehele getallen groter dan 0.IntCheck = BegNum - Int ( BegNum ) Als BegNum = 0 ThenExit Sub'Cancel is 0 - toestaan Cancel.ElseIf BegNum < 1 ThenMsgBox " Vul een geheel getal groter dan nul " ElseIf IntCheck > 0 ThenMsgBox " Geef een geheel getal - . . geen decimalen "End If'Loop tot invoer van geheel getal groter dan 0.Loop Terwijl BegNum < = 0 of IntCheck > 0
DoEndNum = _Application.InputBox ( Prompt : = " Type eindigt getal . " , Type : = 1 ) ' Force binnenkomst van gehele getallen groter dan 0.IntCheck = EndNum - Int ( EndNum ) Als EndNum = 0 ThenExit Sub'Cancel is 0 - toestaan Cancel.ElseIf EndNum < BegNum ThenMsgBox "Geef een geheel getal groter dan " & BegNumElseIf EndNum < 1 ThenMsgBox "Geef een geheel getal groter dan nul . " ElseIf IntCheck > 0 ThenMsgBox "Geef een geheel getal - . geen decimalen " End If'Loop tot invoer van geheel getal groter dan 0.Loop Terwijl EndNum < BegNum of EndNum < = 0 of IntCheck > 0
Voor y = BegNum Om EndNumflag = 0z = 1Do tot flag = 1 of z = y + 1'Put bericht in Status Bar vermelding van het integer en _divisor in elke loop.Application.StatusBar = y & " /" & ; zPrime = y mod zEen Prime = 0 en z < > y en Z < > 1 Thenflag = 1End IFZ = z + 1Loop
Als flag = 0 Then'Enter de factor in een kolom beginnend met de actieve cell.ActiveCell.Offset ( graaf , 0 ) . Value = y'Increase het bedrag te compenseren voor volgend value.Count = Graaf + 1End IfNext y'Restore Status Bar.Application.StatusBar = " Klaar " End Sub < br > Goedkope 4 Klik op " File " en kies vervolgens " Sluiten en terugkeren naar Microsoft Excel . "
5 Klik op de Microsoft Office -knop in Excel . Klik op " Opties voor Excel ", "Customize " en selecteer " Macro's " in het "Choose " commando .
6 in de lijst , klikt u op de macro " ThisWorkbook.GetFactors , " en klik vervolgens op " toevoegen . " Klik op" OK . "Dit voegt de macro aan de werkbalk snelle toegang in de linkerbovenhoek van Excel .
7 Selecteer de cel waarin u zou graag de gegevens te starten .
8 Klik op de macro knop op de werkbalk snelle toegang . Voer het nummer in dat u wilt priemfactoren vinden . Excel zal een lijst van alle factoren ( waaronder prime en non - prime ) in de geselecteerde kolom terug . Bijvoorbeeld , de factoren van 30 zijn 1 , 2 , 3 , 5 , 6 , 10 , 15 en 30 .
9 Selecteer priemgetallen uit de gegeven lijst . De priemgetallen in de lijst zijn 2,3 , en 5 . Dit zijn de belangrijkste factoren voor uw opgegeven getal .
|
