Koleksi VBA

Objek Pengumpulan Excel VBA

Dalam pengkodean VBA Pengodean VBA Kode VBA mengacu pada serangkaian instruksi yang ditulis oleh pengguna dalam bahasa pemrograman Aplikasi Visual Basic pada Editor Visual Basic (VBE) untuk melakukan tugas tertentu.Baca lebih lanjut, kita dapat membuat grup koleksi kita terpisah dari koleksi yang ada item di bawah satu kelompok. Dalam banyak artikel kami, kami telah berbicara tentang variabel objek. Tutorial ini akan memberi Anda detail tentang objek koleksi VBA.

Jika Anda telah membaca artikel kami sebelumnya ‘VBA ArraysVBA ArraysArray VBA di excel adalah unit penyimpanan atau variabel yang dapat menyimpan beberapa nilai data. Nilai-nilai ini harus dari tipe data yang sama. Ini menyiratkan bahwa nilai-nilai terkait dikelompokkan bersama untuk disimpan dalam variabel array.Baca lebih lanjut,’ ini akan lebih mudah bagi Anda untuk memahaminya. Array digunakan untuk mengelompokkan variabel di bawah satu atap. Demikian pula, kita dapat menggunakan koleksi untuk menyimpan sekelompok variabel.

Seseorang dapat menggunakan koleksi untuk menyimpan objek. Mereka jauh lebih fleksibel daripada array VBA. Sedangkan array memiliki batas ukuran tetap, pembaca tidak memiliki batas ukuran tetap pada waktu tertentu dan tidak memerlukan pengubahan ukuran manual.

Koleksi VBA sangat mirip dengan ‘Kamus VBA Kamus VBA Kamus VBA menggabungkan berbagai jenis data ke dalam kamus sehingga Anda dapat mengakses semuanya hanya dengan variabel tunggal.Baca selengkapnya,’ tetapi kamus memerlukan referensi objek eksternal untuk diatur di bawah jendela referensi objek. Dengan “VBA Dictionary”, kita perlu menyetel jenis referensi sebagai “Microsoft Scripting Runtime”, tetapi Koleksi tidak memerlukan perlengkapan tambahan.

Anda bebas menggunakan gambar ini di situs web Anda, templat, dll., Harap berikan kami tautan atribusiBagaimana Memberikan Atribusi? Tautan Artikel menjadi Hyperlink
Misalnya: Sumber: Koleksi VBA (wallstreetmojo.com)

Bagaimana Cara Membuat Objek Koleksi di VBA?

Untuk memulai koleksi terlebih dahulu, kita perlu mendeklarasikan variabel sebagai ‘Koleksi’.

Kode:

Sub Collection_Example() Dim Col Sebagai Koleksi End Sub

Karena koleksi adalah variabel objek, kita perlu mengatur referensi objek dengan membuat instance baru.

Kode:

Sub Collection_Example() Dim Col As Collection Set Col = Sub Collection End Baru

Sekarang dengan variabel, kita dapat mengakses semua metode dari variabel koleksi ‘Kol.’

Kode:

Sub Collection_Example() Dim Col As Collection Set Col = Koleksi Baru Col. End Sub

Sebelum menggunakan metode ini, kita perlu mendeklarasikan variabel sebagai string.

Kode:

Sub Collection_Example() Dim Col As Collection Set Col = Koleksi Baru Dim ColResult As String End Sub

Sekarang, gunakan variabel ‘Col’ untuk memilih metode ‘Add’.

Kode:

Sub Collection_Example() Dim Col As Collection Set Col = Koleksi Baru Col.Add End Sub

Di bawah metode “Tambah”, kami memiliki parameter khusus. Mari kita asumsikan kita menyimpan nama merek ponsel dengan harga jual rata-ratanya di pasar.

Di bawah Item, argumen memasukkan harga ponsel.

Kode:

Sub Collection_Example() Dim Col As Collection Set Col = Koleksi Baru Col.Add Item:=15000, End Sub

Selanjutnya, di bawah argumen Kunci , masukkan nama merek seluler.

Kode:

Sub Collection_Example() Dim Col As Collection Set Col = Koleksi Baru Col.Add Item:=15000, Key:=”Redmi” End Sub

Untuk variabel ‘ColResult’, kita akan menyimpan hasil dari variabel objek ‘Col’.

Kode:

Sub Collection_Example() Dim Col As Collection Set Col = Koleksi Baru Col.Add Item:=15000, Key:=”Redmi” ColResult = Col( End Sub

Ketika Anda membuka tanda kurung dari variabel ‘Col’, kita dapat melihat argumennya sebagai Index. Untuk argumen ini, kita perlu memberikan nilai argumen kritis dari metode Collection add, yaitu nama merek ponsel.

Kode:

Sub Collection_Example() Dim Col As Collection Set Col = Koleksi Baru Col.Add Item:=15000, Key:=”Redmi” ColResult = Col(“Redmi”) End Sub

Sekarang, mari kita tampilkan hasilnya di kotak pesan di VBAMessage Box Pada fungsi VBAVBA MsgBox adalah fungsi keluaran yang menampilkan pesan umum yang disediakan oleh pengembang. Pernyataan ini tidak memiliki argumen dan pesan yang dipersonalisasi dalam fungsi ini ditulis di bawah tanda kutip ganda sedangkan untuk nilai referensi variabel disediakan.baca lebih lanjut.

Kode:

Sub Collection_Example() Dim Col As Collection Set Col = Koleksi Baru Col.Add Item:=15000, Key:=”Redmi” ColResult = Col(“Redmi”) MsgBox ColResult End Sub

Kami telah menyelesaikannya saat kami menjalankan kode. Kita harus melihat harga merek ponsel, “Redmi”.

Pemahaman yang Lebih Baik tentang Parameter Kunci & Item

Kami yakin tidak mudah untuk memahami parameter dari objek Koleksi. Izinkan saya menjelaskan kepada Anda sebuah contoh sederhana.

Bayangkan Anda memiliki menu buah-buahan dengan nama dan harga buahnya. Misalnya, asumsikan Anda menelusuri harga buah “Apel” berdasarkan nama buahnya.

Untuk mencari harga buah perlu kita sebutkan nama buahnya yaitu pada bahasa kumpulan VBA Nama Buah adalah Key , dan harga buahnya adalah “Item”.

Ini seperti menerapkan fungsi VLOOKUP atau HLOOKUPFungsi HLOOKUPHlookup adalah fungsi lembar kerja referensi yang menemukan dan mencocokkan nilai dari baris daripada kolom menggunakan referensi. Hlookup adalah singkatan dari horizontal lookup, dimana kita mencari data dalam baris secara horizontal.Baca selengkapnya, berdasarkan nilai lookup. Tapi, pertama, kami akan mengambil data yang diperlukan dari database. Di sini, nilai pencariannya adalah Kunci, dan hasilnya adalah Item.

Contoh Lanjutan

Bayangkan Anda adalah manajer toko di salah satu toko ritel dan bertanggung jawab untuk mengelola permintaan pelanggan. Misalnya, satu kueri pelanggan adalah pertanyaan tentang harga produk.

Ini akan membantu jika Anda mengizinkan pelanggan untuk mencari harga produk dengan informasi yang lengkap. Demikian pula, Anda perlu menampilkan pesan jika tidak ada data yang ditemukan. Di bawah ini adalah contoh kode yang akan menampilkan kotak input di depan pengguna. Mereka meminta Anda untuk memasukkan nama produk yang mereka cari. Jika produk tersebut ada dalam koleksi, maka akan ditampilkan harga dari produk tersebut. Jika tidak, maka akan muncul pesan: “Produk yang Anda cari tidak ada.”

Kode:

Sub Collection_Example2() Dim ItemsCol As Collection Dim ColResult As String Set ItemsCol = New Collection ItemsCol.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:=”Mangga”, Item:=65 ColResult = Application.InputBox(Prompt:=”Silakan Masukkan Nama Buah”) If ItemsCol(ColResult) <> “” Kemudian MsgBox “Harga Buah ” & ColResult & ” is : ” & ItemsCol(ColResult) Else MsgBox “Harga Buah Yang Dicari Tidak Ada di Koleksi” End If End Sub

Artikel yang Direkomendasikan

Artikel ini adalah panduan untuk Koleksi VBA. Di sini, kita belajar cara membuat objek koleksi VBA, contoh lanjutan, dan template Excel yang dapat diunduh. Di bawah ini adalah beberapa artikel Excel berguna yang terkait dengan VBA: –