seychellesartprojects.org

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

Παρόμοια με τη συνάρτηση φύλλου εργασίας όπου στρογγυλοποιούμε τους αριθμούς στους πλησιέστερους ακέραιους αριθμούς, στο VBA έχουμε μια συνάρτηση RoundUp που μειώνει το δεκαδικό σημείο για εμάς και η σύνταξη για τη χρήση της συνάρτησης στρογγυλοποίησης έχει ως εξής Στρογγυλοποίηση προς τα πάνω (Αριθμός, αριθμός ψηφίων μετά από δεκαδικό ) αυτά τα δύο ορίσματα στη συνάρτηση είναι υποχρεωτικά.

Όταν δουλεύουμε με αριθμούς και υπολογισμούς, λαμβάνουμε κλάσματα μετά από ολόκληρο τον αριθμό και είναι πολύ συνηθισμένο στην καθημερινή επιχείρηση. Γενικά δεν ασχολούμαστε με τις δεκαδικές τιμές επειδή δεν επηρεάζει το τελικό μας αποτέλεσμα. Σε αυτές τις περιπτώσεις, πρέπει να στρογγυλοποιήσουμε τους αριθμούς στον πλησιέστερο ακέραιο αριθμό ή τον άμεσο ακέραιο αριθμό. Χρησιμοποιώντας τη λειτουργία RoundUp μπορούμε πραγματικά να εκτελέσουμε αυτήν την εργασία.

Εάν έχετε πραγματοποιήσει αναζήτηση στο VBA για τη λειτουργία RoundUp, τότε δεν πρέπει να το βρείτε επειδή είναι μια συνάρτηση φύλλου εργασίας. Για να αποκτήσουμε πρόσβαση στη συνάρτηση RoundUp, πρέπει να χρησιμοποιήσουμε την κλάση Λειτουργία φύλλου εργασίας vba.

Πριν από αυτό θυμηθείτε τη σύνταξη της συνάρτησης RoundUp.

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

Μπορείτε να κάνετε λήψη αυτού του προτύπου VBA RoundUp Excel εδώ - Πρότυπο VBA RoundUp Excel

Ας εκτελέσουμε το έργο της στρογγυλοποίησης του αριθμού "288.5264". Θα δούμε όλους τους αριθμούς με αυτό το παράδειγμα.

Παράδειγμα # 1 - Όταν το δεύτερο επιχείρημα είναι μηδέν

Κοιτάξτε τον παρακάτω κώδικα VBA.

Κώδικας:

 Sub RoundUp_Example1 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, 0) MsgBox k End Sub 

• Όταν εκτελέσετε τον παραπάνω κωδικό, θα μετατρέψει τον παρεχόμενο αριθμό, δηλαδή 288.5264 στον πλησιέστερο ακέραιο αριθμό, δηλαδή 289

Παράδειγμα # 2 - Όταν το δεύτερο επιχείρημα είναι 1

Κοιτάξτε τον παρακάτω κώδικα για να δείτε τι συμβαίνει όταν περάσουμε ένα ως δεύτερο όρισμα.

Κώδικας:

 Sub RoundUp_Example2 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, 1) MsgBox k End Sub 

• Αυτός ο κωδικός θα μετατρέψει τον δεδομένο αριθμό σε ένα δεκαδικό σημείο, δηλαδή 288.6

Παράδειγμα # 3 - Όταν το δεύτερο επιχείρημα είναι 2

Κοιτάξτε τον παρακάτω κώδικα για να δείτε τι συμβαίνει όταν περάσουμε δύο ως δεύτερο όρισμα.

Κώδικας:

 Sub RoundUp_Example3 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, 2) MsgBox k End Sub 

• Αυτός ο κωδικός θα μετατρέψει τον δεδομένο αριθμό σε δύο δεκαδικά ψηφία, δηλαδή 288,53

Παράδειγμα # 4 - Όταν το δεύτερο επιχείρημα είναι 3

Κοιτάξτε τον παρακάτω κώδικα για να δείτε τι συμβαίνει όταν περάσουμε τρεις ως δεύτερο όρισμα

Κώδικας:

 Sub RoundUp_Example4 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, 3) MsgBox k End Sub 

• Αυτός ο κωδικός θα μετατρέψει τον δεδομένο αριθμό σε τρία δεκαδικά ψηφία, δηλαδή 288.527

Παράδειγμα # 5 - Όταν το δεύτερο επιχείρημα είναι -1

Κοιτάξτε τον παρακάτω κώδικα για να δείτε τι συμβαίνει όταν περάσουμε το μείον ένα ως δεύτερο όρισμα.

Κώδικας:

 Sub RoundUp_Example5 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, -1) MsgBox k End Sub 

• Αυτός ο κωδικός θα μετατρέψει τον δεδομένο αριθμό στο πλησιέστερο δέκα δηλαδή 290.

Παράδειγμα # 6 - Όταν το δεύτερο επιχείρημα είναι -2

Κοιτάξτε τον παρακάτω κώδικα για να δείτε τι συμβαίνει όταν περάσουμε μείον δύο ως δεύτερο όρισμα.

Κώδικας:

 Sub RoundUp_Example6 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, -2) MsgBox k End Sub 

• Αυτός ο κωδικός θα μετατρέψει τον δεδομένο αριθμό σε πλησιέστερο εκατό δηλαδή 300.

Παράδειγμα # 7 - Όταν το δεύτερο επιχείρημα είναι -3

Κοιτάξτε τον παρακάτω κώδικα για να δείτε τι συμβαίνει όταν περάσουμε μείον τρία ως δεύτερο όρισμα.

Κώδικας:

 Sub RoundUp_Example7 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, -3) MsgBox k End Sub 

• Αυτός ο κωδικός θα μετατρέψει τον αριθμό στις πλησιέστερες χιλιάδες δηλαδή 1000.

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