Μέγεθος πίνακα σε Excel VBA

Για να πάρετε το μέγεθος ενός πίνακα σε Excel VBA, μπορείτε να χρησιμοποιήσετε τις λειτουργίες UBound και LBound.

Τοποθετήστε ένα κουμπί εντολής στο φύλλο εργασίας σας και προσθέστε τις ακόλουθες γραμμές κώδικα:

1. Πρώτον, πρέπει να δηλώσουμε τη συστοιχία. Η σειρά μας έχει δύο διαστάσεις. Αποτελείται από 5 σειρές και 2 στήλες. Επίσης, δηλώνουμε δύο μεταβλητές τύπου Integer.

Dim Films(1 To 5, 1 To 2) As String, x As Integer, y As Integer

Ο πίνακας μπορεί να μοιάζει με αυτόν.

2. Στη συνέχεια, έχουμε το μέγεθος του πίνακα. Προσθέστε τις ακόλουθες γραμμές κώδικα:

x = UBound(Films, 1) - LBound(Films, 1) + 1
y = UBound(Films, 2) - LBound(Films, 2) + 1

Το UBound (Ταινίες, 1) δίνει το ανώτατο όριο της πρώτης διάστασης, το οποίο είναι 5.
Το LBound (Ταινίες, 1) δίνει το κάτω όριο της πρώτης διάστασης, το οποίο είναι 1.

Το UBound (Ταινίες, 2) δίνει το ανώτερο όριο της δεύτερης διάστασης, το οποίο είναι 2.
Το LBound (Ταινίες, 2) δίνει το κάτω όριο της δεύτερης διάστασης, το οποίο είναι 1.

Ως αποτέλεσμα, το x ισούται με 5 και το y ισούται με 2.

3. Χρησιμοποιούμε ένα MsgBox για να εμφανιστεί ο αριθμός των στοιχείων του πίνακα.

MsgBox "This array consists of " & x * y & " elements"

Αποτέλεσμα: