Kamus VBA Excel
Dengan menggunakan Kamus VBA, kita dapat mengumpulkan semua jenis data dalam kamus untuk mendapatkan akses ke semua item dengan satu pemboleh ubah. Kita boleh menggunakan kamus untuk membuat koleksi kombinasi nilai-kunci. Setelah objek dihubungkan dengan kunci, kemudian, kita dapat memanggilnya dengan hanya menggunakan nama kunci.
Kamus VBA sangat sukar untuk masuk, tetapi kami akan mencuba tahap terbaik untuk memudahkan anda memahami. Kita dapat membandingkan Kamus dan Koleksi pada skala yang sama, tetapi beberapa kamus VBA menawarkan beberapa fungsi yang tidak tersedia dengan objek Koleksi VBA.
Bekerja dengan Kamus VBA
Untuk bekerjasama dengan Kamus VBA, perkara pertama yang perlu kita lakukan ialah menetapkan rujukan objek ke 'Microsoft Scripting Runtime.'
Untuk menetapkan rujukan untuk mengikuti langkah-langkah di bawah.
Langkah 1: Pergi ke Alat> Rujukan.
Langkah 2: Tatal ke bawah dan pilih 'Microsoft Scripting Runtime' kemudian klik ok.
Sekarang kita boleh mengakses Kamus VBA dengan Pustaka Skrip.
Buat Kamus Contoh dengan Kod VBA
Setelah menetapkan rujukan ke 'Microsoft Scripting Runtime,' kita perlu membuat contoh Kamus VBA. Pertama, nyatakan pemboleh ubah sebagai Scripting.Dictionary.
Kod:
Sub Dict_Contoh1 () Dim Dict Sebagai Skrip.Dictionary Akhir Sub
Sekarang pemboleh ubah "Dict" adalah pemboleh ubah objek. Untuk pemboleh ubah objek, kita perlu menetapkan rujukan objek dengan menggunakan kata "Baru."
Tetapkan Dict = Skrip Baru.Dictionary
Sekarang kita dapat mengakses semua sifat dan kaedah kamus.
Sekarang nyatakan satu pemboleh ubah sebagai DictResult.
Dim DictResult Sebagai Varian
Sekarang menggunakan pemboleh ubah "Dict", kami akan membuat kunci baru.
Kuncinya adalah kata yang kita tambah. Mari tambahkan nama Telefon bimbit sebagai "Redmi."
Item tidak lain adalah definisi perkataan ( kunci ) yang telah kami tambahkan. Definisi telefon ini adalah harganya, jadi saya akan menambahkan harganya menjadi 15000.
Sekarang untuk pemboleh ubah lain, "DictResult," kami akan menambahkan kata kunci menggunakan pemboleh ubah "Dict".
Kunci adalah perkataan yang telah kita buat pada langkah sebelumnya iaitu, nama telefon.
Sekarang pemboleh ubah "DictResult" mempunyai item kunci yang telah kami tambahkan. Sekarang tunjukkan hasil pemboleh ubah di kotak mesej VBA.
Kod:
Sub Dict_Example1 () Dim Dict As Scripting.Dictionary Set Dict = New Scripting.Dictionary Dim DictResult As Variant Dict.Add Key: = "Redmi", Item: = 15000 DictResult = Dict ("Redmi") MsgBox DictResult End Sub
Sekarang jalankan kod secara manual atau gunakan kunci F5, dan kotak mesej akan menunjukkan kepada anda harga ( item ) telefon ( kunci ) yang telah kami tambahkan menggunakan "Dict."
Memahami KEY & ITEM
Sekiranya anda belum memahami KUNCI & ITEM, izinkan saya menerangkan kepada anda dengan contoh ringkas. Bayangkan kamus dunia nyata. Dengan kamus ini, kita mempunyai kata-kata (kunci) dan makna kata-kata itu (item). Begitu juga, kata-kata adalah Kunci, dan definisi atau makna adalah Item.
Sekarang, lihat satu lagi contoh Kamus. Andaikan anda mencari nombor telefon orang tertentu. Bagaimana anda mencari?
Jelas, dengan menggunakan nama tersebut, kami telah menggunakan semasa menyimpan nombor telefon. Di sini kita mempunyai dua perkara satu adalah Nama Orang & yang kedua ialah Nombor Telefon.
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 (Prompt: = "Sila Masukkan Nama Telefon") Jika PhoneDict.Exists (DictResult) Kemudian MsgBox "Harga Telefon" & DictResult & "adalah:" & PhoneDict (DictResult) Lain-lain MsgBox "Telefon yang Anda Cari Tidak Ada di Perpustakaan "Tamat Jika Akhir Sub
Jalankan kod ini menggunakan kekunci F5 atau secara manual dan lihat hasilnya.
