VBA Enum - Βήμα προς βήμα Παραδείγματα χρήσης απαριθμήσεων VBA

Πίνακας περιεχομένων

Απαριθμήσεις VBA (Enum)

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

Απαριθμήσεις VBA (Enum)

Συνήθως δηλώνουμε μεταβλητές και τους αναθέτουμε τύπους δεδομένων. Οι συνηθισμένοι τύποι δεδομένων που χρησιμοποιούμε είναι "Ακέραιος, Μακρύς, Μονός, Διπλός, Παραλλαγή και Χορδές". Έχουμε όμως έναν ακόμη τύπο δεδομένων, δηλαδή το VBA "Enum". Πρέπει να σκέφτεστε τι είναι αυτό και να φαίνεται περίεργο, αλλά για να ξεκαθαρίσετε όλες τις αμφιβολίες σας, παρουσιάζουμε αυτό το άρθρο σχετικά με τους «Αριθμούς VBA».

Τι είναι το VBA Enum;

«Enum» σημαίνει απαρίθμηση. Το Enum είναι ένας τύπος μεταβλητής όπως η συμβολοσειρά ή ο ακέραιος αριθμός ή οποιοσδήποτε άλλος τύπος δεδομένων, αλλά εδώ δημιουργούμε ένα στοιχείο λίστας χρησιμοποιώντας τη δήλωση Enum του Excel VBA. Η απαρίθμηση σημαίνει «τη δράση της αναφοράς ορισμένων πραγμάτων ένα προς ένα».

Στο Excel, το VBA Enum είναι ένας τύπος που περιέχει απαρίθμηση σταθερών. Οι απαριθμήσεις δημιουργούν μια λίστα αντικειμένων και τις κάνουν σε μια ομάδα. Για παράδειγμα, τύπος κινητών: «Redmi, Samsung, Apple, Vivo, Oppo».

Χρησιμοποιώντας απαριθμήσεις, μπορούμε να ομαδοποιήσουμε όλα αυτά με μία μόνο τιμή. Το Enum μπορεί να χρησιμοποιηθεί ως μεταβλητές στο VBA και είναι ένας αριθμητικός τύπος δεδομένων μεταβλητής LONG.

Ο τύπος του VBA Enum

Εάν δεν καταλαβαίνετε τίποτα, μην ανησυχείτε. Θα το σιγά-σιγά πιάσετε. Τώρα ρίξτε μια ματιά στον τύπο του VBA Enum.

Enum GroupName Member1 = (Long) Member2 = (Long) Member3 = (Long) Member4 = (Long) Member5 = (Long) End Enum

Όπως είπα στην αρχή, το Enum μπορεί να χρησιμοποιηθεί ως μεταβλητή και είναι ο αριθμητικός τύπος δεδομένων μεταβλητών του Long.

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

Πριν ξεκινήσω τα παραδείγματα Enum, επιτρέψτε μου να σας δείξω το "Constant" παράδειγμα στο VBA. Το Constant είναι επίσης μια λέξη που χρησιμοποιείται για να δηλώσει τη μεταβλητή στο VBA.

Κοιτάξτε τους παρακάτω κωδικούς.

Κώδικας:

Επιλογή Explicit Const Samsung = 15000 Const VIVO = 18000 Const Redmi = 8500 Const Oppo = 18500 Sub Enum_Example1 () End Sub

Έχω δηλώσει τις μεταβλητές στην κορυφή της ενότητας χρησιμοποιώντας τη λέξη Const.

Const Samsung = 15000

Const VIVO = 18000

Const Redmi = 8500

Const Oppo = 18500

Τώρα ξέρω ότι όλες αυτές οι μεταβλητές είναι μέλη ομάδας της Mobile. Αν θέλω να χρησιμοποιήσω αυτές τις μεταβλητές, ας πούμε "Vivo" στην ενότητα.

Κώδικας:

Υπο Enum_Example1 () V End Sub

