מדריך | מאקרו למתחילים חלק 4: לולאה עם תנאי

[פראירי]

אז במדריך הקודם ראינו שימוש בלולאה רגילה שרצה ומדפיסה אותו נוסח כפול XXX פעמים
אבל מה נעשה אם נרצה שבמספר מסוים הלולאה תדפיס פלט אחר?
לדוגמא בשורה 10 במקום

מספר תלמיד

תדפיס

כיתה ח' 2

אז בעז"ה נראה היום איך לעשות תנאים בלולאה
אז יש לנו את הפקודה הזאת

Sub LoopWithCondition()
    Dim i As Integer
    For i = 1 To 10
        
        If i = 7 Then
            Cells(i, 1).Value = "התלמיד המצטיין מספר " & i
            Cells(i, 1).Interior.Color = vbYellow
        Else
            Cells(i, 1).Value = "תלמיד מספר " & i
        End If
        
    Next i
End Sub

הקטע הראשון והאחרון-מוכרים מהמדריך הראשון ככלי יסוד לכל לולאה
אחרי זה יש לנו

Dim i, For i = 1 to 10, Next i

פקודות הלולאה עצמה(לספור מ1 עד 10 ולעבור הלאה וכו')
והנקודה החשובה בקוד זה הקטע הזה

If i = 7 Then

כאן אנחנו אומרים למחשב תספור את התאים שאתה עובר וכשתגיע לתא מספר 7....
עכשיו מגיע הפעולה של התנאי כשמגיע לתא 7

Cells(i, 1).Value = "התלמיד המצטיין מספר " & i

כלומר תשנה את הטקסט מ

"תלמיד מספר "

ל

"התלמיד המצטיין מספר"

וחוץ מזה

Cells(i, 1).Interior.Color = vbYellow

כלומר: תדגיש גם את השורה בצבע צהוב
עכשיו מה קורה שזה לא תא 7...

Else

כלומר: תכתוב רגיל כמו בשורה הבאה

Cells(i, 1).Value = "תלמיד מספר " & i

עכשיו כמובן שאנחנו יכולים לקחת מכאן את זה לאן שנרצה
לדוגמא:

If i = 7 Then
            Cells(i, 1).Value = "חובה! " & i
            Cells(i, 1).Interior.Color = red
        Else
            Cells(i, 1).Value = "רשות " & i

וכן הלאה והלאה כפי שימושכם

נ.ב. אני לא על אקסל כרגע בל"נ אני יעלה תמונות להמחשה כשאתפנה