/ / יצירת תבנית ב- Excel VBA

יצירת תבנית ב- Excel VBA

להלן נבחן תוכנית ב Excel VBA כי יוצר תבנית.

מצב:

יצירת תבנית ב- Excel VBA

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

1. ראשית, אנו מכריזים על שני משתנים של מספר שלם. אחד בשם i ואחד בשם j.

Dim i As Integer, j As Integer

2. שנית, אנו מוסיפים שני לולאות הבא.

For i = 1 To 5 Step 2
    For j = 1 To 5 Step 2

3. הבא, אנו מוסיפים את הקו אשר משנה את צבע הרקע של התאים לאפור בהיר.

Cells(i, j).Interior.ColorIndex = 15

הערה: במקום ColorIndex מספר 15 (אפור בהיר), ניתן להשתמש בכל מספר ColorIndex.

.4 סגור את שתי הלולאות הבאות.

    Next j
Next i

5. בדוק את התוכנית.

התוצאה עד כה.

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

לדוגמה, עבור i = 1 ו- j = 1, Excel VBA(1), i = 1 ו- j = 3, צבעי VBA של Excel תאים (1,3), עבור i = 1 ו- j = 5, צבעי VBA של Excel תאים (1,5) עבור i = 3 (שלב 2) ו- j = 1, צבעי VBA של Excel תאים (3,1) וכו '

6. אנחנו כמעט שם. הדבר היחיד שאנחנו צריכים לעשות, הוא צבע התאים אשר מקוזזים על ידי שורה אחת מתחת 1 טור בצד ימין של התאים כבר צבעוניים. הוסף את שורת הקוד הבאה לולאה.

Cells(i, j).Offset(1, 1).Interior.ColorIndex = 15

7. בדוק את התוכנית.

תוצאה:

יצירת תוצאה תבנית

קרא גם: