Dalam artikel ini, kami memberikan panduan langkah demi langkah untuk mencari ukuran array menggunakan VBA Code.
Bagaimana Mencari Ukuran Array Menggunakan VBA Code?
Ikuti langkah-langkah untuk mencari ukuran array menggunakan kod Excel VBA.
- Langkah 1: Mari kita mulakan dengan asas terlebih dahulu, nyatakan pemboleh ubah dalam VBA sebagai jenis data varian.
Kod:
Sub Array_Size () Dim MyArray Sebagai Variasi Akhir Sub
- Langkah 2: Untuk pemboleh ubah ini gunakan fungsi ARRAY dan berikan beberapa nilai seperti yang ditunjukkan di bawah.
Kod:
Sub Array_Size () Dim MyArray Sebagai Varian MyArray = Array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul") Sub End
- Langkah 3: Baiklah, kami telah memberikan beberapa nilai pada nama array "MyArray".
Andaikan jika kita perlu menulis gelung untuk menyimpan nilai susunan ini ke sel, maka kita perlu memutuskan berapa kali gelung harus dijalankan. Ini bergantung pada jumlah nilai yang dimiliki array.
Ok, sekarang perhatikan jumlah nilai yang diberikan pada nama array "MyArray", ada total 7 nilai yang diberikan pada array, jadi sekarang kita tahu berapa kali loop harus dijalankan untuk menyimpan nilai array ke sel .
- Langkah 4: Nyatakan pemboleh ubah lain sebagai integer untuk menulis gelung FOR di VBA.
Kod:
Sub Array_Size () Dim MyArray Sebagai Varian MyArray = Array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul") Dim k As Integer Untuk k = 1 Hingga 7 Sub Akhir Akhir
- Langkah 5: Di sana, kami telah membuka gelung FOR bermula dari 1 hingga 7, di dalam gelung tulis harta CELLS untuk disimpan seperti yang ditunjukkan di bawah.
Kod:
Sub Array_Size () Dim MyArray Sebagai Varian MyArray = Array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul") Dim k As Integer Untuk k = 1 Hingga 7 Sel (k, 1). Nilai = MyArray (k) Selanjutnya k Akhir Sub
- Langkah 6: Ok, sekarang laksanakan kod baris demi baris dengan menekan kekunci fungsi F8. Setelah menekan kekunci F8 pertama kali, ia akan memulakan makro.
- Langkah 7: Tekan F8 sekarang ia akan melompat ke garis penetapan nilai array.
- Langkah 8: Mulai sekarang nama array "MyArray" tidak memiliki nilai di dalamnya tekan F8, dan semua nilai yang disebutkan akan ditugaskan ke pemboleh ubah array.
- Langkah 9: Sekarang gelung akan mula berjalan dan tekan kekunci F8 2 kali dan lihat nilai apa yang kita dapat dalam sel A1.
- Alamak !!! Tunggu, nilai pertama kami dalam pemboleh ubah array adalah "Jan", tetapi kami mendapat hasilnya sebagai nilai kedua "Feb" ketika masih lingkaran nilai pertama sedang berjalan.
- Langkah 10: Ini kerana apabila jumlah nilai array anda bermula dari sifar, bukan dari 1, jadi kita perlu memasukkan gelung permulaan sebagai sifar.
- Langkah 11: Setelah kedudukan permulaan gelung diturunkan dengan berakhir sama juga harus diturunkan sebanyak 1, jadi jadikan akhir sebagai 6 dan bukan 7.
- Langkah 12: Setelah gelung bermula dan berakhir memutuskan satu lagi perubahan yang perlu kita lakukan, iaitu dalam harta CELLS kita telah menggunakan pemboleh ubah "k" sebagai pemilih sel dinamik tetapi kerana gelung kita bermula dari sifar, tidak ada sel yang dimulakan dengan sifar , jadi tambah tambah 1 pada pemboleh ubah "k".
Kod:
Sub Array_Size () Dim MyArray Sebagai Varian MyArray = Array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul") Dim k As Integer Untuk k = 0 Hingga 6 Sel (k + 1, 1). Nilai = MyArray (k) Selanjutnya k Akhir Sub
- Langkah 13: Jadi sekarang semasa menjalankan gelung kali pertama, nilai "k" adalah sifar, dan oleh kerana kita telah menambah tambah 1, nilai "k" akan menjadi 1 jadi merujuk pada sel A1
- Langkah 14: Sekarang jalankan kod, dan semua nilai array akan disimpan dalam sel.
Namun, dalam contoh ini, kami telah memutuskan ukuran permulaan dan akhir gelung secara manual, tetapi ukuran susunan dapat ditentukan dengan mudah menggunakan fungsi LBOUND & UBOUND.
Cari Saiz Array Secara Automatik
- Langkah 1: Apabila kita memasukkan titik permulaan dan titik akhir di atas, kita telah secara manual mengira jumlah nilai yang dimiliki oleh array tetapi untuk memulakan array menggunakan fungsi LBOUND dan untuk ini lulus nama pemboleh ubah "MyArray".
- Langkah 2: Dan untuk menentukan ukuran array terakhir gunakan fungsi UBOUND dan masukkan nama array "MyArray".
Kod:
Sub Array_Size () Dim MyArray Sebagai Varian MyArray = Array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul") Dim k As Integer Untuk k = Lboubd (MyArray ) Ke Sel UBound (MyArray) (k + 1, 1). Nilai = MyArray (k) Selanjutnya Akhir Akhir
- Langkah 3: Ok sekarang mulakan baris demi baris dengan kod baris dan tekan kekunci F8 sehingga mencapai titik permulaan gelung.
- Langkah 4: Sekarang letakkan kursor anda di "LBound (MyArray)" dan lihat apa yang dinyatakan.
- Langkah 5: Nombor titik permulaan yang dinyatakan adalah sifar, sekarang letakkan kursor pada "UBound (MyArray)" dan lihat apa yang tertulis.
Ia mengatakan saiz array adalah 6, jadi seperti bagaimana kita telah menyebutkan bermula dan berakhir secara manual, UBOUND dan LBOUND secara automatik memilih nombor untuk kita.
