Πώς να ελέγξετε εάν ο αριθμός είναι πρωταρχικός αριθμός στο Excel;
Όπως όλοι γνωρίζουμε, ένας πρωταρχικός αριθμός είναι ένας φυσικός αριθμός που περιέχει μόνο δύο ξεχωριστούς διαχωριστές φυσικών αριθμών: Ένας και ο ίδιος. Εάν έχετε μια λίστα αριθμών σε ένα φύλλο εργασίας, πώς θα μπορούσατε να ελέγξετε εάν οι αριθμοί είναι πρώτοι αριθμοί;
Ελέγξτε εάν ένας αριθμός είναι πρωταρχικός αριθμός με τύπο πίνακα
Ελέγξτε εάν ένας αριθμός είναι πρωταρχικός αριθμός με λειτουργία που καθορίζεται από το χρήστη
Ελέγξτε εάν ένας αριθμός είναι πρωταρχικός αριθμός με τύπο πίνακα
Ο παρακάτω τύπος μπορεί να σας βοηθήσει να προσδιορίσετε τον αριθμό είτε πρόκειται για έναν πρωταρχικό αριθμό είτε όχι, κάντε το ως εξής:
1. Εισαγάγετε τον ακόλουθο τύπο σε ένα κενό κελί - C2 για παράδειγμα δίπλα στα δεδομένα σας:
=IF(A2=2,"Prime",IF(AND(MOD(A2,ROW(INDIRECT("2:"&ROUNDUP(SQRT(A2),0))))<>0),"Prime","Not Prime")) (A2 είναι το κελί περιέχει τον αριθμό που θέλετε να ελέγξετε) και, στη συνέχεια, πατήστε Ctrl + Shift + Εισαγωγή πλήκτρα μαζί, και θα λάβετε το αποτέλεσμα, εάν ο αριθμός είναι πρωταρχικός, θα εμφανίζει "Prime" στο κελί, εάν όχι, θα εμφανίζεται "Not Prime", δείτε το στιγμιότυπο οθόνης:
2. Στη συνέχεια, επιλέξτε το κελί C2 και σύρετε τη λαβή πλήρωσης προς τα κάτω στα κελιά που θέλετε να εφαρμόσετε αυτόν τον τύπο και όλοι οι αριθμοί θα προσδιοριστούν εάν είναι πρωταρχικός αριθμός ή όχι. Δείτε το στιγμιότυπο οθόνης:
Ελέγξτε εάν ένας αριθμός είναι πρωταρχικός αριθμός με λειτουργία που καθορίζεται από το χρήστη
Ο ακόλουθος Λειτουργία καθορισμένη από τον χρήστη μπορεί επίσης να σας βοηθήσει να ελέγξετε τους αριθμούς εάν είναι πρωταρχικοί ή όχι, κάντε τα εξής:
1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Παράθυρο ενότητας.
Κωδικός VBA: Ελέγξτε εάν ένας αριθμός είναι πρωταρχικός ή όχι:
Function CheckPrime(Numb As Single) As Boolean
'Updateby Extendoffice
Dim X As Long
If Numb < 2 Or (Numb <> 2 And Numb Mod 2 = 0) _
Or Numb <> Int(Numb) Then Exit Function
For X = 3 To Sqr(Numb) Step 2
If Numb Mod X = 0 Then Exit Function
Next
CheckPrime = True
End Function
3. Στη συνέχεια, αποθηκεύστε και κλείστε αυτόν τον κωδικό, επιστρέψτε στο φύλλο εργασίας και εισαγάγετε αυτόν τον τύπο: = checkprime (A2) σε ένα κενό κελί δίπλα στη λίστα αριθμών και, στη συνέχεια, σύρετε τη λαβή πλήρωσης προς τα κάτω στα κελιά που θέλετε να περιέχει αυτόν τον τύπο, εάν ο αριθμός είναι πρωταρχικός αριθμός, θα εμφανίσει ΑΛΗΘΕΙΑ, εάν όχι, θα εμφανίσει ΛΑΘΟΣ, δείτε το στιγμιότυπο οθόνης:
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!