Wie Excel verwenden, um Prime Factors Finden

Mitglieder-Login

InformationenMicrosoft Access

Wie man eine Schriftgröße in Exce… Im Microsoft Office Suite von Produktivitäts- Software, Excel 2007 eine der weltweit am weitesten ve
Wie Paste mit Word-Dokumenten Beson… Programme wie Microsoft Excel sind so effizient im Laufe der Jahre , dass die Benutzer auch in der L
Tutorial zum Exportieren nach Excel… Quicken bietet mehr als 50 vorgefertigte Berichte, die Sie verwenden, um zusammenzufassen und analys
Wie der Grafik Ungleichheiten Mit E… Microsoft Excel ist ein nützliches Programm , um junge Schüler lernen Mathematik. Wenn Sie zusammen

Software

HOME

* Computer Wissen >> Software >> Microsoft Access >> .

Wie Excel verwenden, um Prime Factors Finden

Eine Primzahl hat nur sich selbst und die Nummer 1 als Teiler . Zum Beispiel ist 13 eine Primzahl ist , weil es nur 1 und 13 als Teiler . Jede Zahl kann als Produkt von Primzahlen geschrieben werden. Es gibt viele Tools , um herauszufinden, Primzahlen , einschließlich Entscheidungsbäume . Im Handumdrehen können Sie ein Makro Excel 2007 , einen Teil der Entscheidungsbaum- Verfahren zu ersetzen. Ein Makro ist ein Tool, das Ihnen ermöglicht , benutzerdefinierte Excel mit eigenen Tasten : in diesem Fall ist eine Schaltfläche, die Faktoren berechnet . Nachdem Sie das Makro aufgenommen , einfach einstecken in der Anzahl und Excel werden die Faktoren berechnen. Things You
Excel 2007
brauchen anzeigen Weitere Anweisungen
1

Schließen Sie alle vorhandenen Arbeitsmappen und starten Sie eine neue Excel-Arbeitsblatt. Drücken Sie die " ALT " plus " F11 ", um den Visual Basic -Editor zu starten .
2

Öffnen einer Arbeitsmappe mit einem Doppelklick auf eine Arbeitsmappe auf dem VBAProject Menü in der oberen linken Ecke des Bildschirms .

3

Cut und fügen Sie den folgenden Code in die leere Arbeitsmappe : Sub

GetFactors () Dim Count Wie IntegerDim NumToFactor As Integer Grenzen Single ' bis < 32768Dim Factor Wie SingleDim y As SingleDim IntCheck As Single

Count = 0DoNumToFactor = _Application.InputBox ( Prompt: = "Type integer" , Type: = 1) ' Force- Eintrag von ganzen Zahlen größer als 0.IntCheck = NumToFactor - Int ( NumToFactor ) Wenn NumToFactor = 0 ThenExit Sub'Cancel ist 0 - erlauben Cancel.ElseIf NumToFactor 0 ThenMsgBox "Bitte geben Sie eine ganze Zahl <1 ThenMsgBox ElseIf IntCheck " Bitte geben Sie eine ganze Zahl größer als Null ist . "> - keine Dezimalstellen . "End If'Loop bis zum Eintritt der ganze Zahl größer als 0.Loop Während NumToFactor <= 0 oder IntCheck > 0Für y = 1 To Meldung in der Statusleiste anzeigt NumToFactor'Put die ganze Zahl als checked.Application.StatusBar =" prüfen " und yFactor = NumToFactor Mod y'Determine wenn das Ergebnis der Division mit Mod ohne _remainder und damit einer " Faktor " . wenn Factor = 0 Then'Enter der Faktor in einer Spalte beginnend mit der aktiven cell.ActiveCell . Offset ( Count , 0). Value = y'Increase der Betrag für das nächste value.Count = Count + 1End IfNext'Restore Stand Bar.Application.StatusBar = " Ready" End Sub Sub

