Πώς να χρησιμοποιήσετε τις λειτουργίες περιτύλιξης στο Excel 2016 VBA

Εδώ θα βρείτε κάποιες σχετικά απλές προσαρμοσμένες λειτουργίες φύλλου εργασίας VBA του Excel που είναι επίσης πολύ χρήσιμες. Αυτές οι λειτουργίες ονομάζονται λειτουργίες περιτυλίγματος επειδή αποτελούνται από κώδικα που περιτυλίσσεται γύρω από εγγενή στοιχεία VBA. Με άλλα λόγια, σας επιτρέπουν να χρησιμοποιήσετε τις λειτουργίες VBA σε τύπους φύλλου εργασίας.

Λειτουργία Χρήστης () 'Επιστρέφει το όνομα του τρέχοντος χρήστη Χρήστη = Εφαρμογή. Λειτουργία τερματισμού χρήστη

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

Η συνάρτηση NumberFormat

Αυτή η λειτουργία εμφανίζει απλά τη μορφή αριθμού για ένα κελί. Μπορεί να είναι χρήσιμο εάν πρέπει να διασφαλίσετε ότι μια ομάδα κελιών έχει όλα την ίδια μορφή αριθμού.

Λειτουργία NumberFormat (Cell) 'Επιστρέφει τη μορφή αριθμού κυψέλης NumberFormat = Cell (1). ΑριθμόςFormat End Function

Παρατηρήστε τη χρήση του Cell (1); Εάν μια περιοχή multicell χρησιμοποιείται ως επιχείρημα, χρησιμοποιείται μόνο το πρώτο κελί.

Μπορείτε εύκολα να γράψετε παρόμοιες λειτουργίες που επιστρέφουν το χρώμα κειμένου ενός κελύφους, το χρώμα φόντου, τη γραμματοσειρά κ.ο.κ.

Η συνάρτηση ExtractElement

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

= ExtractElement ("cat cat cow cat", 3, "")

Εδώ είναι ο κώδικας, Sep) 'Επιστρέφει το nth στοιχείο μιας συμβολοσειράς κειμένου, όπου τα στοιχεία διαχωρίζονται από έναν καθορισμένο χαρακτήρα διαχωριστή ExtractElement = Διαίρεση (Application. Trim (Txt), Sep) (n - 1) End Function

η συνάρτηση ExtractElement που χρησιμοποιείται σε τύπους φύλλου εργασίας. Η στήλη Α περιέχει τη συμβολοσειρά κειμένου, η στήλη Β περιέχει τον αριθμό στοιχείου που πρόκειται να εξαχθεί και η στήλη C περιέχει τον οριοθέτη (τα κελιά που φαίνεται να είναι κενά περιέχουν ένα χαρακτήρα διαστήματος).

Χρησιμοποιώντας τη λειτουργία ExtractElement για να επιστρέψετε ένα στοιχείο από μια συμβολοσειρά.

Η συνάρτηση SayIt

Αυτή η απλή λειτουργία είναι ένα περιτύλιγμα για τη μέθοδο Speak της εφαρμογής. Αντικείμενο ομιλίας. Χρησιμοποιεί συνθετική φωνή για να "μιλήσει" το επιχείρημα.

Λειτουργία SayIt (txt) 'Μιλάει το αίτημα εφαρμογής. Ομιλία. Λάβετε txt, True End Λειτουργία

Εδώ είναι ένα παράδειγμα:

= IF (C10> 10000, SayIt ("Over budget"), "OK")

Εάν η τιμή είναι μεγαλύτερη από 10 000, η ​​λειτουργία μιλάει το κείμενο: "Πάνω από τον προϋπολογισμό."Εάν η τιμή είναι μικρότερη από 10, 000, η ​​λειτουργία εμφανίζει το κείμενο OK (και δεν λέει τίποτα).

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

Η λειτουργία IsLike

Ο χειριστής VBA του Like είναι ένας πολύ ευέλικτος τρόπος σύγκρισης των συμβολοσειρών κειμένου. Ελέγξτε το στο σύστημα Βοήθειας VBA. Αυτή η συνάρτηση φέρνει αυτή τη δύναμη στους τύπους φύλλου εργασίας σας:

Λειτουργία IsLike (κείμενο, μοτίβο) 'Επιστρέφει αληθές εάν το πρώτο όρισμα είναι σαν το δεύτερο IsLike = κείμενο Όπως πρότυπο End Function