לולאה בתוך לולאה
אז במדריך הקודם ראינו איך משלבים לולאה מתמשכת בתוך הלולאה (תנאי If), שידע לעשות דברים שונים לפי המיקום.
אבל מה נעשה אם נרצה למלא לא רק עמודה אחת כלפי מטה, אלא שטח שלם? כמו טבלה?
כלומר: אנחנו רוצים למלא את לוח הכפל, או למלא נתונים לרוחב ולא רק בתא A
אז בעז"ה נראה היום איך עושים "לולאה בתוך לולאה" (לולאה כפולה).
אז יש לנו את הפקודה הזאת:
Sub LoopInsideLoop()
Dim i As Integer
Dim j As Integer
For i = 1 To 5
For j = 1 To 4
Cells(i, j).Value = "שורה " & i & " כיסא " & j
Next j
Next i
End Sub
[image: 1769521904144-da08680c-1061-462e-a217-9f3ae8de7fd4-image.png]
הקטע הראשון והאחרון – מוכרים מהמדריכים הקודמים ככלי יסוד לכל מאקרו.
אחרי זה יש לנו:
Dim i As Integer
Dim j As Integer
כלומר: משתנים של הלולאה וכאן אנחנו צריכים שני משתנים אחד יספור את השורות ( i) ואחד יספור את העמודות (j)
והנקודה החשובה בקוד זה הקטע הזה
For i = 1 To 5
For j = 1 To 5
כאן קורה הלולאה השנייה אנחנו אומרים למחשב:
תתפוס את שורה מספר 1 (i=1) ואל תעבור לשורה הבאה אלא תריץ לולאה חדשה שתספור מ-1 עד 5 לרוחב (j)
כלומר: בכל התאים בשורה 1
בתוך הלולאה אנחנו כותבים:
Cells(i, j).Value = "שורה " & i & " כיסא " & j
כלומר:
בתא שנמצא בשורה i ובעמודה j, תכניס את התוצאה של ההכפלה ביניהם.
מה שקורה בפועל זה:
המחשב עומד על שורה 1, ורץ: עמודה 1, עמודה 2, עמודה 3... עד 5.
רק אחרי שהוא סיים את ה-Next j (סיים את השורה לרוחב), הוא מגיע ל-
Next i
כלומר: עכשיו תרד לשורה מספר 2, ותתחיל את כל הסיבוב של העמודות מהתחלה.
למעשה בשתי מילים
הלולאה החיצונית (i) מחזיקה את השורה, והלולאה הפנימית (j) וממלאת את התאים באותה שורה, עד שעוברים לשורה הבאה
כמובן שאין צורך להסביר למה זה מנפק"מ
מספיק התמונה הבאה
[image: 1769521835081-19cb436e-3553-4247-b346-419359865ec4-image.png]
כמו שאנחנו רואים זה ממלא לנו את כל הטבלה לארוך ולרוחב עם מספור אוטמטי!
בהצלחה!
 { const baseUrl = "https://www.google.co.il/search?q=site:mitmachim.top"; const m = location.pathname.match(/^\/(topic|category)\/(\d+)/); const type = m ? m[1] : null; const id = m ? m[2] : null; let searchInput; function search(path = "") { const query = searchInput.value.trim(); if (query) { window.open(`${baseUrl}${path}%20${encodeURIComponent(query)}`, "_blank"); } } let buttons = {}; buttons.searchAll = { id: "bb-search-all", label: `חיפוש ${type ? "בכל הפורום" : ""}`, className: type ? "btn-secondary" : "btn-primary", callback: () => search(), }; if (type === "topic") { buttons.searchTopic = { label: "חיפוש בנושא זה", className: "btn-primary", callback: () => search(`/topic/${id}`), }; } else if (type === "category") { buttons.searchCategory = { label: "חיפוש בקטגוריה זו", className: "btn-primary", callback: () => search(`/category/${id}`), }; } buttons.cancel = { label: "ביטול", className: "btn-default", "data-bs-dismiss": "modal" }; const dialog = bootbox.dialog({ title: '<div style="text-align:center;"><img src="/assets/uploads/files/1625950269825-mt-google.png" width="400" alt="חיפוש בגוגל"></div>', message: '<input id="bb-inp" class="bootbox-input bootbox-input-text form-control" placeholder="הקלידו כדי לחפש בגוגל" autocomplete="off"/>', buttons, backdrop: true, show: true, onEscape: true }); dialog.on("shown.bs.modal", function () { searchInput = document.getElementById("bb-inp"); if (searchInput) { searchInput.focus(); searchInput.addEventListener("keydown", function (e) { if (e.key === "Enter") { e.preventDefault(); const query = this.value.trim(); if (query) { search(); dialog.modal("hide"); } } else if (e.key === "Escape") { e.preventDefault(); dialog.modal("hide"); } }); } const searchAllButton = document.getElementById("bb-search-all"); if (searchAllButton) { searchAllButton.title = "לחצו על אנטר כדי לחפש"; } }); })(); void 0;){kind=link}