להלן נבחן תוכנית זאת לולאות דרך טווח מוגדר. לדוגמה, כאשר אנו רוצים לרבוע את המספרים בטווח ("A1: A3"). האם ידעת שאתה יכול גם לעבור טווח דינמי?
מַצָב:
מקם כפתור פקודה בגליון העבודה שלך והוסף את שורות הקוד הבאות:
1. ראשית, אנו מכריזים על שני אובייקטים של טווח. אנו קוראים לאובייקטים של טווח rng ותא.
Dim rng As Range, cell As Range
2. אנו מאתחלים את אובייקט הטווח rng עם טווח ("A1: A3").
הגדר rng = טווח ("A1: A3")
3. הוסף את הלולאה For Every Next.
עבור כל תא ב rng
התא הבא
הערה: rng ותא נבחרים כאן באופן אקראי, אתה יכול להשתמש בכל שמות. זכור להתייחס לשמות אלה בשאר הקוד שלך.
4. לאחר מכן, אנו מרובעים כל תא בטווח זה. כדי להשיג זאת, הוסף את שורת הקוד הבאה ללולאה:
cell.Value = cell.Value * cell.Value
התוצאה כאשר אתה לוחץ על כפתור הפקודה בגיליון:
5. אם ברצונך לבדוק כל תא בטווח שנבחר באופן אקראי, פשוט החלף:
הגדר rng = טווח ("A1: A3")
עם:
הגדר rng = בחירה
6. כעת, למשל בחר טווח ("A1: A2").
התוצאה כאשר אתה לוחץ על כפתור הפקודה בגיליון:
