Γύρος VBA
Η συνάρτηση VBA Round στρογγυλοποιεί τους αριθμούς σε έναν καθορισμένο αριθμό ψηφίων.
Σύνταξη της συνάρτησης VBA Round
Η σύνταξη της συνάρτησης VBA Round είναι:
Γύρος (Έκφραση, [Δεκαδικοί_χώροι]) όπου:
- Έκφραση - Ο αριθμός προς στρογγυλοποίηση.
- Δεκαδικά ψηφία (Προαιρετικός) - Ένας ακέραιος αριθμός που καθορίζει τον αριθμό δεκαδικών ψηφίων για στρογγυλοποίηση. Η τιμή πρέπει να είναι μεγαλύτερη ή ίση με 0 (> = 0). Εάν είναι κενό, χρησιμοποιείται η προεπιλογή του 0, που σημαίνει ότι η συνάρτηση στρογγυλοποιείται στον πλησιέστερο ακέραιο.
Έτσι, ας δούμε ένα παράδειγμα, ώστε να μπορείτε να δείτε πώς λειτουργεί η λειτουργία VBA Round, στρογγυλοποιώντας το 1 δεκαδικό ψηφίο:
12345 | Υπο γύρος 1 ()Msgbox Round (7.25, 1)Τέλος υπο |
Το MessageBox που προκύπτει:
VBA Round a Variable
Στο παραπάνω παράδειγμα, καταχωρήσαμε τον προς στρογγυλοποίηση αριθμό απευθείας στη συνάρτηση, συνήθως όμως, αντ 'αυτού στρογγυλοποιούμε μια μεταβλητή. Το παρακάτω είναι ένα παράδειγμα που χρησιμοποιεί μια μεταβλητή αντ 'αυτού:
Σημείωση: Χρησιμοποιούμε τον τύπο διπλής μεταβλητής για να αποθηκεύσουμε δεκαδικές τιμές.
123456789 | Sub RoundUsingVariable ()Μονάδα μετρητή μονάδας ως διπλόunitcount = 7,25MsgBox "The value is" & Round (unitcount, 1)Τέλος υπο |
Το αποτέλεσμα είναι:
Αποτελέσματα στρογγυλοποίησης VBA
Πραγματικός αριθμός | Αριθμός δεκαδικών τόπων | Αποτέλεσμα |
---|---|---|
7.25 | 0 | 7 |
7.25 | 1 | 7.2 |
7.25 | 2 | 7.25 |
-7.25 | 1 | -7.2 |
-7.25 | 2 | -7.25 |
Κουραστήκατε να ψάχνετε για παραδείγματα κώδικα VBA; Δοκιμάστε το AutoMacro!
VBA Round Cell Value
Μπορείτε επίσης να στρογγυλοποιήσετε μια τιμή κελιού απευθείας στο VBA:
123 | Sub RoundCell ()Εύρος ("A1"). Τιμή = Στρογγυλή (Εύρος ("A1"). Τιμή, 2)Τέλος υπο |
Λειτουργία VBA RoundUp
Ας υποθέσουμε ότι θέλετε να στρογγυλοποιήσετε έναν αριθμό, χρησιμοποιώντας το VBA. Δεν υπάρχει ενσωματωμένη ισοδύναμη συνάρτηση VBA RoundUp, αλλά μπορείτε να καλέσετε τη συνάρτηση φύλλου εργασίας του Excel RoundUp από τον κωδικό VBA:
1 | roundupUnitcount = Application.WorksheetFunction.RoundUp (unitcount, 3) |
Οι λειτουργίες του φύλλου εργασίας του Excel είναι διαθέσιμες για χρήση στο VBA, μέσω της χρήσης του Φύλλο εργασίας αντικείμενο. Οι μόνες λειτουργίες φύλλου εργασίας που δεν μπορείτε να καλέσετε είναι αυτές που έχουν ήδη ενσωματωμένο ισοδύναμο VBA.
Μια υπενθύμιση της σύνταξης της συνάρτησης στρογγυλοποίησης φύλλου εργασίας του Excel:
ROUNDUP (αριθμός, ψηφία) όπου:
- Αριθμός - Ο αριθμός που θα θέλατε να στρογγυλοποιηθεί.
- Digηφία - Ο αριθμός των ψηφίων που θέλετε να στρογγυλοποιήσετε τον αριθμό.
Έτσι, ας δούμε ένα παράδειγμα, ώστε να μπορείτε να δείτε πώς να αποκτήσετε πρόσβαση στη συνάρτηση φύλλου εργασίας RoundUp στον κώδικα VBA:
12345678910111213 | Sub RoundUp ()Μικρή μονάδα αριθμού ως διπλόDim roundupUnitcount As Doubleunitcount = 7.075711roundupUnitcount = Application.WorksheetFunction.RoundUp (unitcount, 4)MsgBox "The value is" & roundupUnitcountΤέλος υπο |
Το αποτέλεσμα είναι:
RoundUp στον πλησιέστερο ακέραιο αριθμό
Μπορείτε να στρογγυλοποιήσετε τον πλησιέστερο ακέραιο αριθμό καθορίζοντας το 0 ως τον αριθμό δεκαδικών ψηφίων:
12345 | Sub RoundUpWhole ()MsgBox Application.WorksheetFunction.RoundUp (7.1, 0)Τέλος υπο |
Το αποτέλεσμα παραδόθηκε:
Προγραμματισμός VBA | Το Code Generator λειτουργεί για εσάς!
Αποτελέσματα συνάρτησης RoundUp
Πραγματικός αριθμός | Ψηφία | Αποτέλεσμα |
---|---|---|
7.075711 | 0 | 8 |
7.075711 | 1 | 7.1 |
7.075711 | 2 | 7.08 |
7.075711 | 3 | 7.076 |
7.075711 | -1 | 10 |
7.075711 | -2 | 100 |
7.075711 | -3 | 1000 |
Λειτουργία VBA RoundDown
Ας υποθέσουμε ότι θέλετε να στρογγυλοποιήσετε έναν αριθμό προς τα κάτω, χρησιμοποιώντας το VBA. Δεν υπάρχει ούτε ενσωματωμένη ισοδύναμη συνάρτηση VBA RoundDown, αντί αυτού πάλι, αυτό που θα κάνατε είναι να καλέσετε τη συνάρτηση φύλλου εργασίας του Excel RoundDown από τον κώδικα VBA.
Μια υπενθύμιση της σύνταξης της συνάρτησης φύλλου εργασίας του Excel RoundDown:
ROUNDDOWN (αριθμός, ψηφία) όπου:
• Αριθμός - Ο αριθμός που θα θέλατε να στρογγυλοποιηθεί προς τα κάτω.
• Digηφία - Ο αριθμός των ψηφίων που θέλετε να στρογγυλοποιήσετε τον αριθμό.
Έτσι, ας δούμε ένα παράδειγμα, ώστε να μπορείτε να δείτε πώς να αποκτήσετε πρόσβαση στη συνάρτηση φύλλου εργασίας RoundDown στον κώδικα VBA:
12345678910111213 | Sub RoundDown ()Μονάδα μετρητή μονάδας ως διπλόDim rounddownUnitcount As Doubleunitcount = 5.225193rounddownUnitcount = Application.WorksheetFunction.RoundDown (unitcount, 4)MsgBox "Η τιμή είναι" & rounddownUnitcountΤέλος υπο |
Το αποτέλεσμα είναι:
RoundDown στον πλησιέστερο ακέραιο αριθμό
Μπορείτε να στρογγυλοποιήσετε τον πλησιέστερο ακέραιο αριθμό καθορίζοντας το 0 ως τον αριθμό δεκαδικών ψηφίων:
12345 | Sub RoundDownWhole ()MsgBox Application.WorksheetFunction.RoundDown (7.8, 0)Τέλος υπο |
Το αποτέλεσμα είναι:
Αποτελέσματα συνάρτησης RoundDown
Πραγματικός αριθμός | Ψηφία | Αποτέλεσμα |
---|---|---|
5.225193 | 0 | 5 |
5.225193 | 1 | 5.2 |
5.225193 | 2 | 5.22 |
5.225193 | 3 | 5.225 |
5.225193 | -1 | 0 |
5.225193 | -2 | 0 |
5.225193 | -3 | 0 |
Προγραμματισμός VBA | Το Code Generator λειτουργεί για εσάς!
Άλλες λειτουργίες στρογγυλοποίησης VBA
Οροφή VBA - Στρογγυλοποίηση έως μια καθορισμένη σημασία
Το VBA δεν έχει ισοδύναμη συνάρτηση Ceiling.Math, οπότε αν θέλετε να στρογγυλοποιήσετε έναν αριθμό στον πλησιέστερο ακέραιο ή στο πλησιέστερο καθορισμένο πολλαπλάσιο σημασίας, τότε μπορείτε να καλέσετε τη συνάρτηση φύλλου εργασίας Ceiling.Math του Excel από τον κωδικό VBA σας.
Υπενθύμιση της σύνταξης του ανώτατου ορίου φύλλου εργασίας του Excel. Μαθηματική συνάρτηση:
CEILING.MATH (Αριθμός, [Σημασία], [Λειτουργία]) όπου:
- Αριθμός - Ο αριθμός που θέλετε να στρογγυλοποιήσετε.
- Σημασία (Προαιρετικός) - Το πολλαπλάσιο στο οποίο θέλετε να στρογγυλοποιηθεί ο αριθμός σας.
- Τρόπος (Προαιρετικός) - Ελέγχει εάν οι αρνητικοί αριθμοί στρογγυλοποιούνται προς ή μακριά από το μηδέν.
Έτσι, ας δούμε ένα παράδειγμα, ώστε να μπορείτε να δείτε πώς να αποκτήσετε πρόσβαση στη συνάρτηση φύλλου εργασίας Ceiling.Math στον κώδικα VBA:
12345678910111213 | Sub RoundUpToSignificance ()Μονάδα μετρητή μονάδας ως διπλόDim tavmathUnitcount As Doubleunitcount = 4.1221roofmathUnitcount = Application.WorksheetFunction.Ceiling_Math (unitcount, 5)MsgBox "Η τιμή είναι" & ανώτατο όριο UnitcountΤέλος υπο |
Το αποτέλεσμα είναι:
VBA RoundUp στα καθορισμένα αποτελέσματα σημασίας
Πραγματικός αριθμός | Σημασία | Τρόπος | Αποτέλεσμα |
---|---|---|---|
4.1221 | 5 | ||
4.1221 | 3 | 6 | |
4.1221 | 50 | 50 | |
-4.1221 | 3 | -3 | |
-4.1221 | 3 | -1 | -6 |
VBA Floor - RoundDown to A Specified Σημασία
Η VBA δεν διαθέτει ισοδύναμη λειτουργία Floor. Ωστόσο, για άλλη μια φορά, εάν θέλετε να στρογγυλοποιήσετε έναν αριθμό στον πλησιέστερο ακέραιο ή στο πλησιέστερο καθορισμένο πολλαπλάσιο σημασίας, τότε μπορείτε να καλέσετε το Excel's Floor.Math φύλλο εργασίας από το VBA.
Μια υπενθύμιση της σύνταξης του φύλλου εργασίας του Excel Πάτωμα. Λειτουργία μαθηματικών:
FLOOR.MATH (Αριθμός, [Σημασία], [Λειτουργία]) όπου:
• Αριθμός - Ο αριθμός που θέλετε να στρογγυλοποιήσετε.
• Σημασία (Προαιρετικός) - Το πολλαπλάσιο στο οποίο θέλετε να στρογγυλοποιηθεί ο αριθμός σας.
• Λειτουργία (Προαιρετικός) - Ελέγχει εάν οι αρνητικοί αριθμοί στρογγυλοποιούνται προς ή μακριά από το μηδέν.
Έτσι, ας δούμε ένα παράδειγμα, ώστε να μπορείτε να δείτε πώς να αποκτήσετε πρόσβαση στη συνάρτηση Floor.Math Worksheet στον κώδικα VBA σας:
1234567891011 | Sub RoundDownToSignificance ()Μικρή μονάδα αριθμού ως διπλόDim floormathUnitcount As Doubleunitcount = 4.55555559floormathUnitcount = Application.WorksheetFunction.Floor_Math (unitcount, 2)MsgBox "Η τιμή είναι" & floormathUnitcountΤέλος υπο |
Το αποτέλεσμα είναι:
VBA RoundDown στα καθορισμένα αποτελέσματα σημασίας
Πραγματικός αριθμός | Σημασία | Τρόπος | Αποτέλεσμα |
---|---|---|---|
4.55555559 | 4 | ||
4.55555559 | 3 | 3 | |
4.55555559 | 50 | 0 | |
-4.55555559 | 3 | -6 | |
-4.55555559 | 3 | -1 | -3 |