Το VBA Mod δεν είναι συνάρτηση ενώ MOD είναι μια συνάρτηση σε ένα φύλλο εργασίας του Excel. VBA Mod είναι ένας τελεστής που διαιρεί δύο αριθμούς και επιστρέφει το υπόλοιπο Ο χειριστής Mod είναι μια σύντομη μορφή του MODULO που χρησιμοποιείται στις μαθηματικές πράξεις. Mod χειριστές Συγκέντρωση το κινητής υποδιαστολής .

Σε αυτό το άρθρο, θα σας δείξω διάφορα παραδείγματα χρήσης του Excel VBA Mod χειριστή.

Λήψη για πρακτική

Βασικά στοιχεία της VBA Mod Function: Σύνοψη & amp; Σύνταξη

Περίληψη

Το VBA Mod διαιρεί δύο αριθμούς και επιστρέφει το υπόλοιπο . Όταν κάποιος είναι γνωστός ως διαιρέτης ένα άλλο είναι ένα αριθμός . Mod τελεστής διαιρεί το αριθμός από το διαιρέτης .

Σύνταξη

Number1 Mod Number2 (διαιρέτης)

Επιχειρήματα

Αξία επιστροφής

Το VBA Mod ο τελεστής επιστρέφει ένα υπόλοιπο .

Έκδοση

Το VBA Mod είναι διαθέσιμος για το Excel 2000 και νεότερες εκδόσεις.

Χρησιμοποιώ το Excel Microsoft 365 για την υλοποίηση αυτών των παραδειγμάτων.

9 παραδείγματα χρήσης της συνάρτησης VBA Mod στο Excel

1. Χρήση του VBA Mod για να λάβετε το υπόλοιπο

Αν θέλετε, μπορείτε να πάρετε ένα υπόλοιπο χρησιμοποιώντας το VBA Mod χειριστή.

Επιτρέψτε μου να σας εξηγήσω τη διαδικασία,

Αρχικά, ανοίξτε το Προγραμματιστής tab>> select Visual Basic .

➤ Τώρα, ένα νέο παράθυρο του Microsoft Visual Basic για εφαρμογές θα εμφανιστεί.

Στη συνέχεια, από Εισαγωγή >> επιλέξτε Ενότητα

Τώρα, πληκτρολογήστε τον ακόλουθο κώδικα στο Ενότητα .

 Sub Get_Reminder() Dim n As Integer n = 29 Mod 3 MsgBox " 29 Mod 3 is " & n End Sub 

Εδώ, στο Λήψη_Υπενθύμισης υποδιαδικασία, δήλωσα τη μεταβλητή n ως Ακέραιος αριθμός και το χρησιμοποίησε για να κρατήσει την επιστρεφόμενη τιμή του Mod χειριστή.

Στη συνέχεια χρησιμοποιήθηκε το MsgBox για να δείξει το υπόλοιπο .

Τώρα, Αποθήκευση τον κώδικα και επιστρέψτε στο φύλλο εργασίας.

Και πάλι, ανοίξτε το Προγραμματιστής καρτέλα>> από Εισαγωγή >> επιλέξτε Κουμπί από το Έλεγχοι φόρμας

Τώρα, Drag το Κουμπί για να το τοποθετήσετε εκεί που θέλετε να δώσετε τη λεζάντα.

Στη συνέχεια, μπορείτε να δώσετε ένα όνομα στο κουμπί.

➤ Το ονόμασα Λάβετε υπενθύμιση .

⏩ Τώρα, δεξί κλικ στο ποντίκι ένα μενού περιβάλλοντος Ανάθεση Μάκρο θα εμφανιστεί.

Από εκεί επιλέξτε Ανάθεση μακροεντολών .

⏩ A παράθυρο διαλόγου του Ανάθεση μακροεντολών θα εμφανιστεί.

Στη συνέχεια, επιλέξτε το Όνομα μακροεντολής και Μακροεντολές σε .

⏩ Επέλεξα Λήψη_Υπενθύμισης από το Όνομα μακροεντολής και επέλεξε VBA Mod.xlsm από το Μακροεντολές σε .

Τέλος, κάντε κλικ στο OK .

Στη συνέχεια, κάντε κλικ στο κουμπί με το όνομα Λήψη_Υπενθύμισης .

