כיצד להשתמש בפונקציה VBA LBound Array? (עם דוגמאות)

פונקציית VBA LBound של Excel

LBound ב- VBA מייצג " גבולות נמוכים יותר" כלומר הוא יחלץ את המספר הנמוך ביותר של מערך. לדוגמא, אם המערך אומר "Dim ArrayCount (2 עד 10) כמחרוזת", ואז באמצעות פונקציית LBound נוכל למצוא את המספר הנמוך ביותר של אורך המערך, כלומר 2.

להלן התחביר של פונקציית LBound. זה מאוד פשוט וקל, יש בו רק שני פרמטרים.

Lbound (שם מערך [, ממד])

• שם מערך: זהו הטיעון הראשון. עבור פרמטר זה, עלינו לציין את שם המערך המשמש להגדרת המערך.
• [מימד]: אם המערך הוא מימד יחיד אז זה לא נדרש, כברירת מחדל זה לוקח אחד או אחר שאנחנו צריכים לספק את מספר הממד.

לכן, באמצעות פונקציה אלה אנו יכולים למצוא את האורך המינימלי של מערך.

כיצד להשתמש בפונקציה VBA LBound? (דוגמא)

אתה יכול להוריד תבנית Excel VBA LBound כאן - תבנית VBA LBound Excel

דוגמה מס '1

לדוגמא עיין בקוד שלהלן.

קוד:

 תת LBound_Example1 () ספירת עמעום (2 עד 5) כמספר שלם MsgBox LBound (ספירה) תת משנה 

בקוד הנ"ל הגדרנו את המערך כמספר שלם וגודל המערך כ -2 עד 5. לאחר מכן, הקצנו את תיבת ההודעה VBA כדי להציג את האורך הנמוך ביותר של המערך באמצעות פונקציית LBound.

כאשר אנו מריצים את הקוד נקבל את התוצאה שלהלן בתיבת הודעה.

תְפוּקָה:

מכיוון שהמערך שלנו מתחיל מ -2, פונקציית LBound קובעת את האורך הנמוך ביותר של המערך כ -2.

דוגמה מס '2

כעת, עיין בקוד שלמטה.

קוד:

 תת LBound_Example2 () ספירת עמעום (5) כמספר שלם MsgBox LBound (ספירה) סוף משנה 

באמור לעיל לא החלטנו את הגבול הנמוך ביותר אלא פשוט סיפקנו את אורך המערך כ 5, עכשיו בואו נפעיל את הקוד ונראה את האורך הנמוך ביותר של הערך.

תְפוּקָה:

היא החזירה את התוצאה כ- 0 מכיוון שכשאנחנו לא מחליטים על התחלה ונקודת סיום של מערך אלא מספקים את המספר הסטטי, למשל, "ספירה (5) כלומר במקרה זה ערך מערך החל מ- 0 ולא מ- 1. אז אנחנו יכול לאחסן בו 6 ערכים לחלוטין.

ספירה (0), ספירה (1), ספירה (2), ספירה (3), ספירה (4), ספירה (5).

דוגמה מס '3

כעת נשתמש בטווח הנתונים ונחליט את הגבול התחתון מטווח הנתונים. לדוגמא, עיין בתמונת הנתונים שלמטה.

מטווח זה נחליט על גודל השורה הנמוך והגבוה ביותר.

ראשית, הגדירו את המשתנה כגרסה.

קוד:

 תת LBound_Example3 () עמעום Rng כמשנה סוף סוף 

עבור משתנה משתנה "Rng" הגדירו את ערך הפניה לטווח כ- "טווח (" B2: B5 "). ערך".

קוד:

 תת LBound_Example3 () עמעום Rng כמשתנה Rng = טווח ("B2: B5"). ערך סוף משנה 

עבור טווח זה, אנו נמצא את אורך המערך הנמוך ביותר והגבוה ביותר. פתח את תיבת ההודעות ואת פונקציית LBound וספק את שם המשתנה.

קוד:

 משנה LBound_Example3 () עמעום Rng כמשתנה Rng = טווח ("B2: B5"). ערך MsgBox LBound (Rng) סוף משנה 

כעת הפעל את קוד VBA וראה את הערך הנמוך ביותר מהאורך.

תְפוּקָה:

כעת שנה את הפניה המשתנה מ B2: B5 ל- A2: B5.

עבור טווח זה, אנו נמצא את הערכים של הגבול התחתון והגבול העליון.

קוד:

 תת LBound_Example3 () עמעום Rng כמשתנה Rng = טווח ("A2: B5"). ערך סוף משנה 

מכיוון שיש לנו יותר ממערך מימד אחד עלינו לספק גם את מספר הממד.

קוד:

 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:

For the first dimension lower bound is 1 and the upper bound is 4.

Click on “Ok” to get the next dimension limits.

Output:

For the second dimension lower limit is 1 and the upper limit is 2.

Things to Remember here

• LBound function returns the minimum length from the array.
• When the array length static i.e. single number then array always starts from the number 0 not from 1.
• In the case of a multi-dimensional array, we need to specify the dimension number.