GetPrime Offset ( ) Dim Count Wie IntegerDim BegNum As Single 'Integer Grenzen < 32768Dim EndNum Wie SingleDim Prime Wie SingleDim Flagge als IntegerDim IntCheck Wie SingleCount = 0

DoBegNum = _Application.InputBox (Prompt : = "Geben Sie zu Beginn Nummer. " , Type: = 1) ' Force- Eintrag von ganzen Zahlen größer als 0.IntCheck = BegNum - Int ( BegNum ) Wenn BegNum = 0 ThenExit Sub'Cancel ist 0 - erlauben Cancel.ElseIf BegNum <1 ThenMsgBox " Bitte geben Sie eine ganze Zahl größer als Null " ElseIf IntCheck > 0 ThenMsgBox " Bitte geben Sie eine ganze Zahl - . . keine Dezimalstellen "End If'Loop bis zum Eintritt der ganze Zahl größer als 0.Loop Während BegNum <= 0 oder IntCheck > 0

DoEndNum = _Application.InputBox ( Prompt: = "Type Endnummer . " , Type: = 1) ' Force- Eintrag von ganzen Zahlen größer als 0.IntCheck = EndNum - Int ( EndNum ) Wenn EndNum = 0 ThenExit Sub'Cancel ist 0 - erlauben Cancel.ElseIf EndNum < BegNum ThenMsgBox "Bitte geben Sie eine ganze Zahl größer als " & BegNumElseIf EndNum <1 ThenMsgBox "Bitte geben Sie eine ganze Zahl größer als Null ist. " ElseIf IntCheck > 0 ThenMsgBox "Bitte geben Sie eine ganze Zahl - . keine Dezimalstellen " End If'Loop bis zum Eintritt der ganze Zahl größer als 0.Loop Während EndNum < BegNum Oder EndNum <= 0 oder IntCheck > 0
< p> Für y = BegNum Um EndNumflag = 0z = 1Do Bis flag = 1 oder z = y + 1'Put Nachricht in der Statusleiste anzeigt, die integer und _divisor in jedem loop.Application.StatusBar = y & "/" & ; zPrime = y Mod zWenn Prime = 0 und z < > Y und Z <> 1 = Thenflag 1End IFZ = z + 1Loop

Wenn flag = 0 Then'Enter der Faktor in einer Spalte ab mit der aktiven cell.ActiveCell.Offset ( Count , 0). Value = y'Increase der Betrag für das nächste value.Count offset = Count + 1End IfNext y'Restore Stand Bar.Application.StatusBar = " Ready" End Sub
4

Klicken Sie auf " Datei" und wählen Sie dann " Schließen und zurück zu Microsoft Excel".
5

Klicken Sie auf die Microsoft Office -Button in Excel. Klicken Sie auf " Excel -Optionen", "Einstellungen " und wählen Sie dann "Makros " in den "Auswählen" -Befehle.
6

In der Liste , klicken Sie auf das Makro " ThisWorkbook.GetFactors , " und klicken Sie dann auf " Hinzufügen ". Klicken Sie auf" OK. " Dies fügt das Makro zur schnellen Zugriff Symbolleiste am oberen Rand des Excel verlassen .
7

Markieren Sie die Zelle , wo Sie möchte, dass die Daten zu starten .
8

Klicken Sie auf die Makro -Taste auf der Quick-Access -Symbolleiste. Geben Sie die Nummer, die Sie gerne für Primfaktoren finden würde . Excel wird eine Liste aller Faktoren (einschließlich Prime und Non-Prime ) in der ausgewählten Spalte . Zum Beispiel sind die Faktoren von 30 1 , 2, 3 , 5, 6 , 10, 15 und 30 Jahren.
9

Wählen Sie die Primzahlen aus der gegebenen Liste. Die Primzahlen in der Liste sind 2,3 und 5 . Das sind die Primfaktoren für Ihre angegebenen Nummer.