Πώς να χρησιμοποιήσετε το Excel για να βρείτε Prime Παράγοντες

Πρώτος αριθμός έχει μόνο τον εαυτό του και τον αριθμό 1 ως διαιρέτες . Για παράδειγμα , 13 είναι ένας πρώτος αριθμός , επειδή έχει 1 και 13 ως διαιρέτες μόνο . Κάθε αριθμός μπορεί να γραφτεί ως προϊόν των πρώτων αριθμών . Υπάρχουν πολλά εργαλεία για να καταλάβω primes , συμπεριλαμβανομένων των δέντρων απόφασης . Μπορείτε εύκολα να προσθέσετε μια μακροεντολή στο Excel 2007 για να αντικαταστήσει μέρος της διαδικασίας λήψης δέντρο . Μια μακροεντολή είναι ένα εργαλείο που σας επιτρέπει να προσαρμόσετε το Excel με τα δικά σας κουμπιά : σε αυτή την περίπτωση , ένα κουμπί που υπολογίζει τους παράγοντες . Μόλις έχετε προσθέσει τη μακροεντολή , απλά συνδέστε τον αριθμό και το Excel θα υπολογίσει τους παράγοντες . Τα πράγματα που θα χρειαστείτε
Excel 2007
Η Εμφάνιση Περισσότερες οδηγίες
Η

1 Κλείστε όλα τα υπάρχοντα βιβλία εργασίας και να ξεκινήσετε ένα νέο φύλλο εργασίας του Excel . Πατήστε το πλήκτρο " ALT " συν " F11 " για να ξεκινήσει η Επεξεργασία Visual Basic . 2

Ανοίξτε ένα βιβλίο εργασίας κάνοντας διπλό κλικ σε ένα βιβλίο εργασίας στο μενού VBAProject στην επάνω αριστερή γωνία της οθόνης .

Η 3

Αποκοπή και επικόλληση τον παρακάτω κωδικό στο κενό βιβλίο εργασίας :

Sub GetFactors ( ) Dim Count Όπως IntegerDim NumToFactor Όπως όρια Ακέραιος Single ' έως <32768Dim Factor Όπως SingleDim y Όπως SingleDim IntCheck As Single

Count = 0DoNumToFactor = _Application.InputBox ( Prompt : = "Τύπος ακέραιο" , Τύπος: = 1 ) « Δύναμη είσοδο ακέραιοι μεγαλύτεροι από 0.IntCheck = NumToFactor - Int ( NumToFactor ) Αν NumToFactor = 0 ThenExit Sub'Cancel είναι 0 - επιτρέπουν Cancel.ElseIf NumToFactor <1 ThenMsgBox " Παρακαλώ εισάγετε έναν ακέραιο αριθμό μεγαλύτερο από το μηδέν . " ElseIf IntCheck > 0 ThenMsgBox "Παρακαλώ εισάγετε έναν ακέραιο αριθμό - δεν δεκαδικά . " End If'Loop μέχρι την έναρξη της ακέραιος αριθμός μεγαλύτερος από ό, τι 0.Loop Ενώ NumToFactor <= 0 ή IntCheck > 0For y = 1 Για να NumToFactor'Put μηνύματος στη γραμμή κατάστασης που υποδεικνύει την ακέραιος είναι checked.Application.StatusBar = " Έλεγχος " & yFactor = NumToFactor Mod y'Determine εάν το αποτέλεσμα της διαίρεσης με Mod είναι χωρίς _remainder και έτσι ένα « παράγοντα » . Εάν Factor = 0 Then'Enter ο παράγοντας σε μια στήλη που ξεκινούν με την ενεργό cell.ActiveCell . Offset ( Count , 0 ) . Value = y'Increase το ποσό για την αντιστάθμιση για την επόμενη value.Count = Count + 1End IfNext'Restore Κατάσταση Bar.Application.StatusBar = " Ready" End Sub Sub

GetPrime ( ) Dim Count Όπως IntegerDim BegNum Όπως όρια Ακέραιος Single ' έως <32768Dim EndNum Όπως SingleDim Prime Όπως SingleDim σημαία Όπως IntegerDim IntCheck Όπως SingleCount = 0

