Pada artikel ini, kami memberikan panduan langkah demi langkah untuk menemukan ukuran array menggunakan Kode VBA.
Bagaimana Menemukan Ukuran Array Menggunakan Kode VBA?
Ikuti langkah-langkah untuk menemukan ukuran array menggunakan kode VBA Excel.
- Langkah 1: Mari kita mulai dengan yang dasar terlebih dahulu, nyatakan variabel di VBA sebagai tipe data varian.
Kode:
Sub Array_Size () Redupkan MyArray Sebagai Variant End Sub
- Langkah 2: Untuk variabel ini gunakan fungsi ARRAY dan tetapkan beberapa nilai seperti yang ditunjukkan di bawah ini.
Kode:
Sub Array_Size () Redupkan MyArray As Variant MyArray = Array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul") End Sub
- Langkah 3: Ok, kami telah menetapkan beberapa nilai ke nama array "MyArray".
Asumsikan jika kita perlu menulis loop untuk menyimpan nilai array ini ke sel, maka kita perlu memutuskan berapa kali loop harus dijalankan. Ini tergantung pada jumlah nilai yang dimiliki array.
Ok, sekarang lihat jumlah nilai yang ditetapkan ke nama array "MyArray", ada total 7 nilai yang ditetapkan ke array, jadi sekarang kita tahu berapa kali loop harus dijalankan untuk menyimpan nilai array ke sel .
- Langkah 4: Deklarasikan variabel lain sebagai integer untuk menulis loop FOR di VBA.
Kode:
Sub Array_Size () Redupkan MyArray As Variant MyArray = Array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul") Dim k As Integer For k = 1 to 7 Berikutnya k Akhiri Sub
- Langkah 5: Di sana kita pergi, kita telah membuka loop FOR mulai dari 1 hingga 7, di dalam loop tulis properti CELLS untuk disimpan seperti yang ditunjukkan di bawah ini.
Kode:
Sub Array_Size () Redupkan MyArray As Variant MyArray = Array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul") Dim k As Integer For k = 1 to 7 Sel (k, 1) .Value = MyArray (k) Berikutnya k End Sub
- Langkah 6: Ok, sekarang jalankan kode baris demi baris dengan menekan tombol fungsi F8. Saat menekan tombol F8 pertama kali, makro akan dimulai.
- Langkah 7: Tekan F8 sekarang akan melompat ke baris penetapan nilai array.
- Langkah 8: Sampai sekarang nama array "MyArray" tidak memiliki nilai di dalamnya tekan F8, dan semua nilai yang disebutkan akan diberikan ke variabel array.
- Langkah 9: Sekarang loop akan mulai berjalan dan tekan tombol F8 2 kali dan lihat nilai apa yang kita dapatkan di sel A1.
- Ups !!! Tunggu, nilai pertama kita dalam variabel array adalah “Jan”, tetapi kita sudah mendapatkan hasilnya sebagai nilai kedua “Feb” saat loop nilai pertama masih berjalan.
- Langkah 10: Ini karena ketika nilai array Anda dihitung mulai dari nol, bukan dari 1, jadi kita perlu memasukkan loop awal sebagai nol.
- Langkah 11: Setelah posisi awal loop dikurangi dengan satu akhir yang sama juga harus dikurangi dengan 1, jadi buatlah akhir sebagai 6, bukan 7.
- Langkah 12: Setelah loop dimulai dan diakhiri memutuskan satu tweak lagi yang perlu kita lakukan, yaitu di properti CELLS kita telah menggunakan variabel "k" sebagai pemilih sel dinamis tetapi karena loop kita dimulai dari nol, tidak ada sel yang dimulai dengan nol , jadi tambahkan plus 1 ke variabel "k".
Kode:
Sub Array_Size () Redupkan MyArray Sebagai Varian MyArray = Array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul") Dim k As Integer For k = 0 to 6 Sel (k + 1, 1) .Value = MyArray (k) Berikutnya k End Sub
- Langkah 13: Jadi sekarang setelah menjalankan loop pertama kali nilai "k" adalah nol, dan karena kita telah menambahkan plus 1, nilai "k" akan menjadi 1 jadi mengacu pada sel A1.
- Langkah 14: Sekarang jalankan kode, dan semua nilai array akan disimpan dalam sel.
Namun, dalam contoh ini, kami telah memutuskan ukuran awal dan akhir loop secara manual, tetapi ukuran larik dapat ditentukan dengan mudah menggunakan fungsi LBOUND & UBOUND.
Temukan Ukuran Array Secara Otomatis
- Langkah 1: Ketika kita tentang memasukkan titik awal dan akhir loop di atas, kita telah menghitung secara manual jumlah nilai yang dimiliki array tetapi untuk memulai array gunakan fungsi LBOUND dan untuk ini berikan nama variabel "MyArray".
- Langkah 2: Dan untuk menentukan ukuran array terakhir gunakan fungsi UBOUND dan masukkan nama array "MyArray".
Kode:
Sub Array_Size () Redupkan MyArray As Variant MyArray = Array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul") Dim k As Integer For k = Lboubd (MyArray ) Ke UBound (MyArray) Sel (k + 1, 1) .Value = MyArray (k) Berikutnya k End Sub
- Langkah 3: Ok sekarang mulai kode baris demi baris dan tekan tombol F8 sampai mencapai titik awal loop.
- Langkah 4: Sekarang pertama tempatkan kursor Anda pada "LBound (MyArray)" dan lihat apa yang dikatakannya.
- Langkah 5: Nomor titik awal yang dikatakan nol, sekarang tempatkan kursor pada "UBound (MyArray)" dan lihat apa yang tertulis.
Dikatakan ukuran array sebagai 6, jadi seperti yang telah kami sebutkan memulai dan diakhiri secara manual, UBOUND dan LBOUND secara otomatis memilih nomor untuk kami.
