/ / לולאה דרך טווח מוגדר ב- Excel VBA

לולאה דרך טווח מוגדר ב- VBA של Excel

להלן נתבונן בתוכנית זו לולאות דרך טווח מוגדר. לדוגמה, כאשר ברצוננו לרבוע את המספרים בטווח ("A1: A3"). האם ידעת שאתה יכול גם לולאה דרך טווח דינמי?

מצב:

לולאה דרך טווח מוגדר ב- VBA של Excel

הצב לחצן פקודה בגליון העבודה והוסף את שורות הקוד הבאות:

1. ראשית, אנו מכריזים על שני אובייקטים בטווח. אנו מכנים את האובייקט של טווח האובייקטים והתא.

Dim rng As Range, cell As Range

2. אנחנו אתחל את טווח האובייקט של טווח עם טווח ("A1: A3").

Set rng = Range("A1:A3")

.3 הוסיפו את הלולאה הבאה.

For Each cell In rng

Next cell

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

4. הבא, אנחנו מרובעים כל תא בטווח זה. כדי להשיג זאת, הוסף את שורת הקוד הבאה ללולאה:

cell.Value = cell.Value * cell.Value

תוצאה בעת לחיצה על לחצן הפקודה בגיליון:

לולאה דרך תוצאה טווח מוגדר

5. אם אתה רוצה לבדוק כל תא בטווח נבחר אקראית, פשוט להחליף:

Set rng = Range("A1:A3")

עם:

Set rng = Selection

6. עכשיו, למשל בחר טווח ("A1: A2").

לולאה דרך בחירה ב - VBA של

תוצאה בעת לחיצה על לחצן הפקודה בגיליון:

לולאה באמצעות תוצאה בחירה

קרא גם: