Λειτουργία γύρου Excel VBA
Η συνάρτηση στρογγυλού στο VBA είναι μια μαθηματική συνάρτηση η οποία όπως το ίδιο το όνομα προτείνει στρογγυλοποιεί προς τα πάνω ή προς τα κάτω τον δεδομένο αριθμό στο συγκεκριμένο σύνολο δεκαδικών ψηφίων που καθορίζει ο χρήστης, αυτή η συνάρτηση χρησιμοποιεί τη λογική του στρογγυλού ακόμη και που σημαίνει ότι παίρνει 5 αναφορά και οποιοσδήποτε αριθμός με το τελευταίο ψηφίο μετά το δεκαδικό είναι κάτω από 5 τότε είναι στρογγυλό προς τα κάτω και αντίστροφα.
Μπορείτε να στρογγυλοποιήσετε έναν αριθμό σε διψήφιο δεκαδικό, τριψήφιο δεκαδικό ή καθόλου δεκαδικό. Για παράδειγμα, εάν έχετε τον αριθμό 5.8697. Εάν στρογγυλοποιήσετε τον αριθμό σε διψήφιο δεκαδικό, θα είναι 5,87. Εάν στρογγυλοποιήσετε σε τρία ψηφία, τότε θα στρογγυλοποιηθεί σε 5,870. Εάν θέλετε να στρογγυλοποιήσετε στο μηδέν, τότε θα είναι 6.-
Σε τραπεζικούς αριθμούς, όλα τα δεκαδικά ψηφία που είναι μικρότερα από 0,5 θα στρογγυλοποιηθούν προς τα κάτω στην προηγούμενη ακέραια τιμή και όλα τα δεκαδικά ψηφία που είναι μεγαλύτερα ή ίσα με 0,5 θα στρογγυλοποιηθούν στην επόμενη ακέραια τιμή.
Ελπίζω να έχετε χρησιμοποιήσει τη συνάρτηση ROUND στο φύλλο εργασίας. Στο VBA, μπορούμε επίσης να χρησιμοποιήσουμε αυτήν τη λειτουργία, αλλά έχουμε μια διαφορά σε αυτές τις λειτουργίες. Θα δούμε τη διαφορά μεταξύ αυτών των δύο λειτουργιών αργότερα σε αυτό το άρθρο.
Σύνταξη
Ρίξτε μια ματιά στη σύνταξη της συνάρτησης Round.
Αριθμός: Αυτός είναι ο αριθμός που προσπαθούμε να στρογγυλοποιήσουμε.
(Αριθμός ψηφίων μετά την υποδιαστολή): Πόσα ψηφία χρειάζεστε μετά την δεκαδική τιμή.
Παραδείγματα
Ας υποθέσουμε ότι έχετε τον αριθμό 4.534 και θέλετε να στρογγυλοποιήσετε σε δύο ψηφία.
Ακολουθήστε τα παρακάτω βήματα.
Βήμα 1: Δηλώστε τη μεταβλητή ως Παραλλαγή.
Κώδικας:
Sub Round_Example1 () Dim K As Variant End Sub
Βήμα 2: Για αυτήν τη μεταβλητή " k ", αντιστοιχίστε την τιμή μέσω της συνάρτησης ROUND.
Κώδικας:
Sub Round_Example1 () Dim K As Variant K = Round (End Sub
Βήμα 3: Ο αριθμός δεν είναι τίποτα, αλλά ποιος είναι ο αριθμός που προσπαθούμε να στρογγυλοποιήσουμε. Σε αυτήν την περίπτωση, ο αριθμός είναι 4.534
Κώδικας:
Sub Round_Example1 () Dim K As Variant K = Round (4.534, End Sub
Βήμα 4: Πόσα ψηφία πρέπει να στρογγυλοποιήσουμε; Σε αυτήν την περίπτωση, πρέπει να στρογγυλοποιήσουμε σε 2 ψηφία .
Κώδικας:
Sub Round_Example1 () Dim K As Variant K = Round (4.534, 2) End Sub
Βήμα 5: Τώρα δείξτε την τιμή μεταβλητής "k" στο πλαίσιο μηνυμάτων VBA.
Κώδικας:
Sub Round_Example1 () Dim K As Variant K = Round (4.534, 2) MsgBox K End Sub
Εκτελέστε αυτόν τον κωδικό και δείτε τι παίρνουμε.
Έχουμε το αποτέλεσμα ως 4,53 όταν στρογγυλοποιήσαμε σε 2 ψηφία.
Τώρα θα αλλάξω τον αριθμό από 4.534 σε 4.535 . Κοίτα τι συμβαίνει τώρα.
Κώδικας:
Sub Round_Example1 () Dim K As Variant K = Round (4.535, 2) MsgBox K End Sub
Τώρα εκτελέστε τον κώδικα και δείτε τι είναι το αποτέλεσμα.
Πήραμε το αποτέλεσμα ως 4,54, ένα δεκαδικό υψηλότερο από την προηγούμενη τιμή του 4.53. Αυτό συμβαίνει επειδή, σε αυτό το παράδειγμα, έχουμε δώσει τον αριθμό όπως το 4.535, οπότε αφού ο αριθμός 3 ο επόμενος αριθμός είναι 5, οπότε στρογγυλοποιείται στον επόμενο αριθμό, οπότε το 3 γίνεται 4
Τώρα θα δώσω τον αριθμό ως 2.452678 και θα προσπαθήσω να στρογγυλοποιήσω σε 3 ψηφία.
Κώδικας:
Sub Round_Example2 () Dim K As Variant K = Round (2.452678, 3) MsgBox K End Sub
Εκτελέστε αυτόν τον κωδικό για να δείτε το αποτέλεσμα.
Το αποτέλεσμα είναι 2.453 .
2,45 2678 Εδώ αριθμούς μετά το 2 nd δεκαδικό ψηφίο είναι 2678. Μετά τον αριθμό 2, ο επόμενος αριθμός είναι 6, το οποίο είναι μεγαλύτερο ή ίσο του 5, γι 'αυτό στρογγυλοποιείται στον επόμενο δεκαδικό αριθμό.
Τώρα θα χρησιμοποιήσω τον ίδιο αριθμό για να γυρίσω στο μηδέν και να δω τι συμβαίνει.
Κώδικας:
Sub Round_Example3 () Dim K As Variant K = Round (2.452678, 0) MsgBox K End Sub
Εκτελέστε τον κωδικό και δείτε τι παίρνουμε.
Εφόσον έχω χρησιμοποιήσει τον γύρο στο μηδέν, έχουμε το αποτέλεσμα ως 2.
Ο λόγος για τον οποίο πήραμε το αποτέλεσμα ως 2 επειδή εδώ, ο δεκαδικός πρώτος αριθμός είναι 4, που είναι μικρότερος από 0,5, οπότε στρογγυλοποιείται προς τα κάτω.
Διαφορά μεταξύ συνάρτησης Excel και VBA ROUND
Υπάρχουν κυρίως 2 διαφορές.
# 1 - Σύνταξη και των δύο λειτουργιών:
Αν κοιτάξετε τη σύνταξη και των δύο της συνάρτησης, έχουμε μια διαφορά εδώ.
Excel Round Syntax: Round (Αριθμός, αριθμός ψηφίων μετά την υποδιαστολή)
VBA Round Syntax: Round (Αριθμός, (Αριθμός ψηφίων μετά την υποδιαστολή))
Στο excel, και τα δύο επιχειρήματα είναι υποχρεωτικά, αλλά στο δεύτερο όρισμα VBA είναι προαιρετικό.
Στο VBA, εάν αγνοήσετε το δεύτερο όρισμα, παίρνει το προεπιλεγμένο όρισμα ως μηδέν, οπότε θα λάβουμε ολόκληρο τον αριθμό.
# 2 - Αποτελέσματα:
Τα αποτελέσματα που δίνονται από αυτές τις δύο συναρτήσεις είναι διαφορετικά. Ακολουθούν μερικά παραδείγματα
