Εδώ, θα βρείτε μερικές σχετικά απλές προσαρμοσμένες λειτουργίες φύλλου εργασίας του Excel VBA που είναι επίσης πολύ χρήσιμες. Αυτές οι συναρτήσεις ονομάζονται συναρτήσεις περιτυλίγματος επειδή αποτελούνται από κώδικα που είναι τυλιγμένος γύρω από εγγενή στοιχεία VBA. Με άλλα λόγια, σας επιτρέπουν να χρησιμοποιείτε συναρτήσεις VBA σε τύπους φύλλων εργασίας.
Λειτουργία Χρήστης()
' Επιστρέφει το όνομα του τρέχοντος χρήστη
Χρήστης = Εφαρμογή.Όνομα χρήστη
Λειτουργία τερματισμού
Αυτή η συνάρτηση, στην ουσία, επιτρέπει στους τύπους σας να έχουν πρόσβαση στην ιδιότητα UserName του αντικειμένου Εφαρμογή.
Η συνάρτηση NumberFormat
Αυτή η λειτουργία απλώς εμφανίζει τη μορφή αριθμού για ένα κελί. Μπορεί να είναι χρήσιμο εάν πρέπει να διασφαλίσετε ότι μια ομάδα κελιών έχουν όλα την ίδια μορφή αριθμού.
Συνάρτηση NumberFormat (Κελλί)
' Επιστρέφει τη μορφή αριθμού του κελιού
NumberFormat = Cell(1).NumberFormat
Λειτουργία τερματισμού
Παρατηρήστε τη χρήση του Κελιού (1); Εάν μια περιοχή πολλαπλών κελιών χρησιμοποιείται ως όρισμα, χρησιμοποιείται μόνο το πρώτο κελί.
Μπορείτε εύκολα να γράψετε παρόμοιες συναρτήσεις που επιστρέφουν το χρώμα κειμένου ενός κελιού, το χρώμα φόντου, τη γραμματοσειρά κ.λπ.
Η συνάρτηση ExtractElement
Αυτή η συνάρτηση περιτυλίγματος επιστρέφει μια δευτερεύουσα συμβολοσειρά από μια συμβολοσειρά κειμένου που περιέχει πολλά στοιχεία, που χωρίζονται από έναν διαχωριστικό χαρακτήρα. Για παράδειγμα, αυτός ο τύπος επιστρέφει το cow, το οποίο είναι το τρίτο στοιχείο σε μια συμβολοσειρά που χρησιμοποιεί ένα κενό ως διαχωριστικό. Τα ορίσματα, φυσικά, θα μπορούσαν να είναι αναφορές κελιών.
=ExtractElement ("γάτα αγελάδας αλόγου σκύλου", 3, "")
Εδώ είναι ο κώδικας, ο οποίος είναι ένα περιτύλιγμα για τη λειτουργία Split της VBA:
Συνάρτηση ExtractElement (Txt, n, Sep)
' Επιστρέφει το nο στοιχείο μιας συμβολοσειράς κειμένου, όπου το
Τα στοιχεία διαχωρίζονται με έναν καθορισμένο διαχωριστικό χαρακτήρα
ExtractElement = Split(Application.Trim(Txt), Sep)(n - 1)
Λειτουργία τερματισμού
Η παρακάτω εικόνα δείχνει τη συνάρτηση ExtractElement που χρησιμοποιείται σε τύπους φύλλων εργασίας. Η στήλη Α περιέχει τη συμβολοσειρά κειμένου, η στήλη Β περιέχει τον αριθμό στοιχείου που πρόκειται να εξαχθεί και η στήλη Γ περιέχει τον οριοθέτη (τα κελιά που φαίνονται κενά περιέχουν έναν χαρακτήρα διαστήματος).
Χρησιμοποιώντας τη συνάρτηση ExtractElement για να επιστρέψετε ένα στοιχείο από μια συμβολοσειρά.
Η συνάρτηση SayI
Αυτή η απλή συνάρτηση είναι ένα περιτύλιγμα για τη μέθοδο Speak του αντικειμένου Application.Speech. Χρησιμοποιεί μια συνθετική φωνή για να «μιλήσει» το επιχείρημα.
Συνάρτηση SayIt(txt)
Μιλάει το επιχείρημα
Application.Speech.Speak txt, True
Λειτουργία τερματισμού
Εδώ είναι ένα παράδειγμα:
=IF(C10>10000,SayIt("Over budget"),"OK")
Ο τύπος ελέγχει το κελί C10. Εάν η τιμή είναι μεγαλύτερη από 10.000, η συνάρτηση εκφωνεί το κείμενο: "Υπέρ προϋπολογισμού". Εάν η τιμή είναι μικρότερη από 10.000, η συνάρτηση εμφανίζει το κείμενο ΟΚ (και δεν λέει τίποτα).
Χρησιμοποιήστε με φειδώ. Εάν χρησιμοποιήσετε αυτήν τη λειτουργία περισσότερες από μία φορές, μπορεί να προκαλέσει μεγάλη σύγχυση. Επίσης, να θυμάστε ότι αυτή η συνάρτηση αξιολογείται κάθε φορά που υπολογίζεται το φύλλο εργασίας, επομένως η φωνή μπορεί να γίνει πολύ ενοχλητική εάν κάνετε πολλές αλλαγές. Αυτή η λειτουργία είναι πιθανώς πιο κατάλληλη για ψυχαγωγικούς σκοπούς.
Η συνάρτηση IsLike
Ο τελεστής Like του VBA είναι ένας πολύ ευέλικτος τρόπος σύγκρισης συμβολοσειρών κειμένου. Ελέγξτε το στο σύστημα βοήθειας VBA. Αυτή η συνάρτηση φέρνει αυτή τη δύναμη στους τύπους του φύλλου εργασίας σας:
Η συνάρτηση είναι σαν (κείμενο, μοτίβο)
' Επιστρέφει true αν το πρώτο όρισμα είναι σαν το δεύτερο
IsLike = κείμενο Όπως μοτίβο
Λειτουργία τερματισμού