Objek Pengumpulan Excel VBA
Dalam pengekodan VBA, selain koleksi item yang ada di bawah satu kumpulan, kami dapat membuat kumpulan koleksi kami. Dalam banyak artikel kami, kami telah membincangkan tentang pemboleh ubah objek, dan dalam tutorial ini, kami akan membahas objek pengumpulan VBA secara terperinci.
Sekiranya anda telah membaca artikel kami sebelumnya "VBA Arrays," ini akan lebih mudah anda fahami. Susunan digunakan untuk mengelompokkan pemboleh ubah di bawah satu bumbung; sama, Koleksi juga digunakan untuk menyimpan sekumpulan pemboleh ubah.
Koleksi digunakan untuk menyimpan objek. Mereka jauh lebih fleksibel daripada array VBA, sedangkan tatasusunan mempunyai had ukuran tetap, tetapi pembaca tidak mempunyai had ukuran tetap pada satu ketika dan bahkan tidak memerlukan pengubahan ukuran manual.
Koleksi VBA sangat mirip dengan "Kamus VBA", tetapi kamus memerlukan rujukan objek luaran untuk disiapkan di bawah tetingkap rujukan objek. Dengan Kamus VBA, kita perlu menetapkan jenis rujukan sebagai "Microsoft Scripting Runtime," tetapi Koleksi tidak memerlukan kelengkapan tambahan.
Bagaimana Membuat Objek Koleksi di VBA?
Untuk memulakan koleksi terlebih dahulu, kita perlu menyatakan pemboleh ubah sebagai "Koleksi."
Kod:
Sub Koleksi_Contoh () Dim Col Sebagai Koleksi Akhir Sub
Oleh kerana koleksi adalah pemboleh ubah objek, kita perlu menetapkan rujukan objek dengan membuat contoh baru.
Kod:
Sub Koleksi_Contoh () Dim Col Sebagai Koleksi Set Kol = Koleksi Baru Akhir Sub
Sekarang dengan pemboleh ubah, kita dapat mengakses semua kaedah pengumpulan pemboleh ubah "Kol."
Kod:
Sub Koleksi_Contoh () Dim Kol Sebagai Koleksi Kol Kol = Koleksi Baru Kol. Akhir Sub
Sebelum menggunakan kaedah ini, kita perlu menyatakan pemboleh ubah sebagai rentetan.
Kod:
Sub Koleksi_Contoh () Dim Col Sebagai Koleksi Set Kol = Koleksi Baru Dim ColResult Sebagai String End Sub
Sekarang gunakan pemboleh ubah "Col" untuk memilih kaedah "Tambah".
Kod:
Sub Koleksi_Contoh () Dim Col Sebagai Koleksi Set Kol = Koleksi Baru Kol. Tambah Akhir Sub
Di bawah kaedah Tambah, kami mempunyai parameter tertentu. Anggaplah kita menyimpan nama jenama mudah alih dengan harga jualan rata-rata mereka di pasaran.
Di bawah Item, argumen memasukkan harga telefon bimbit.
Kod:
Sub Koleksi_Contoh () Dim Kol Sebagai Koleksi Kol Kol = Koleksi Baru Kol. Tambah Item: = 15000, Sub Akhir
Seterusnya, di bawah Hujah utama , masukkan nama jenama mudah alih.
Kod:
Sub Koleksi_Contoh () Dim Col Sebagai Koleksi Set Kol = Koleksi Baru Kol. Tambah Item: = 15000, Kunci: = "Redmi" Sub Akhir
Untuk pemboleh ubah "ColResult," kami akan menyimpan hasil pemboleh ubah objek "Col".
Kod:
Sub Koleksi_Contoh () Dim Col Sebagai Koleksi Set Kol = Koleksi Baru Kol. Tambah Item: = 15000, Kunci: = "Redmi" ColResult = Kol (Sub Akhir
Apabila anda membuka kurungan pemboleh ubah "Col", kita dapat melihat argumen sebagai Indeks. Untuk hujah ini, kita perlu memberikan nilai argumen kritikal dari kaedah Koleksi tambah, iaitu nama jenama mudah alih.
Kod:
Sub Koleksi_Contoh () Dim Col Sebagai Koleksi Kol Kol = Koleksi Baru Kol. Tambah Item: = 15000, Kunci: = "Redmi" ColResult = Col ("Redmi") Sub Akhir
Sekarang mari tunjukkan hasilnya di kotak mesej di VBA.
Kod:
Sub Koleksi_Contoh () Dim Col Sebagai Koleksi Kol Kol = Koleksi Baru Kol. Tambah Item: = 15000, Kunci: = "Redmi" ColResult = Col ("Redmi") MsgBox ColResult Akhir Sub
Ok, kita selesai semasa kita menjalankan kodnya. Kita harus melihat harga jenama mudah alih, "Redmi."
Pemahaman yang lebih baik mengenai Parameter Kunci & Item
Saya yakin tidak mudah untuk memahami parameter objek Koleksi. Izinkan saya menerangkan kepada anda satu contoh mudah.
Bayangkan anda mempunyai menu buah-buahan dengan nama dan harga buahnya. Anggaplah anda mencari harga buah "Apple" dengan nama buahnya.
To search the price of the fruit, we need to mention the name of the fruit, i.e., in collection VBA language Name of the Fruit is Key, and the price of the fruit is “Item.”
It is like applying the VLOOKUP or HLOOKUP function, based on the lookup value, and we will fetch the required data from the database. Here lookup value is Key, and the result is Item.
Advanced Example
Imagine you are a store manager in one of the retail stores, and you are responsible for managing the customer queries. One such customer query is an inquiry about the product price.
It would help if you allowed the customer to search the price of the product with complete information. Similarly, you need to show the message in case of no data found. Below is the example code which will present the input box in front of the user. They require to enter the name of the product they are looking for. If the product is there in the collection, it will show the price of the mentioned product, or else it will show the message as “The Product you are searching for doesn’t exist.”
Code:
Sub Koleksi_Contoh2 () Dim ItemCol Sebagai Koleksi Dim ColResult Sebagai String Set ItemsCol = New Collection ItemCol.Add Key: = "Apple", Item: = 150 ItemsCol.Add Key: = "Orange", Item: = 75 ItemsCol.Add Key: = "Water Melon", Item: = 45 ItemsCol.Add Key: = "Mush Millan", Item: = 85 ItemsCol.Add Key: = "Mango", Item: = 65 ColResult = Application.InputBox (Prompt: = "Please Masukkan Nama Buah ") Jika ItemsCol (ColResult)" "Kemudian MsgBox" Harga Buah "& ColResult &" adalah: "& ItemsCol (ColResult) Lain-lain MsgBox" Harga Buah yang Anda Cari Tidak Ada di Koleksi "End If End Sub
