Πίστωση εικόνας: mavoimages/iStock/Getty Images
Η εκμάθηση του τρόπου χρήσης της συνάρτησης "Roundup" του Excel από την ενσωματωμένη γλώσσα προγραμματισμού VBA ή τη Visual Basic for Applications, σας βοηθά να εκτελέσετε οποιαδήποτε συνάρτηση Excel από το VBA. Αυτή η δεξιότητα είναι χρήσιμη επειδή το Excel έχει πολλές λειτουργίες που δεν διαθέτει η VBA και που μπορεί να χρειαστεί να τις εφαρμόσετε από ένα πρόγραμμα VBA. Λάβετε υπόψη ότι η δυνατότητα VBA που σας επιτρέπει να πατήσετε στη συνάρτηση "Σύλληψη" δεν θα σας ειδοποιήσει για λανθασμένη σύνταξη ή όρισμα, όπως θα έκανε όταν χρησιμοποιείτε την τυπική διεπαφή φύλλου εργασίας.
Σκοπός
Η συνάρτηση "Roundup" του Excel στρογγυλοποιεί έναν αριθμό προς τα πάνω στον αριθμό των ψηφίων που καθορίζετε. Για παράδειγμα, η εκτέλεση του "Roundup (2.2, 0)" λέει στο Excel ότι θέλετε να στρογγυλοποιήσει τον αριθμό 2.2 στον επόμενο ακέραιο. Το "0" στο δεύτερο όρισμα λέει στο Excel ότι δεν θέλετε κανένα ψηφίο μετά την υποδιαστολή, κάτι που ισοδυναμεί με το να λέτε ότι θέλετε μια ακέραια απάντηση.
Το βίντεο της ημέρας
Στρογγυλή λειτουργία VBA
Το VBA δεν έχει ενσωματωμένη λειτουργία "Roundup". Η πλησιέστερη συνάρτηση που έχει είναι η συνάρτηση "Στρογγυλοποίηση", η οποία στρογγυλοποιείται προς τα πάνω ή προς τα κάτω ανάλογα με το αν το τελικό ψηφίο στον αριθμό που στρογγυλεύετε είναι μεγαλύτερο ή μικρότερο από 5. Για παράδειγμα, πληκτρολογώντας "Round (2.2, 0)" στο παράθυρο "Immediate" του VBA έχει ως αποτέλεσμα το 2, αντί για το 3 στο οποίο θα στρογγυλοποιούσε η συνάρτηση "Roundup" του Excel.
Ιδιότητα "Formula".
Αν και το VBA δεν έχει τη δική του συνάρτηση "Roundup", μπορεί να χρησιμοποιήσει τη συνάρτηση "Roundup" του Excel. Για να δώσει εντολή στη VBA να το κάνει αυτό, ορίστε την ιδιότητα "Formula" του εικονικού αντικειμένου "Range" στη συνάρτηση "Roundup". Το παρακάτω παράδειγμα σάς δείχνει πώς να το κάνετε αυτό. Ανοίξτε το περιβάλλον ανάπτυξης VBA πατώντας ταυτόχρονα "Alt" και "F11" από το Excel. Κάντε κλικ με το ποντίκι στο παράθυρο "Άμεση" και, στη συνέχεια, πληκτρολογήστε την ακόλουθη δήλωση: "Εύρος ("A1"). Τύπος = "=Σύλληψη (2.2, 0)"." Επιστρέψτε στο Excel χρησιμοποιώντας το πάτημα του πλήκτρου "Alt-F11" που μόλις περιγράφηκε. Θα δείτε το αποτέλεσμα "3" στο κελί A1, υποδεικνύοντας ότι η δήλωσή σας εφάρμοσε με επιτυχία τη συνάρτηση "Roundup" του Excel.
Διαδραστικό Παράδειγμα
Μπορείτε να δημιουργήσετε ένα διαδραστικό πρόγραμμα VBA που δέχεται από έναν χρήστη τα ορίσματα για τη συνάρτηση "Roundup" και εμφανίζει το αποτέλεσμα αυτής της συνάρτησης. Αφού ανοίξετε το περιβάλλον ανάπτυξης VBA, επικολλήστε το ακόλουθο πρόγραμμα στο παράθυρο:
Public Sub roundUpANumber() Dim a1, a2, s a1 = CDbl (InputBox("Εισαγάγετε τον αριθμό που θέλετε να στρογγυλοποιήσετε")) a2 = CINT (InputBox("Εισαγάγετε τον αριθμό των δεκαδικών θέλετε να στρογγυλοποιήσετε τον αριθμό που μόλις εισαγάγατε.")) s = "=Σύλληψη(" & a1 & "," & a2 & ")" Εύρος ("A1"). Τύπος = s Εύρος ("A1") .Υπολογισμός MsgBox (Εύρος("A1").Τιμή) Τέλος Υπο
Εκτελέστε το πρόγραμμα κάνοντας κλικ σε μία από τις δηλώσεις του και, στη συνέχεια, κάνοντας κλικ στην εντολή "Εκτέλεση" του μενού "Εκτέλεση". Όταν το Excel σας ζητά τα ορίσματα της συνάρτησης, πληκτρολογήστε τα και πατήστε "Enter". Το πρόγραμμά σας θα εμφανίσει το αποτέλεσμα της συνάρτησης "Roundup" για τα ορίσματα που εισαγάγατε.
