seychellesartprojects.org

Λειτουργία γύρου Excel VBA

Η συνάρτηση στρογγυλού στο VBA είναι μια μαθηματική συνάρτηση η οποία όπως το ίδιο το όνομα προτείνει στρογγυλοποιεί προς τα πάνω ή προς τα κάτω τον δεδομένο αριθμό στο συγκεκριμένο σύνολο δεκαδικών ψηφίων που καθορίζει ο χρήστης, αυτή η συνάρτηση χρησιμοποιεί τη λογική του στρογγυλού ακόμη και που σημαίνει ότι παίρνει 5 ως το αναφορά και οποιοσδήποτε αριθμός με το τελευταίο ψηφίο μετά το δεκαδικό είναι κάτω από 5 τότε είναι στρογγυλό προς τα κάτω και αντίστροφα

Μπορείτε να στρογγυλοποιήσετε έναν αριθμό σε διψήφιο δεκαδικό, τριψήφιο δεκαδικό ή καθόλου δεκαδικό. Για παράδειγμα, εάν έχετε τον αριθμό 5.8697. Εάν στρογγυλοποιήσετε τον αριθμό σε διψήφιο δεκαδικό θα είναι 5,87 εάν στρογγυλοποιήσετε σε τρία ψηφία τότε θα στρογγυλοποιηθεί σε 5,870, εάν θέλετε να στρογγυλοποιήσετε στο μηδέν τότε θα είναι 6-

Σε τραπεζικούς αριθμούς, όλα τα δεκαδικά ψηφία που είναι μικρότερα από 0,5 θα στρογγυλοποιούνται προς τα κάτω στην προηγούμενη ακέραια τιμή και όλα τα δεκαδικά ψηφία που είναι μεγαλύτερα ή ίσα με 0,5 θα στρογγυλοποιούνται στην επόμενη ακέραια τιμή.

Ελπίζω να έχετε χρησιμοποιήσει τη συνάρτηση ROUND στο φύλλο εργασίας. Και στο VBA μπορούμε να χρησιμοποιήσουμε αυτήν τη λειτουργία, αλλά έχουμε μια διαφορά με αυτές τις λειτουργίες. Θα δούμε τη διαφορά μεταξύ αυτών των δύο λειτουργιών αργότερα σε αυτό το άρθρο.

Σύνταξη

Ρίξτε μια ματιά στη σύνταξη της συνάρτησης Round.

Αριθμός: Αυτός είναι ο αριθμός που προσπαθούμε να στρογγυλοποιήσουμε.

[Αριθμός ψηφίων μετά την υποδιαστολή]: Πόσα ψηφία χρειάζεστε μετά την δεκαδική τιμή.

Παραδείγματα

Μπορείτε να κατεβάσετε αυτό το Πρότυπο VBA Round Function Excel VBA εδώ - Πρότυπο VBA Round Function Excel

Ας υποθέσουμε ότι έχετε τον αριθμό 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ο δεκαδικό ψηφίο είναι 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 - Αποτελέσματα:

Το αποτέλεσμα που δίνεται από αυτές τις δύο λειτουργίες είναι διαφορετικό. Ακολουθούν μερικά παραδείγματα