Dalam vba kami telah mengumpulkan koleksi jenis data, pemboleh ubah fungsi dan pernyataan penting lain tetapi serupa dengan ini kami mempunyai senarai array di VBA di mana pengguna dapat mengubah dan meletakkan koleksi pemboleh ubah sendiri dan fungsi yang ditentukan pengguna dalam array, ada yang pasti kata kunci untuk senarai tatasusunan untuk merancangnya.
ArrayList Excel VBA
VBA ArrayList adalah sejenis struktur data yang kami gunakan di VBA untuk menyimpan data. ArrayList dalam Excel VBA adalah kelas yang digunakan untuk membuat susunan nilai. Ini, tidak seperti tatasusunan tradisional, di mana tatasusunan itu mempunyai panjang tetap, tetapi Array List tidak mempunyai panjang tetap.
VAB ArrayList bukan sebahagian daripada senarai VBA; sebaliknya, ia adalah perpustakaan luaran atau objek yang perlu kita tetapkan rujukan sebelum kita mula mengaksesnya.
Susunan dalam VBA adalah bahagian yang tidak terpisahkan dari mana-mana bahasa pengekodan. Dengan menggunakan array dalam excel, kita dapat menyimpan data dengan satu nama pemboleh ubah dengan menyatakan "had bawah & had atas."
Dengan tatasusunan biasa, kita perlu menentukan had bawah dan had atas larik. Kita harus membuat keputusan terlebih dahulu pada saat menyatakan pemboleh ubah dalam hal Static Arrays, dan dalam kasus Dynamic Arrays, kita harus memutuskan panjang array setelah menyatakan array dengan menggunakan pernyataan "ReDim" di VBA.
Namun, kita mempunyai satu pilihan lagi di mana kita dapat menyimpan bilangan nilai "N" tanpa menyatakan had bawah dan had atas. Dalam artikel ini, kami akan menunjukkan kepada anda mengenai pilihan tersebut iaitu, "VBA ArrayList."
Untuk menetapkan rujukan ke objek ArrayList VBA untuk mengikuti langkah-langkah di bawah.
Langkah 1: Pergi ke Alat> Rujukan.
Langkah 2: Tetingkap rujukan perpustakaan objek akan muncul di hadapan anda. Pilih pilihan " mscorlib.dll. "
Langkah 3: Klik juga OK. Sekarang kita boleh mengakses ArrayList VBA.
Contoh VBA ArrayList dalam Excel
Berikut adalah contoh ArrayList Excel VBA.
Contoh # 1 - Buat Contoh ArrayList VBA
Oleh kerana Excel VBA ArrayList adalah objek luaran, kita perlu membuat instance untuk mula menggunakannya. Untuk membuat contoh, ikuti langkah di bawah.
Langkah 1: Nyatakan pemboleh ubah sebagai " ArrayList."
Kod:
Sub ArrayList_Contoh1 () Dim ArrayValues Sebagai ArrayList End Sub
Langkah 2: Oleh kerana Array List adalah objek, kita perlu membuat contoh baru.
Kod:
Sub ArrayList_Contoh1 () Dim ArrayValues Sebagai ArrayList Set ArrayValues = Sub ArrayList Baru
Langkah 3: Sekarang, kita dapat terus menyimpan nilai ke pemboleh ubah array dengan menggunakan kaedah "Tambah". Dalam gambar di bawah, saya telah menambah tiga nilai.
Kod:
Sub ArrayList_Example1 () Dim ArrayValues As ArrayList Set ArrayValues = New ArrayList ArrayValues.Add "Hello" 'First Value ArrayValues.Add "Good"' Nilai Kedua ArrayValues. Tambahkan "Pagi" 'Three Sub End End Sub Value
Sekarang kita telah menetapkan tiga nilai, bagaimana kita mengenal pasti mana yang pertama dan bagaimana kita dapat menunjukkan nilai atau menggunakannya sesuai dengan keperluan kita.
Sekiranya anda ingat jenis array tradisional, kami merujuk nilai array pertama seperti ini "ArrayName (0)"
Begitu juga, kita boleh menggunakan teknik yang sama di sini.
ArrayValue (0) = "Helo"
ArrayValue (1) = "Bagus"
ArrayValue (2) = "Pagi"
Mari tunjukkan ini di kotak mesej.
Kod:
Sub ArrayList_Example1 () Dim ArrayValues As ArrayList Set ArrayValues = New ArrayList ArrayValues.Add "Hello" 'First Value ArrayValues.Add "Good"' Nilai Kedua ArrayValues. Tambahkan "Morning" 'Three Value MsgBox ArrayValues (0) & vbNewLine 1) & Nilai vbNewLine & Array (2) Sub Akhir
Sekarang jalankan kod menggunakan kunci F5 atau secara manual, kita akan melihat "Hello," "Good," dan "Morning" di kotak mesej VBA.
Seperti ini, kita dapat menyimpan sejumlah nilai dengan Array List Object.
Contoh # 2 - Simpan Nilai ke Sel Menggunakan ArrayList VBA
Mari kita lihat contoh menyimpan nilai yang ditetapkan ke sel dalam lembaran kerja. Sekarang, lihat kod VBA di bawah.
Kod:
Sub ArrayList_Example2 () Dim MobileNames Sebagai ArrayList, MobilePrice As ArrayList Dim i As Integer Dim k As Integer Set MobileNames = New ArrayList 'Names of the MobileNames.Add "Redmi" MobileNames.Add "Samsung" MobileNames.Add "Oppo" MobileNames. Tambahkan "VIVO" MobileNames.Add "LG" Set MobilePrice = ArrayList Baru MobilePrice.Add 14500 MobilePrice.Add 25000 MobilePrice.Add 18500 MobilePrice.Add 17500 MobilePrice.Add 17800 Sub End
With two array lists, I have stored Names of the Mobile and Prices of the Mobile. Now we need to insert these values to the worksheet for this. We need to use loops. The below loop will do the job for me.
Below is the Overall code to store values to the worksheet.
Code:
Sub ArrayList_Example2 () Dim MobileNames As ArrayList, MobilePrice As ArrayList Dim i As Integer Dim k As Integer Set MobileNames = New ArrayList 'Names of MobileNames.Add "Redmi" MobileNames.Add "Samsung" MobileNames.Add "Oppo" MobileNames. Tambahkan "VIVO" MobileNames.Add "LG" Set MobilePrice = New ArrayList MobilePrice.Add 14500 MobilePrice.Add 25000 MobilePrice.Add 18500 MobilePrice.Add 17500 MobilePrice.Add 17800 k = 0 For i = 1 To 5 Cells (i, 1) .Value = MobileNames (k) Cell (i, 2) .Value = MobilePrice (k) k = k + 1 Next i End Sub
Apabila kita menjalankan kod secara manual atau menggunakan kekunci F5, kita akan mendapat hasil di bawah.
