Πίνακας περιεχομένων
Αυτό το σεμινάριο θα σας διδάξει πώς να λάβετε το μήκος (μέγεθος) ενός πίνακα σε VBA.
Λάβετε μήκος πίνακα
Για να λάβετε το μήκος ενός πίνακα, πρέπει να γνωρίζετε τις αρχικές και τελικές θέσεις του πίνακα. Μπορείτε να το κάνετε αυτό με τις λειτουργίες UBound και LBound του VBA.
Συνάρτηση LBound και UBound
Αυτή η διαδικασία καταδεικνύει τον τρόπο χρήσης των συναρτήσεων UBound και LBound σε έναν πίνακα μονής διάστασης:
| 123456 | Sub UBoundLBound ()Dim exArr (1 έως 4) ως συμβολοσειράMsgBox UBound (exArr)MsgBox LBound (exArr)Τέλος υπο |
Η αφαίρεση των δύο θα σας δώσει το μήκος του πίνακα (UBound - LBound +1).
Λήψη συνάρτησης μήκους πίνακα
Αυτή η συνάρτηση θα υπολογίσει το μέγεθος (μήκος) ενός μονοδιάστατου πίνακα:
| 1234567 | Δημόσια λειτουργία GetArrLength (a As Variant) Όσο καιρόΑν IsEmpty (α) ΤότεGetArrLength = 0ΑλλούGetArrLength = UBound (a) - LBound (a) + 1Τέλος εανΛειτουργία Τέλους |
Αποκτήστε 2D Array Size
Αυτή η συνάρτηση θα υπολογίσει τον αριθμό των θέσεων σε έναν δισδιάστατο πίνακα:
| 12345678910111213141516171819 | Sub testArrySize ()Dim arr2D (1 έως 4, 1 έως 4) Όσο καιρόMsgBox GetArrSize_2D (arr2D)Τέλος υποΔημόσια λειτουργία GetArrSize_2D (a As Variant) Όσο καιρόDim x As Long, y As LongΑν IsEmpty (α) ΤότεGetArrSize_2D = 0Αλλούx = UBound (a, 1) - LBound (a, 1) + 1y = UBound (a, 2) - LBound (a, 2) + 1GetArrSize_2D = x * yΤέλος εανΛειτουργία Τέλους |
