✅ לולאה הבאה ב- Excel VBA - מדריך למתחילים עם דוגמאות

תוכן העניינים

שימוש ב- FOR NEXT Loop ב- Excel VBA

ב- VBA, לולאה משמשת כאשר עליך לבצע את אותה משימה מספר פעמים עד שהתנאי מתקיים (או עד שהתנאי הוא נכון).

במדריך זה תלמד כיצד להשתמש ב- For Next Loop ב- Excel VBA.

אם אתה מעוניין ללמוד VBA בדרך הקלה, בדוק את שלי הדרכה מקוונת ב- Excel VBA.

שימוש ב- FOR NEXT Loop ב- Excel VBA

הלולאה 'For Next' פועלת על ידי הפעלת הלולאה במספר הפעמים שצוין.

לדוגמה, אם אבקש ממך להוסיף את המספרים השלמים מ -1 עד 10 באופן ידני, היית מוסיף את שני המספרים הראשונים, ואז מוסיף את המספר השלישי לתוצאה, ואז מוסיף את המספר הרביעי לתוצאה, וכך הלאה …

האין זה?

אותו היגיון משמש בלולאה For Next ב- VBA.

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

להלן פורמט הלולאה For Next שאתה צריך להשתמש ב- VBA כדי להוסיף את 10 המספרים השלמים הראשונים.

עבור i = 1 עד 10 [הוסף את המספר השלם החיובי ה - I לתוצאה] הבא i

כעת נסתכל על כמה דוגמאות לשימוש בלולאת For Next.

דוגמא 1: הוספת 10 השלמים החיוביים הראשונים

להלן הקוד שיוסיף את 10 המספרים השלמים החיוביים הראשונים באמצעות לולאה For Next. לאחר מכן היא תציג תיבת הודעות המציגה את סכום המספרים הללו.

Sub AddNumbers () Dim Total As Integer Dim Number As Integer Total = 0 For Count = 1 to 10 Total = Total + Count Next count MsgBox Total End Sub

בקוד זה, הערך של סך הכל מוגדר ל- 0 לפני הכניסה ללולאה For Next.

ברגע שהוא נכנס ללולאה, הוא מחזיק את הערך הכולל אחרי כל לולאה. אז אחרי הלולאה הראשונה, כאשר המונה הוא 1, ערך 'סך הכל' הופך ל -1, ולאחר הלולאה השנייה הוא הופך ל -3 (1+2) וכן הלאה.

ולבסוף, כאשר הלולאה מסתיימת וכאשר ל- Total יש את סכום 10 המספרים השלמים החיוביים הראשונים, MsgBox פשוט מציג את התוצאה בתיבת הודעות.

לחץ כאן להורדת קובץ הדוגמה

דוגמא 2: הוספת חמשת השילולים החיוביים אפילו

כדי לסכם את חמשת המספרים השלמים החיוביים אפילו (כלומר 2,4,6,8 ו -10), אתה צריך קוד דומה עם תנאי להתייחס רק למספרים הזוגיים ולהתעלם מהמספרים האי -זוגיים.

הנה קוד שיעשה זאת:

תת AddEvenNumbers () Dim Total As Integer Dim Number As Integer Total = 0 For Count = 2 to 10 Step 2 Total = Total + Count Next count MsgBox Total End Sub

שים לב שהתחלנו את ערך הספירה מ -2 והשתמשנו גם בשלב 2 בתחביר For.

שלב 2 יגיד לקוד להגדיל את ערך 'ספירה' ב -2 בכל פעם שהלולאה מופעלת. אז ערך הספירה מתחיל מ -2 ואז הופך ל -4, 6, 8 ו -10 כאשר הלולאה מתרחשת.

הערה: דרך נוספת לעשות זאת יכולה להיות הפעלת הלולאה מ -1 עד 10 ובתוך הלולאה יש לבדוק האם המספר שווה או מוזר. עם זאת, שימוש ב- Step, במקרה זה, הוא דרך יעילה יותר מכיוון שהיא אינה דורשת מהלולאה לפעול 10 פעמים, אלא רק 5 פעמים.

לחץ כאן להורדת קובץ הדוגמה.

דוגמה 3: קבל את החלק המספרי ממחרוזת אלפאנומרית

ניתן להשתמש בלולאת 'For Next' גם כדי לדפדף כל תו במחרוזת.

לדוגמה, אם יש לך רשימה של מחרוזות אלפאנומריות, תוכל להשתמש בלולאת For Next כדי לחלץ ממנה את המספרים (כפי שמוצג להלן):

להלן קוד היוצר פונקציה מותאמת אישית ב- VBA שניתן להשתמש בה כמו כל פונקציה אחרת בגליון עבודה.

הוא מחלץ את החלק המספרי מהמחרוזת האלפאנומרית.

פונקציה GETNUMERIC (Cl As Range) Dim i As Integer Number Result long as for I = 1 to Len (Cl) If IsNumeric (Mid (Cl, i, 1)) ואז תוצאה = תוצאה ואמצע (Cl, i, 1) סוף אם הבא i GetNumeric = פונקציית סיום התוצאה

בקוד זה, מספר הפעמים שהלולאה מופעלת תלוי באורך המחרוזת האלפאנומרית (היא משתמשת בפונקציית LEN כדי למצוא את אורך המחרוזת).

עליך להכניס פונקציה זו לחלון קוד המודול, ולאחר מכן תוכל להשתמש בה כמו כל פונקציה אחרת של דף עבודה.

לחץ כאן להורדת קובץ הדוגמה.

דוגמה 4: קבלת מספרים אקראיים בטווח הנבחר

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

Sub RandomNumbers () Dim MyRange As Range Dim i As Integer, j As Integer Set MyRange = Selection for i = 1 To MyRange.Columns.Count For j = 1 To MyRange.Rows.Count MyRange.Cells (j, i) = Rnd J הבא הבא i סיום תת

זוהי דוגמה ללולאה מקוננת For Next שבה נעשה שימוש בלולאת For בתוך לולאה For Loop.

נניח שאתה בוחר 10 שורות ו -4 עמודות, הערך של i משתנה מ -1 עד 4 והערך של j משתנה בין 1 ל -10.

כאשר הלולאה הראשונה של For מופעלת, הערך של i הוא 1. לאחר מכן הוא עובר ללולאה השנייה של For אשר פועלת 10 פעמים (לכל שורה).

ברגע שהלולאה השנייה של For בוצעה 10 פעמים, היא חוזרת ללולאת ה- For הראשונה שבה כעת הערך i הופך ל 2. שוב הלולאה הבאה של For פועלת 10 פעמים.

כך פועלת הלולאה המקוננת For Next.