Ως εκ τούτου, θα παρουσιάσει ένα πλαίσιο msg με το υπόλοιπο .

Μπορείτε να το κάνετε για όλα τα αριθμοί για να λάβετε το υπόλοιπο .

Διαβάστε περισσότερα: Λειτουργία μορφοποίησης VBA στο Excel (8 χρήσεις με παραδείγματα)

2. Χρήση αναφοράς κελιού σε VBA Mod για να λάβετε το υπόλοιπο

Με τη χρήση Αναφορά κυττάρου από το φύλλο του Excel, μπορείτε να πάρετε το υπόλοιπο από το VBA Mod .

Για να ανοίξετε το VBA editor, ακολουθήστε τα βήματα που εξηγούνται στην ενότητα 1.

Στη συνέχεια, πληκτρολογήστε τον ακόλουθο κώδικα στο Ενότητα .

 Sub Reminder_Using_CellReference() Dim n As Integer n = Range("B4").Value Mod Range("C4").Value MsgBox Range("B4").Value &- " Mod " &- Range("C4").Value &- " is " &- n End Sub 

Εδώ, στο Reminder_Using_CellReference , δήλωσα τη μεταβλητή n ως Ακέραιος αριθμός και το χρησιμοποίησε για να κρατήσει την επιστρεφόμενη τιμή του Mod χειριστή.

Στη συνέχεια, χρησιμοποιήθηκε η αναφορά κελιού B4 ως number1 και C4 ως number2 (διαιρέτης)

Στη συνέχεια χρησιμοποιήθηκε το MsgBox για να δείξει το υπόλοιπο .

Τώρα, Αποθήκευση τον κώδικα και επιστρέψτε στο φύλλο εργασίας.

Για να εισαγάγετε το Κουμπί , ακολουθήστε τα βήματα που εξηγούνται στην ενότητα 1.

➤ Ονόμασα το κουμπί Αναφορά κυττάρου .

Μετά από αυτό, κάντε κλικ στο Κουμπί για να εκτελέσετε το VBA κωδικός.

Ως εκ τούτου, θα λάβετε το υπόλοιπο για τη χρησιμοποιούμενη αναφορά κελιού.

Σχετικό περιεχόμενο: Πώς να επιστρέφετε μια τιμή σε συνάρτηση VBA (τιμές τόσο σε συστοιχίες όσο και σε μη συστοιχίες)

3. Χρήση του VBA Mod για να λάβετε ένα υπόλοιπο από έναν αρνητικό αριθμό

Το VBA Mod υποστηρίζει επίσης αρνητικό αριθμοί κατά τον υπολογισμό του υπόλοιπο .

Για να ανοίξετε το VBA editor, ακολουθήστε τα βήματα που εξηγούνται στην ενότητα 1.

Στη συνέχεια, πληκτρολογήστε τον ακόλουθο κώδικα στο Ενότητα .

 Sub Reminder_From_NegativeNumber() Dim n As Integer n = Range("B5").Value Mod Range("C5").Value MsgBox Range("B5").Value &- " Mod " &- Range("C5").Value &- " is " &- n End Sub 

Εδώ, στο Reminder_From_NegativeNumber, Δήλωσα τη μεταβλητή n ως Ακέραιος αριθμός και το χρησιμοποίησε για να κρατήσει την επιστρεφόμενη τιμή του Mod χειριστή.

Στη συνέχεια, χρησιμοποιήθηκε η αναφορά κελιού B5 ως number1 και C5 ως number2 (διαιρέτης)

Στη συνέχεια χρησιμοποιήθηκε το MsgBox για να δείξει το υπόλοιπο .

Τώρα, Αποθήκευση τον κώδικα και επιστρέψτε στο φύλλο εργασίας.

Για να εισάγετε το Κουμπί, ακολουθήστε τα βήματα που εξηγούνται στην ενότητα 1.

➤ Ονόμασα το κουμπί Υπενθύμιση από αρνητικό αριθμό .

Μετά από αυτό, κάντε κλικ στο Κουμπί για να εκτελέσετε το VBA κωδικός.

Ως εκ τούτου, θα λάβετε το υπόλοιπο για το αρνητικός αριθμός .

Διαβάστε περισσότερα: Πώς να χρησιμοποιήσετε τη συνάρτηση IsNumeric της VBA (9 παραδείγματα)

4. Χρήση της τροποποίησης VBA για να λάβετε το υπόλοιπο στο κελί

Αντί να δείχνει το υπόλοιπο μέσω του msg κουτί μπορείτε να το τοποθετήσετε σε ένα κελί χρησιμοποιώντας την εντολή VBA MOD λειτουργία.

Για να ανοίξετε το VBA editor, ακολουθήστε τα βήματα που εξηγούνται στην ενότητα 1.

Στη συνέχεια, πληκτρολογήστε τον ακόλουθο κώδικα στο Ενότητα .

 Sub Reminder_in_Cell() ActiveCell.FormulaR1C1 = "=MOD(RC[-2],RC[-1])" Range("D4").Select End Sub 

Εδώ, στο s ub-procedure Reminder_in_Cell , χρησιμοποίησα το ActiveCell.FormulaR1C1 μορφή για να λάβετε τη θέση του ActiveCell .

Στη συνέχεια, χρησιμοποίησε το MOD συνάρτηση για να λάβετε το υπόλοιπο .

Επίσης, χρησιμοποίησε το Επιλέξτε μέθοδος.

Τώρα, Αποθήκευση τον κώδικα και επιστρέψτε στο φύλλο εργασίας.

Για να εισάγετε το Κουμπί και αναθέστε το VBA ακολουθήστε τα βήματα που εξηγούνται στην ενότητα 1.

➤ Ονόμασα το κουμπί Υπενθύμιση στο κελί .

Στη συνέχεια, επιλέξτε το D4 κύτταρο.

Στη συνέχεια, κάντε κλικ στο Κουμπί για να εκτελέσετε το VBA κωδικός.

Ως αποτέλεσμα, θα λάβετε το υπόλοιπο στο επιλεγμένο κελί.

Ακολουθώντας την ίδια διαδικασία, θα λάβετε το υπόλοιπο για τους υπόλοιπους αριθμούς.

Διαβάστε περισσότερα: Πώς να χρησιμοποιήσετε τη λειτουργία MsgBox στο Excel VBA (μια πλήρης κατευθυντήρια γραμμή)

5. Χρήση της VBA Mod με ακέραιο διαιρέτη & δείκτη; Αριθμός κινητής υποδιαστολής

Σε περίπτωση που η διαιρέτης είναι μια integer τύπου, αλλά το αριθμός είναι σε float τότε μπορείτε να χρησιμοποιήσετε το VBA Mod χειριστή.

Για να ανοίξετε το VBA editor, ακολουθήστε τα βήματα που εξηγούνται στην ενότητα 1.

Στη συνέχεια, πληκτρολογήστε τον ακόλουθο κώδικα στο Ενότητα .

 Sub Reminder_From_Decimal_Number() Dim n As Integer n = Range("B5").Value Mod Range("C5").Value MsgBox Range("B5").Value &- " Mod " &- Range("C5").Value &- " is " &- n End Sub 

Εδώ, στο R eminder_From_Decimal_Number υπο-διαδικασία, Δήλωσα τη μεταβλητή n ως Ακέραιος αριθμός και το χρησιμοποίησε για να κρατήσει την επιστρεφόμενη τιμή του Mod χειριστή.

Στη συνέχεια, χρησιμοποιήθηκε η αναφορά κελιού B5 ως number1 και C5 ως number2 (διαιρέτης)

Στη συνέχεια χρησιμοποιήθηκε το MsgBox για να δείξει το υπόλοιπο .

Τώρα, Αποθήκευση τον κώδικα και επιστρέψτε στο φύλλο εργασίας.

Για να εισάγετε το Κουμπί , ακολουθήστε τα βήματα που εξηγούνται στην ενότητα 1.

➤ Ονόμασα το κουμπί Υπενθύμιση από δεκαδικό αριθμό .

Μετά από αυτό, κάντε κλικ στο Κουμπί για να εκτελέσετε το VBA κωδικός.

Ως εκ τούτου, θα λάβετε το υπόλοιπο για το δεκαδικός αριθμός .

Υπάρχει όμως ένα πρόβλημα που Η VBA στρογγυλοποιεί το δεκαδικό . Εδώ, το αποτέλεσμα υποτίθεται ότι θα ήταν 2.25 αλλά το VBA Mod στρογγυλοποιήθηκε σε 2 .

Θυμηθείτε εάν κάποιο decimal/floating σημείο είναι μεγαλύτερο από 0.5 στο VBA Mod τότε θα είναι στρογγυλοποιημένα στην επόμενη ακέραια τιμή.

Εάν είναι μικρότερη από 0.5 στο VBA Mod , τότε θα είναι στρογγυλοποιημένα στην υπάρχουσα ακέραια τιμή.

Διαβάστε περισσότερα: Πώς να χρησιμοποιήσετε τη λειτουργία VBA Int στο Excel ( 3 παραδείγματα)

Παρόμοιες αναγνώσεις:

• Πώς να χρησιμοποιήσετε τη συνάρτηση IsNull στο Excel VBA (5 παραδείγματα)
• Χρήση της συνάρτησης VBA Str στο Excel (4 παραδείγματα)
• Πώς να χρησιμοποιήσετε τη συνάρτηση εναλλαγής της VBA (6 κατάλληλα παραδείγματα)
• Χρήση της συνάρτησης VBA Len στο Excel (4 παραδείγματα)
• Πώς να αφαιρέσετε τα αντίγραφα στο φύλλο Excel (7 μέθοδοι)

6. Χρήση της VBA Mod όταν ο διαιρέτης & ο αριθμός είναι και οι δύο δεκαδικοί αριθμοί

Εάν το διαιρέτης και αριθμός και οι δύο είναι σε decimal/float τύπου, τότε μπορείτε επίσης να χρησιμοποιήσετε το VBA Mod χειριστή.

Για να ανοίξετε το VBA editor, ακολουθήστε τα βήματα που εξηγούνται στην ενότητα 1.

Στη συνέχεια, πληκτρολογήστε τον ακόλουθο κώδικα στο Ενότητα .

 Sub Decimal_Both_Divisor_Number() Dim n As Integer n = Range("B5").Value Mod Range("C5").Value MsgBox Range("B5").Value &- " Mod " &- Range("C5").Value &- " is " &- n End Sub 

Εδώ, στο υπο-διαδικασία Decimal_Both_Divisor_Number, Δήλωσα τη μεταβλητή n ως Ακέραιος αριθμός και το χρησιμοποίησε για να κρατήσει την επιστρεφόμενη τιμή του Mod χειριστή.

Στη συνέχεια, χρησιμοποιήθηκε η αναφορά κελιού B5 ως number1 και C5 ως number2 (διαιρέτης)

Στη συνέχεια χρησιμοποιήθηκε το MsgBox για να δείξει το υπόλοιπο .

Τώρα, Αποθήκευση τον κώδικα και επιστρέψτε στο φύλλο εργασίας.

Για να εισαγάγετε το Κουμπί, ακολουθήστε τα βήματα που εξηγούνται στην ενότητα 1.

➤ Ονόμασα το κουμπί Αποκτήστε το Υπενθύμιση από όταν διαιρέτης & Αριθμός δεκαδικός .

Μετά από αυτό, κάντε κλικ στο Κουμπί για να εκτελέσετε το VBA κωδικός.

Ως εκ τούτου, θα λάβετε το υπόλοιπο και για τις δύο δεκαδικός διαιρέτης και αριθμοί .

Υπάρχει όμως ένα πρόβλημα που VBA στρογγυλοποιεί το δεκαδικό . Εδώ, το αποτέλεσμα υποτίθεται ότι θα ήταν 1.75 αλλά το VBA Mod στρογγυλοποιήθηκε σε 2 .

Σχετικό περιεχόμενο: Λειτουργία VBA EXP στο Excel (5 παραδείγματα)

7. VBA Mod για τη στρογγυλοποίηση δεκαδικού αριθμού μεγαλύτερου από 0,5

Εδώ, θα σας δείξω πώς η Συγκέντρωση εργάζεται στο VBA Mod .

Για να σας δείξω το δεκαδικό σημειακό πρόβλημα, πρώτα θα υπολογίσω το υπόλοιπο χρησιμοποιώντας το Excel MOD λειτουργία.

Στο κελί D4 , πληκτρολογήστε τον ακόλουθο τύπο,

Εδώ, χρησιμοποίησα B6 ως αριθμός C6 ως διαιρέτης .

Στη συνέχεια, πατήστε ENTER για να λάβετε το υπόλοιπο και θα λάβετε το υπόλοιπο η οποία θα είναι 7.7 .

Τώρα, ας υπολογίσουμε μέσω VBA Mod , για να ανοίξετε το VBA συντάκτης ακολουθήστε τα βήματα που εξηγούνται στην ενότητα 1.

Στη συνέχεια, πληκτρολογήστε τον ακόλουθο κώδικα στο Ενότητα .

 Sub RoundsUp_Number() Dim n As Integer n = Range("B6").Value Mod Range("C6").Value MsgBox Range("B6").Value &- " Mod " &- Range("C6").Value &- " is " &- n End Sub 

Εδώ, στο υπο-διαδικασία Decimal_Both_Divisor_Number, Δήλωσα τη μεταβλητή n ως Ακέραιος αριθμός και το χρησιμοποίησε για να κρατήσει την επιστρεφόμενη τιμή του Mod χειριστή.

Στη συνέχεια, χρησιμοποιήθηκε η αναφορά κελιού B6 ως number1 και C6 ως number2 (διαιρέτης)

Στη συνέχεια χρησιμοποιήθηκε το MsgBox για να δείξει το υπόλοιπο .

Τώρα, Αποθήκευση τον κώδικα και επιστρέψτε στο φύλλο εργασίας.

Για να εισάγετε το Κουμπί , ακολουθήστε τα βήματα που εξηγούνται στην ενότητα 1.

➤ Ονόμασα το κουμπί RoundsUp Δεκαδικός αριθμός .

Μετά από αυτό, κάντε κλικ στο Κουμπί για να εκτελέσετε το VBA κωδικός.

Ως εκ τούτου, θα λάβετε το υπόλοιπο για τη χρησιμοποιούμενη αναφορά κελιού.

Κοιτάξτε προσεκτικά το υπόλοιπο ότι η VBA Mod επέστρεψε. MOD για τις ίδιες τιμές που επιστρέφονται 7.7 αλλά το VBA Mod ο χειριστής επέστρεψε 0 . Ως το VBA στρογγυλοποίησε τις τιμές.

Διαβάστε περισσότερα: Πώς να χρησιμοποιήσετε τη συνάρτηση VBA Round στο Excel (6 γρήγορες χρήσεις)

8. Καθορισμός ζυγού ή μονόζυγου αριθμού

Το VBA Mod καθορίζει επίσης το Ακόμη και ή Περίεργο αριθμός από ένα δεδομένο εύρος.

Για να ανοίξετε το VBA editor, ακολουθήστε τα βήματα που εξηγούνται στην ενότητα 1.

Στη συνέχεια, πληκτρολογήστε τον ακόλουθο κώδικα στο Ενότητα .

 Sub Determine_Even_Or_Odd() Dim n As Integer For n = Range("B4").Value To Range("B8").Value If n Mod 2 = 0 Then MsgBox n & " is an even number!" Else MsgBox n & " is an odd number!" End If Next n End Sub 

Εδώ, στο υπο-διαδικασία Determine_Even_Or_Odd, Δήλωσα τη μεταβλητή n ως Ακέραιος αριθμός .

Στη συνέχεια, χρησιμοποίησα ένα Για το βρόχο όπου κρατούσα την τιμή που δήλωσα μέσω της αναφοράς κελιού.

Στη συνέχεια, χρησιμοποίησα ένα ΕΆΝ συνάρτηση όπου ορίζω τα κριτήρια ως n Mod 2 = 0 αν η τιμή είναι αληθής, τότε θα επιστρέψει ένα Ακόμη και δήλωση αλλιώς Περίεργο .

Στη συνέχεια χρησιμοποιήθηκε το MsgBox για να δείξει το δηλώσεις .

Τώρα, Αποθήκευση τον κώδικα και επιστρέψτε στο φύλλο εργασίας.

Για να εισάγετε το Κουμπί , ακολουθήστε τα βήματα που εξηγούνται στην ενότητα 1.

