Bagaimana Cara Menggunakan Fungsi VBA LBound Array? (dengan Contoh)

Fungsi Excel VBA LBound

LBound dalam VBA adalah singkatan dari "Bound Bawah" iaitu ia akan mengekstrak bilangan array yang paling rendah. Sebagai contoh, jika array mengatakan "Dim ArrayCount (2 hingga 10) sebagai String" maka dengan menggunakan fungsi LBound kita dapat mencari bilangan paling sedikit panjang array iaitu 2.

Berikut adalah sintaks fungsi LBound. Ia sangat mudah dan senang; ia hanya mempunyai dua parameter.

Lbound (Nama susunan (, dimensi))
  • Nama Array: Ini adalah hujah pertama. Untuk parameter ini, kita perlu menentukan nama array, yang digunakan untuk menentukan array.
  • (Dimensi): Jika array adalah satu dimensi, ini tidak diperlukan. Secara lalai, ia memerlukan satu, atau kita perlu memberikan nombor dimensi.

Oleh itu, dengan menggunakan fungsi ini, kita dapat mencari panjang minimum array.

Bagaimana menggunakan Fungsi LBBA VBA? (Contoh)

Contoh # 1

Contohnya, lihat kod di bawah.

Kod:

Sub LBound_Contoh1 () Dim Count (2 To 5) Sebagai Integer MsgBox LBound (Count) End Sub

Dalam kod di atas, kami telah menentukan array sebagai integer dan ukuran array sebagai 2 hingga 5. Seterusnya, kami telah menetapkan kotak mesej VBA untuk menunjukkan panjang array yang paling rendah dengan menggunakan fungsi LBound.

Apabila kita menjalankan kod, kita akan mendapat hasil di bawah dalam kotak mesej.

Pengeluaran:

Oleh kerana array kami bermula dari 2, fungsi LBound menentukan panjang array yang paling rendah sebagai 2.

Contoh # 2

Sekarang, lihat kod di bawah.

Kod:

Sub LBound_Contoh2 () Dim Count (5) Sebagai Integer MsgBox LBound (Count) End Sub

Di atas, kami belum memutuskan had terendah. Sebaliknya, kami hanya membekalkan panjang array seperti 5 sekarang. Mari jalankan kod dan lihat panjang nilai yang paling rendah.

Pengeluaran:

Ini telah mengembalikan hasilnya sebagai 0 kerana ketika kita tidak memutuskan titik awal dan akhir array, lebih baik memberikan nombor statik, misalnya, "Hitung (5), iaitu, dalam hal ini, nilai array mulai dari 0, tidak dari 1. Oleh itu, kita dapat menyimpan sejumlah 6 nilai di dalamnya sekarang.

Kira (0), Kira (1), Kira (2), Kira (3), Kira (4), Kira (5).

Contoh # 3

Sekarang kita akan menggunakan julat data dan memutuskan batas bawah dari julat data. Contohnya, lihat gambar data di bawah.

Dari julat ini, kami akan menentukan ukuran baris terkecil dan tertinggi.

Pertama, tentukan pemboleh ubah sebagai varian.

Kod:

Sub LBound_Contoh3 () Dim Rng Sebagai Variasi Akhir Sub

Untuk pemboleh ubah varian "Rng" ini, tetapkan nilai rujukan julat sebagai "Range (" B2: B5 "). Nilai."

Kod:

Sub LBound_Contoh3 () Dim Rng Sebagai Varian Rng = Julat ("B2: B5"). Nilai Akhir Sub

Untuk julat ini, kita akan menjumpai panjang array yang paling rendah dan tertinggi. Buka kotak mesej dan fungsi LBound dan berikan nama pemboleh ubah.

Kod:

Sub LBound_Contoh3 () Dim Rng Sebagai Varian Rng = Julat ("B2: B5"). Nilai MsgBox LBound (Rng) Akhir Sub

Sekarang jalankan kod VBA dan lihat nilai terendah dari panjangnya.

Pengeluaran:

Sekarang ubah rujukan pemboleh ubah dari B2: B5 ke A2: B5.

Untuk julat ini, kita akan menemui nilai batas bawah dan batas atas.

Kod:

Sub LBound_Contoh3 () Dim Rng Sebagai Varian Rng = Julat ("A2: B5"). Nilai Akhir Sub

Oleh kerana kita mempunyai lebih daripada satu susunan dimensi, kita juga perlu memberikan nombor dimensi.

Kod:

Sub LBound_Example3() Dim Rng As Variant Rng = Range("A2:B5").Value MsgBox LBound(Rng, 1) End Sub

To find the first column first lower bound above code will help, similarly to find the upper bound in this first column below code will help.

Code:

Sub LBound_Example3() Dim Rng As Variant Rng = Range("A2:B5").Value MsgBox LBound(Rng, 1) & vbNewLine & UBound(Rng, 1) End Sub

This will find the first column lower length and upper length. Similarly, in the next line, write one more message box but this time, change the dimension from 1 to 2.

Code:

Sub LBound_Example3() Dim Rng As Variant Rng = Range("A2:B5").Value MsgBox LBound(Rng, 1) & vbNewLine & UBound(Rng, 1) MsgBox LBound(Rng, 2) & vbNewLine & UBound(Rng, 2) End Sub

Run the code and see the result in the message box.

Output:

Untuk dimensi pertama, batas bawah adalah 1, dan batas atas adalah 4.

Klik "Ok" untuk mendapatkan had dimensi seterusnya.

Pengeluaran:

Untuk dimensi kedua had bawah adalah 1, dan had atas adalah 2.

Perkara yang Perlu Diingat di sini

  • Fungsi LBound mengembalikan panjang minimum dari tatasusunan.
  • Apabila panjang array statik, iaitu nombor tunggal, maka array selalu bermula dari nombor 0, bukan dari 1.
  • Dalam kes array pelbagai dimensi, kita perlu menentukan nombor dimensi.

Artikel menarik...