Καθώς ξεκινώ τον χαρακτήρα «v», βλέπω πολλά άλλα πράγματα του VBA να αναμιγνύονται μαζί τους ήταν τα πράγματα που ξεκινούν με το γράμμα «v».

Εδώ έρχεται η εικόνα του VBA «Enumerations».

Για καλύτερη κατανόηση, ας προσπαθήσουμε να αλλάξουμε το χρώμα φόντου του κελιού.

Κώδικας:

Υπο Enum_Example1 () AcriveCell.Interior.Color = RGB End Sub

Όπως μπορείτε να δείτε στον παραπάνω κώδικα, μπορούμε να δούμε όλα τα χρώματα RGB διαθέσιμα στο VBA. Αυτές είναι όλες οι σταθερές με υπέροχα ονόματα.

Στην πραγματικότητα, όλα αυτά τα χρώματα RGB αποτελούν μέρος της οικογενειακής απαρίθμησης που ονομάζεται " xlRGBColor".

Κώδικας:

Υπο Enum_Example1 () AcriveCell.Interior.Color = xlrg End Sub

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

Κώδικας:

Υπο Enum_Example1 () AcriveCell.Interior.Color = XlRgbColor. Τέλος Υποτ

Όπως μπορούμε να δούμε στην παραπάνω εικόνα, βλέπουμε μόνο συνδυασμούς χρωμάτων, τίποτα άλλο. Αυτή είναι η απλή επισκόπηση του «VBA Enum».

Εντάξει, τώρα θα επιστρέψουμε στο αρχικό μας παράδειγμα των μελών της ομάδας Mobile. Όπως και πώς έχουμε δει τα μέλη της ομάδας με χρώμα RGB με παρόμοιο τρόπο, μπορούμε να δηλώσουμε τις μεταβλητές χρησιμοποιώντας τη δήλωση VBA Enum

Κώδικας:

Enum Mobiles Samsung = 15000 VIVO = 18000 Redmi = 8500 Oppo = 18500 End Enum Sub Enum_Example1 () End Sub

Now I have declared all the mobile brands under the “Mobiles” group by using “Enum” statements.

By using the group name “Mobiles,” now I can access all these brands in the module.

Code:

Enum Mobiles Samsung = 15000 VIVO = 18000 Redmi = 8500 Oppo = 18500 End Enum Sub Enum_Example1() Mob End Sub

Select the group and put a dot to see all the members of the group.

Look, we can see only the group members of the group “Mobiles,” nothing else. This is how we can use VBA Enumerations to group a list of items under one roof.

Using VBA Enumeration Variables to Store the Data

Let’s see a simple example of using declared Enum variables. Declare Enum group name as “Department” and add department’s names as the group member.

Code:

Enum Mobiles Finance = 150000 HR = 218000 Sales = 458500 Marketing = 718500 End Enum Sub Enum_Example1() End Sub

I have declared each department’s salary numbers in front of them.

Now we will store the values of these numbers to excel sheet. Before applying the code, create a table like below.

Now go back to the basic visual editor and refer the cell B2 by using the RANGE object.

Code:

Sub Enum_Example1() Range("B2").Value = End Sub

In A2 cell, we have the Finance department, and so in B2 cell, we will store the salary of this department. So first, access the group name “Department.”

Code:

Sub Enum_Example1() Range("B2").Value = Dep End Sub

Now in this group, we can see only declared department names.

Code:

Sub Enum_Example1() Range("B2").Value = Department. End Sub

Select the department named “Finance.”

Code:

Υπο Enum_Example1 () Range ("B2"). Value = Department.Finance End Sub

Ομοίως, για όλα τα άλλα κελιά, επιλέξτε τα αντίστοιχα ονόματα τμημάτων.

Κώδικας:

Sub Enum_Example1 () Range ("B2"). Value = Department.Finance Range ("B3"). Value = Department.HR Range ("B4"). Value = Department.Marketing Range ("B5"). Value = Department Πώληση End Sub