קורס מאקרו VBA ב- Excel – שיעור 12 – לולאות Do Loop

אם אתם מחפשים לשדרג את ניתוח הנתונים והדו"חות שלכם באופן מקצועי ?
אני ממליץ בחום לשקול את השירות שלנו של תותח Excel.
המומחיות שלנו באקסל תורמת להגשמת היעדים ולפתרון של בעיות מורכבות בצורה יעילה ומהירה.
עם מומחה Excel, אתם יכולים להיות בטוחים שתהליך העבודה שלכם יתנהל בצורה מקצועית.
ליצירת קשר לחצו כאן.

שלום וברוכים הבאים לשיעור 12 בקורס מאקרו VBA באקסל.

אחרי שלמדנו על לולאות FOR

שיודעות לבצע את אותו קוד מספר קבוע

של פעמים.

נלמד השיעור הזה, על לולאות מסוג חדש

שיודעות לבצע קטע קוד עד שמשהו יקרה

או, כל עוד משהו לא קורה.

לולאות כאלו, מתאימות להרבה מאוד מצבים.

בואו ניקח דוגמא פשוטה, מאוד נפוצה באקסל.

יש לנו טבלה.

ואנחנו מעוניינים לבנות מאקרו ש-“רץ” על שורות הטבלה

ונעצר, כאשר הטבלה נגמרת.

הטבלה - מתעדכנת כל הזמן, ומספר השורות

אינו קבוע ואינו ידוע מראש.

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

 איך נבנה מאקרו כזה ?

בדיוק עבור מקרים כאלו מתאימה לולאת Do.

(הערה : יש אומנם שיטות למצוא את התא האחרון שאינו ריק מלמטה, אבל לשיטה זו יש חסרונות אחרים, ולכן נשתמש בלולאה).

לולאת Do  - צורת הכתיבה

ללולאת Do יש 2 צורות אפשריות :

Do
הקוד שלך כאן...
Loop Until תנאי מסוים

או בצורה אחרת :

Do While תנאי מסוים
הקוד שלך כאן
Loop

הצורה הראשונה - מריצה את הקוד , עד שהתנאי

שרשמנו אחרי המילה UNTIL יתקיים.

ואפשר לראות לפי המבנה של הלולאה

שבכל מקרה, היא תרוץ לפחות פעם אחת

כי המילה UNTIL נמצאת בסופה.

כלומר התנאי נבדק לראשונה, אחרי הפעם

הראשונה שהלולאה בוצעה.

הצורה השניה של DO עובדת שונה

בתחילה נבדק הכלל

ואם הוא מתקיים, הלולאה מריצה את הקוד.

כלומר , יכולים להיות מצבים שבהם

הלולאה לא תרוץ אפילו פעם אחת.

כיוון שאם הכלל לא מתקיים כלל,

ריצת התוכנית תדלג על הלולאה

ותמשיך לשורות הקוד הבאות.

רוצה ליצור דוחות ותרשימים מתקדמים בעזרת Excel?
שירות של מומחה Excel יכול להציע לך פתרונות מותאמים לצרכים שלך.
צור קשר עכשיו

דוגמא ללולאת DO ב-VBA

אני אדגים עכשיו את הנושא עליו דיברנו

בתחילת השיעור - לרוץ על טבלה

עד שנגמרות השורות.

התנאי שלנו - הוא שהשורה אינה ריקה.

Sub ExampleDo()

dim I

I=1

Do While Range("A" & I).value<> ""

I=I+1

Loop

Range("B1").value = "נמצאו " & I-1 & " שורות בעמודה A "

End Sub

הסבר קוד ה- VBA

בתחילה במשפט DIM הגדרנו משתנה בשם I.

לאחר מכן, הצבנו במשתנה I את המספר 1, שזוהי השורה ממנה נתחיל.

ואז התחלנו עם לולאה,

שהתנאי שלה הוא “כל עוד התא בעמודה A שונה מ-כלום”.

כלום - מסומן באמצעות 2 פעמים סימן מרכאות.

בתוך הלולאה לא עשינו כלום, חוץ מאשר להוסיף להגדיל את I

באחד בכל ריצה.

הלולאה נעצרה ברגע שנגמרו השורות המלאות בעמודה A

ואז השורה האחרונה, כותבת בתא B1

כמה שורות מלאות מצאנו.

רוצה להפוך את עבודתך ב-Excel לפחות מסובכת ויותר יעילה?
מומחה Excel יכול להפוך תהליכים לאוטומטים ולבנות עבורך אקסלים יעילים.
צור קשר עכשיו

הגיע זמן ליישם - לולאות DO

אתם מוזמנים לקחת את הלולאות, לנושאים המעסיקים אתכם

לשלב אותם במאקרויים שאתם בונים ולייעל עוד יותר

את העבודה שלכם.

בהצלחה!