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

Μαθαίνοντας πώς να χρησιμοποιήσετε τη λειτουργία " Roundup " του Excel από την ενσωματωμένη γλώσσα προγραμματισμού VBA , ή Visual Basic for Applications , σας βοηθά να εκτελέσετε οποιαδήποτε λειτουργία του Excel από VBA . Αυτή η ικανότητα είναι χρήσιμο επειδή το Excel έχει πολλές λειτουργίες που VBA δεν έχει , και ότι μπορεί να χρειαστεί να εφαρμοστεί από ένα πρόγραμμα VBA . Σημειώστε ότι η δυνατότητα VBA που σας επιτρέπει να αξιοποιήσει τη λειτουργία " Roundup " δεν θα σας ειδοποιεί για μια εσφαλμένη σύνταξη ή επιχειρήματος , όπως όταν χρησιμοποιείτε το πρότυπο διασύνδεσης του φύλλου εργασίας . Σκοπός
Η

Η λειτουργία του Excel " Roundup " στρογγυλοποιεί έναν αριθμό προς τα πάνω προς τον αριθμό των ψηφίων που έχετε ορίσει . Για παράδειγμα , το τρέξιμο " Roundup ( 2.2 , 0 ) " λέει Excel θέλετε να στρογγυλοποιεί τον αριθμό 2.2 μέχρι το επόμενο ακέραιο αριθμό . Το " 0 " στο δεύτερο επιχείρημα λέει το Excel δεν θέλετε καμία ψηφία μετά την υποδιαστολή , το οποίο είναι ισοδύναμο με το ρητό που θέλετε μια απάντηση ακέραιο .
Εικόνων VBA Round Function

VBA δεν έχει μια λειτουργία " Roundup " χτισμένο in Το πιο κοντινό λειτουργία που έχει είναι το " Round ", η οποία στρογγυλοποιεί προς τα πάνω ή προς τα κάτω ανάλογα με το αν το τελικό ψηφίο του αριθμού είστε στρογγυλοποίηση είναι μεγαλύτερη ή λιγότερο από 5 . Για παράδειγμα , πληκτρολογώντας " Round ( 2.2 , 0 ) " στη VBA " Άμεση " παράθυρο αποτελεσμάτων σε 2 , αντί της 3, ότι η λειτουργία του Excel " Roundup " θα στρογγυλοποιεί προς τα πάνω.
Εικόνων
" Formula " Property
Η

Αν VBA δεν έχει " Roundup " λειτουργία της δικής του , μπορεί να χρησιμοποιήσει τη λειτουργία " Roundup " του Excel . Να αναθέσει στην VBA να το κάνετε αυτό , ορίστε την ιδιότητα "Τύπος" της " Range" εικονικό αντικείμενο τη λειτουργία " Roundup " . Το παρακάτω παράδειγμα δείχνει πώς μπορείτε να το κάνετε αυτό . Ανοίξτε το περιβάλλον ανάπτυξης VBA πατώντας το πλήκτρο " Alt " και " F11 " ταυτόχρονα μέσα από το Excel . Κάντε κλικ με το ποντίκι στο παράθυρο « Άμεση » , στη συνέχεια, πληκτρολογήστε την ακόλουθη δήλωση : " . . Range ( " A1 " ) Formula = " = Roundup ( 2.2 , 0 ) " " Επιστροφή στο Excel χρησιμοποιώντας το "Alt - F11 " πάτημα μόλις περιγράφηκε . θα δείτε το αποτέλεσμα " 3 " στο κελί A1 , υποδεικνύοντας τη δήλωσή σας εφαρμόστηκε με επιτυχία τη λειτουργία " Roundup " του Excel .
εικόνων Interactive Παράδειγμα
Η

Μπορείτε να κάνετε ένα διαδραστικό . πρόγραμμα VBA που δέχεται από το χρήστη τα επιχειρήματα για τη λειτουργία " Roundup " , και εμφανίζει το αποτέλεσμα αυτής της λειτουργίας Μετά το άνοιγμα του περιβάλλοντος ανάπτυξης VBA , επικολλήστε το ακόλουθο πρόγραμμα στο παράθυρο :

Public Sub roundUpANumber ( )

Δημ. α1 , α2 , s

a1 = CDbl ( InputBox ( " Εισάγετε τον αριθμό που θέλετε να στρογγυλεύουν " ) )

a2 = CInt ( InputBox ( " Εισάγετε τον αριθμό των δεκαδικών ψηφίων για το οποίο θα θέλατε να στρογγυλοποιεί τον αριθμό που μόλις άρχισε . " ) )

s = " = Roundup ( " & a1 & " , " & a2 & " ) "