➤ Ονόμασα το κουμπί Ζυγός ή περιττός .

Μετά από αυτό, κάντε κλικ στο Κουμπί για να εκτελέσετε το VBA κωδικός.

Επομένως, θα μάθετε ποια τιμή είναι Ακόμη και και ποια είναι Περίεργο .

Ορίστε, 1 είναι η Περίεργο αριθμός.

Ορίστε, 2 είναι η Ακόμη και αριθμός.

Διαβάστε περισσότερα: Δήλωση VBA If - Then - Else στο Excel (4 παραδείγματα)

9. Χρήση της περιοχής κελιών στην VBA Mod για να λάβετε το υπόλοιπο

Μπορείτε επίσης να χρησιμοποιήσετε το εύρος κελιών για να λάβετε το υπόλοιπο χρησιμοποιώντας το VBA Mod .

Για να ανοίξετε το VBA editor, ακολουθήστε τα βήματα που εξηγούνται στην ενότητα 1.

Στη συνέχεια, πληκτρολογήστε τον ακόλουθο κώδικα στο Ενότητα .

 Sub Get_Reminder_UsingVBA() Dim n As Integer For n = 4 To 9 MsgBox Cells(n, 2).Value Mod Cells(n, 3) Next n End Sub 

Εδώ, στο Υποδιαδικασία Get_Reminder_UsingVBA, Δήλωσα τη μεταβλητή n ως Ακέραιος αριθμός .

Στη συνέχεια, χρησιμοποίησα ένα Για το βρόχο όπου κρατούσα την τιμή που δήλωσα μέσω της αναφοράς κελιού. Ο βρόχος θα λειτουργήσει για τις τιμές από τις γραμμές 4 στο 9 .

Στη συνέχεια χρησιμοποιήθηκε το MsgBox για να δείξει το υπόλοιπο .

Τώρα, Αποθήκευση τον κώδικα και επιστρέψτε στο φύλλο εργασίας.

Για να εισαγάγετε το Κουμπί , ακολουθήστε τα βήματα που εξηγούνται στην ενότητα 1.

➤ Ονόμασα το κουμπί Δυναμική αναφορά κελιών .

Μετά από αυτό, κάντε κλικ στο Κουμπί για να εκτελέσετε το VBA κωδικός.

Ως εκ τούτου, θα λάβετε το υπόλοιπο για όλες τις χρησιμοποιούμενες τιμές μία προς μία.

Το πρώτο είναι για το αριθμός 29 όπου η διαιρέτης είναι 3 .

Το 2ο είναι για το αριθμός -47 όπου η διαιρέτης είναι 5 .

Ο βρόχος θα λειτουργήσει μέχρι να φτάσει στη σειρά 9 Το πέμπτο είναι για το αριθμός 59 όπου η διαιρέτης είναι 6 .

Σχετικό περιεχόμενο: Πώς να χρησιμοποιήσετε τη συνάρτηση τυχαίας επιλογής VBA στο Excel (5 παραδείγματα)

Διαφορά μεταξύ του Excel MOD & VBA Mod

Αν και στις περισσότερες περιπτώσεις οι τιμές επιστροφής είναι οι ίδιες για τις MOD συνάρτηση και η VBA Mod χειριστή, αλλά για ορισμένες περιπτώσεις το αποτέλεσμα διαφέρει μεταξύ τους. Επιτρέψτε μου να σας δείξω τη διαφορά μεταξύ τους.

Πράγματα που πρέπει να θυμάστε

🔺 Ο χειριστής θα στρογγυλοποιήσει το decimal/floating σημεία.

Τμήμα πρακτικής

Έχω δώσει ένα φύλλο εξάσκησης στο βιβλίο εργασίας για να εξασκηθείτε σε αυτά τα παραδείγματα που εξηγούνται.

Συμπέρασμα

Σε αυτό το άρθρο, έχω δείξει 9 παραδείγματα του Excel VBA Mod Προσπάθησα επίσης να καλύψω τους λόγους που εμφανίζουν συχνά σφάλματα. Μαζί με τα πράγματα που θα πρέπει να θυμάστε κατά τη χρήση του χειριστή. Μη διστάσετε να σχολιάσετε παρακάτω για κάθε είδους ερωτήματα και προτάσεις.