Πώς να χρησιμοποιήσετε τη λειτουργία VBA LBound Array; (με παραδείγματα)

Πίνακας περιεχομένων

Λειτουργία Excel VBA LBound

Το LBound στο VBA σημαίνει "Lower Bound", δηλαδή θα εξάγει τον μικρότερο αριθμό ενός πίνακα. Για παράδειγμα, εάν ο πίνακας λέει "Dim ArrayCount (2 έως 10) ως String", τότε χρησιμοποιώντας τη συνάρτηση LBound μπορούμε να βρούμε τον μικρότερο αριθμό μήκους πίνακα, δηλαδή 2.

Παρακάτω είναι η σύνταξη της συνάρτησης LBound. Είναι πολύ απλό και εύκολο. έχει μόνο δύο παραμέτρους σε αυτό.

Lbound (Όνομα συστοιχίας (, διάσταση))
  • Όνομα σειράς: Αυτό είναι το πρώτο επιχείρημα. Για αυτήν την παράμετρο, πρέπει να καθορίσουμε το όνομα του πίνακα, το οποίο χρησιμοποιείται για τον ορισμό του πίνακα.
  • (Διάσταση): Εάν ο πίνακας είναι μονής διάστασης, αυτό δεν απαιτείται. Από προεπιλογή, χρειάζεται ένα, αλλιώς πρέπει να παρέχουμε τον αριθμό διάστασης.

Έτσι, χρησιμοποιώντας αυτές τις συναρτήσεις, μπορούμε να βρούμε το ελάχιστο μήκος ενός πίνακα.

Πώς να χρησιμοποιήσετε τη συνάρτηση VBA LBound; (Παράδειγμα)

Παράδειγμα # 1

Για παράδειγμα, δείτε τον παρακάτω κώδικα.

Κώδικας:

Sub LBound_Example1 () Dim Count (2 to 5) As Integer MsgBox LBound (Count) End Sub

Στον παραπάνω κώδικα, έχουμε ορίσει τον πίνακα ως ακέραιο και το μέγεθος του πίνακα ως 2 έως 5. Στη συνέχεια, έχουμε αντιστοιχίσει το πλαίσιο μηνυμάτων VBA για να δείξει το χαμηλότερο μήκος του πίνακα χρησιμοποιώντας τη συνάρτηση LBound.

Όταν εκτελέσουμε τον κωδικό, θα λάβουμε το παρακάτω αποτέλεσμα σε ένα πλαίσιο μηνύματος.

Παραγωγή:

Δεδομένου ότι ο πίνακας μας ξεκινά από το 2, η συνάρτηση LBound καθορίζει το χαμηλότερο μήκος του πίνακα ως 2.

Παράδειγμα # 2

Τώρα, δείτε τον παρακάτω κώδικα.

Κώδικας:

Sub LBound_Example2 () Dim Count (5) As Integer MsgBox LBound (Count) End Sub

Στα παραπάνω, δεν έχουμε αποφασίσει για το χαμηλότερο όριο. Αντίθετα, προμηθεύσαμε μόλις το μήκος του πίνακα ως 5 τώρα. Ας εκτελέσουμε τον κωδικό και να δούμε το χαμηλότερο μήκος της τιμής.

Παραγωγή:

Έχει επιστρέψει το αποτέλεσμα ως 0, επειδή όταν δεν αποφασίζουμε την αρχή και το τελικό σημείο ενός πίνακα, μάλλον παρέχουμε τον στατικό αριθμό, για παράδειγμα, "Count (5), δηλαδή, στην περίπτωση αυτή, η τιμή του πίνακα ξεκινά από 0, όχι από 1. Έτσι μπορούμε να αποθηκεύσουμε συνολικά 6 τιμές σε αυτό τώρα.

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

Παράδειγμα # 3

Τώρα θα χρησιμοποιήσουμε το εύρος δεδομένων και θα αποφασίσουμε το κατώτερο όριο από το εύρος των δεδομένων. Για παράδειγμα, δείτε την παρακάτω εικόνα δεδομένων.

Από αυτό το εύρος, θα αποφασίσουμε το μικρότερο και το υψηλότερο μέγεθος σειράς.

Αρχικά, ορίστε τη μεταβλητή ως παραλλαγή.

Κώδικας:

Sub LBound_Example3 () Dim Rng ως παραλλαγή End Sub

Για αυτήν την μεταβλητή παραλλαγής "Rng", ορίστε την τιμή αναφοράς εύρους ως "Range (" B2: B5 "). Value."

Κώδικας:

Sub LBound_Example3 () Dim Rng As Variant Rng = Range ("B2: B5"). Value End Sub

Για αυτό το εύρος, θα βρούμε το χαμηλότερο και το υψηλότερο μήκος συστοιχίας. Ανοίξτε το πλαίσιο μηνυμάτων και τη λειτουργία LBound και δώστε το όνομα της μεταβλητής.

Κώδικας:

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

Τώρα εκτελέστε τον κωδικό VBA και δείτε τη χαμηλότερη τιμή από το μήκος.

Παραγωγή:

Τώρα αλλάξτε τη μεταβλητή αναφορά από B2: B5 σε A2: B5.

Για αυτό το εύρος, θα βρούμε τις τιμές κατώτερου ορίου και άνω ορίου.

Κώδικας:

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

Δεδομένου ότι έχουμε περισσότερες από μία συστοιχίες διαστάσεων, πρέπει επίσης να παρέχουμε τον αριθμό διαστάσεων.

Κώδικας:

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:

Για την πρώτη διάσταση, το κάτω όριο είναι 1 και το άνω όριο είναι 4.

Κάντε κλικ στο "Ok" για να λάβετε τα επόμενα όρια διαστάσεων.

Παραγωγή:

Για τη δεύτερη διάσταση το κατώτερο όριο είναι 1 και το ανώτερο όριο είναι 2.

Πράγματα που πρέπει να θυμάστε εδώ

  • Η συνάρτηση LBound επιστρέφει το ελάχιστο μήκος από τον πίνακα.
  • Όταν το μήκος του πίνακα στατικό, δηλαδή ένας αριθμός, τότε ο πίνακας ξεκινά πάντα από τον αριθμό 0 και όχι από το 1.
  • Στην περίπτωση ενός πολυδιάστατου πίνακα, πρέπει να καθορίσουμε τον αριθμό διάστασης.

ενδιαφέροντα άρθρα...