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

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

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

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

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

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

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

Μπορείτε να κάνετε λήψη αυτού του προτύπου VBA LBound Excel εδώ - Πρότυπο VBA LBound Excel

Παράδειγμα # 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 

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

Κώδικας:

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

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

Κώδικας:

 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 

Εκτελέστε τον κωδικό και δείτε το αποτέλεσμα στο πλαίσιο μηνύματος.

Παραγωγή:

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

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

Παραγωγή:

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

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

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

$config[zx-auto] not found$config[zx-overlay] not found