DoBegNum = _Application.InputBox ( Prompt : = "Τύπος αρχίζουν αριθμό . " Είδος : = 1 )« Δύναμη είσοδο ακέραιοι μεγαλύτεροι από 0.IntCheck = BegNum - Int ( BegNum ) Αν BegNum = 0 ThenExit Sub'Cancel είναι 0 - επιτρέπουν Cancel.ElseIf BegNum <1 ThenMsgBox " Παρακαλώ εισάγετε . ένας ακέραιος μεγαλύτερος από μηδέν " ElseIf IntCheck > 0 ThenMsgBox " Παρακαλώ εισάγετε έναν ακέραιο αριθμό - . δεν δεκαδικά " End If'Loop μέχρι την έναρξη της ακέραιος αριθμός μεγαλύτερος από ό, τι 0.Loop Ενώ BegNum <= 0 ή IntCheck > 0

DoEndNum = _Application.InputBox ( Prompt : = " . Τύπος τελειώνει αριθμός" , Τύπος: = 1 ) « Δύναμη είσοδο ακέραιοι μεγαλύτεροι από 0.IntCheck = EndNum - Int ( EndNum ) Αν EndNum = 0 ThenExit Sub'Cancel είναι 0 - επιτρέπουν Cancel.ElseIf EndNum 0 ThenMsgBox "Παρακαλώ εισάγετε έναν ακέραιο αριθμό - . δεν δεκαδικά " End If'Loop μέχρι την έναρξη της ακέραιος αριθμός μεγαλύτερος από ό, τι 0.Loop Ενώ EndNum 0

Για y = BegNum να EndNumflag = 0z = 1Μην Μέχρι τη σημαία = 1 ή z = y + 1'Put μήνυμα στο Status Bar που δείχνει τον ακέραιο και _divisor σε κάθε loop.Application.StatusBar = y & " /" & ? zPrime = y Mod ZIF Prime = 0 και z <> y και z <> 1 Thenflag = 1End IFZ = z + 1Loop

Εάν σημαία = 0 Then'Enter ο συντελεστής σε μία αρχική στήλη με την ενεργό cell.ActiveCell.Offset ( Count , 0 ) . Value = y'Increase το ποσό για την αντιστάθμιση για την επόμενη value.Count = Count + 1End IfNext y'Restore Κατάσταση Bar.Application.StatusBar = " Ready" End Sub
Φτηνές 4

Κάντε κλικ στο " Αρχείο" και στη συνέχεια επιλέξτε " Κλείσιμο και επιστροφή στο Microsoft Excel . "
5

Κάντε κλικ στο κουμπί του Microsoft Office στο Excel . Κάντε κλικ στο κουμπί " Επιλογές του Excel ", " Προσαρμογή" και στη συνέχεια επιλέξτε " Μακροεντολές " στο "Επιλογή" εντολές .
Η 6

Στη λίστα , κάντε κλικ στο μακρο " ThisWorkbook.GetFactors , "και στη συνέχεια κάντε κλικ στο κουμπί " Προσθήκη ". Κάντε κλικ στο" OK . " Αυτό προσθέτει τη μακροεντολή στη γραμμή εργαλείων γρήγορης πρόσβασης στην επάνω αριστερή γωνία του Excel .
Η 7

Επιλέξτε το κελί όπου θα ήθελα τα δεδομένα για να ξεκινήσει .
8

Κάντε κλικ στο κουμπί macro στη γραμμή εργαλείων γρήγορης πρόσβασης . Εισάγετε τον αριθμό που θέλετε να βρείτε κύριους παράγοντες για την . Excel θα επιστρέψει μια λίστα όλων των παραγόντων ( συμπεριλαμβανομένου του πρωθυπουργού και μη -prime ) στην επιλεγμένη στήλη . Για παράδειγμα , οι παράγοντες του 30 είναι 1 , 2 , 3 , 5 , 6 , 10 , 15 και 30 .
Η 9

Επιλέξτε τους πρώτους αριθμούς από τη συγκεκριμένη λίστα . Οι πρώτοι αριθμοί αναφέρονται στον κατάλογο είναι 2,3 , και 5 . Αυτοί είναι οι πρωταρχικοί παράγοντες για δεδομένο αριθμό σας .
Η
εικόνων