Λεξικό VBA - Οδηγός για εργασία με λεξικά Excel VBA

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

Λεξικό Excel VBA

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

Το λεξικό VBA είναι πολύ δύσκολο να μπεις, αλλά θα προσπαθήσουμε το καλύτερό μας επίπεδο για να το κάνουμε εύκολο να το καταλάβεις. Μπορούμε να συγκρίνουμε τόσο Λεξικό όσο και Συλλογή στην ίδια κλίμακα, αλλά μερικά από τα λεξικά VBA προσφέρουν μερικές από τις λειτουργίες που δεν είναι διαθέσιμες με το αντικείμενο VBA Συλλογές.

Εργασία με λεξικά VBA

Για να δουλέψουμε με τα λεξικά VBA, το πρώτο πράγμα που πρέπει να κάνουμε είναι να ορίσουμε την αναφορά αντικειμένου σε «Microsoft Scripting Runtime».

Για να ορίσετε την αναφορά, ακολουθήστε τα παρακάτω βήματα.

Βήμα 1: Μεταβείτε στα Εργαλεία> Αναφορές.

Βήμα 2: Κάντε κύλιση προς τα κάτω και επιλέξτε την επιλογή "Microsoft Scripting Runtime" και, στη συνέχεια, κάντε κλικ στο OK.

Τώρα έχουμε πρόσβαση στο Λεξικό VBA με τη Βιβλιοθήκη Σενάριο.

Δημιουργία παρουσίας λεξικού με κώδικα VBA

Αφού ορίσετε την αναφορά στο «Microsoft Scripting Runtime», πρέπει να δημιουργήσουμε μια παρουσία του Λεξικού VBA. Αρχικά, δηλώστε τη μεταβλητή ως Scripting.Dictionary.

Κώδικας:

Υπο Dict_Example1 () Dim Dict As Scripting.Dictionary End Sub

Τώρα η μεταβλητή "Dict" είναι μια μεταβλητή αντικειμένου. Για μεταβλητή αντικειμένου, πρέπει να ορίσουμε την αναφορά αντικειμένου χρησιμοποιώντας τη λέξη "Νέο".

Ορισμός Dict = Νέο Scripting.Dictionary

Τώρα μπορούμε να έχουμε πρόσβαση σε όλες τις ιδιότητες και τις μεθόδους του λεξικού.

Σημείωση: Όλες οι λέξεις με πράσινο κουμπί είναι Μέθοδοι και άλλες είναι Ιδιότητες.

Τώρα δηλώστε μια μεταβλητή ως DictResult.

Dim DictResult ως παραλλαγή

Τώρα χρησιμοποιώντας τη μεταβλητή "Dict", θα δημιουργήσουμε ένα νέο κλειδί.

Το κλειδί είναι ποια είναι η λέξη που προσθέτουμε. Ας προσθέσουμε το όνομα του κινητού τηλεφώνου ως "Redmi".

Το στοιχείο δεν είναι παρά ο ορισμός της λέξης ( κλειδί ) που έχουμε προσθέσει. Αυτός ο ορισμός του τηλεφώνου είναι η τιμή του, οπότε θα προσθέσω την τιμή σε 15000.

Τώρα για μια άλλη μεταβλητή, "DictResult", θα προσθέσουμε μια λέξη-κλειδί χρησιμοποιώντας τη μεταβλητή "Dict".

Το κλειδί είναι η λέξη που δημιουργήσαμε στο προηγούμενο βήμα, δηλαδή το όνομα του τηλεφώνου.

Τώρα η μεταβλητή "DictResult" έχει το στοιχείο του κλειδιού που έχουμε προσθέσει. Τώρα δείξτε το αποτέλεσμα της μεταβλητής στο πλαίσιο μηνυμάτων VBA.

Κώδικας:

Sub Dict_Example1 () Dim Dict As Scripting.Dictionary Set Dict = New Scripting.Dictionary Dim DictResult As Variant Dict.Ad Key: = "Redmi", Item: = 15000 DictResult = Dict ("Redmi") MsgBox DictResult End Sub

Τώρα εκτελέστε τον κωδικό χειροκίνητα ή χρησιμοποιώντας το πλήκτρο F5 και ένα πλαίσιο μηνύματος θα σας δείξει την τιμή ( στοιχείο ) του τηλεφώνου ( κλειδί ) που έχουμε προσθέσει χρησιμοποιώντας το "Dict".

Κατανόηση ΚΛΕΙΔΙΟΥ & ΣΤΟΙΧΕΙΟΥ

Εάν δεν έχετε καταλάβει το ΚΛΕΙΔΙ & το ΣΗΜΕΙΑ, επιτρέψτε μου να σας εξηγήσω με ένα απλό παράδειγμα. Φανταστείτε ένα πραγματικό λεξικό. Με αυτό το λεξικό, έχουμε λέξεις (κλειδιά) και την έννοια αυτών των λέξεων (στοιχείο). Ομοίως, οι λέξεις είναι κλειδιά και ο ορισμός ή η έννοια είναι το αντικείμενο.

Τώρα, δείτε ένα ακόμη παράδειγμα λεξικού. Ας υποθέσουμε ότι ψάχνετε έναν αριθμό τηλεφώνου ενός συγκεκριμένου ατόμου. Πώς ψάχνετε;

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

The name of the Person is Key.

The Phone Number is Item.

If you want the example of Excel, we can give VLOOKUP as an example. We use the formula to look for values based on the LOOKUP VALUE (Key). The result returned by the VLOOKUP function is called Item.

Check Whether the Mobile Phone is there or not.

Imagine you are giving a user form to your customers to check the mobile phone’s price with a simple input box. Below Excel VBA code will present an Input Box in front of the user, and they need to enter the brand of the phone they are looking for. If the brand name is there in the dictionary, it will show the price of the respective phone, or else it will display the message as “Phone You are Looking for Doesn’t Exist in the Library.”

Code:

Sub Dict_Example2 () Dim PhoneDict As Scripting.Dictionary Dim DictResult As Variant Set PhoneDict = New Scripting.Dictionary PhoneDict.Add Key: = "Redmi", Item: = 15000 PhoneDict.Add Key: = "Samsung", Item: = 25000 PhoneDict .Add Key: = "Oppo", Item: = 20000 PhoneDict. Add Key: = "VIVO", Item: = 21000 PhoneDict. Add Key: = "Jio", Item: = 2500 DictResult = Application.InputBox (Προτροπή: = "Παρακαλώ εισάγετε το όνομα τηλεφώνου") Εάν το PhoneDict.Exists (DictResult) τότε το MsgBox "Η τιμή του τηλεφώνου" & DictResult & "είναι:" & PhoneDict (DictResult) Else MsgBox "Το τηλέφωνο που ψάχνετε δεν υπάρχει στο Βιβλιοθήκη "End if End Sub

Εκτελέστε αυτόν τον κωδικό χρησιμοποιώντας το πλήκτρο F5 ή χειροκίνητα και δείτε το αποτέλεσμα.

ενδιαφέροντα άρθρα...