להלן נבחן תוכנית ב Excel VBA זֶה יוצר תבנית.
מַצָב:
מקם כפתור פקודה בגליון העבודה שלך והוסף את שורות הקוד הבאות:
1. ראשית, אנו מכריזים על שני משתנים מסוג מספר שלם. אחד בשם i ואחד בשם j.
Dim i As Integer, j As Integer
2. שנית, אנו מוסיפים שתי לולאות For Next.
עבור i = 1 עד 5 שלב 2
עבור j = 1 עד 5 שלב 2
3. לאחר מכן, נוסיף את השורה שמשנה את צבע הרקע של התאים לאפור בהיר.
תאים (i, j) .Interior.ColorIndex = 15
הערה: במקום ColorIndex מספר 15 (אפור בהיר), תוכל להשתמש בכל מספר ColorIndex.
4. סגור את שתי הלולאות For Next.
י הבא
הבא i
5. בדוק את התוכנית.
התוצאה עד כה.
לדוגמה, עבור i = 1 ו- j = 1, צבעי VBA של Excel תאים (1,1), עבור i = 1 ו- j = 3 (שלב 2), צבעי VBA של Excel תאים (1,3), עבור i = 1 ו- j = 5, צבעי VBA של Excel תאים (1,5), עבור i = 3 (שלב 2) ו- j = 1, צבעי Excel VBA תאים (3,1) וכו '.
6. אנחנו כמעט שם. הדבר היחיד שעלינו לעשות הוא לצבוע את התאים המקוזזים בשורה אחת למטה ועמודה אחת מימין לתאים שכבר צבועים. הוסף את שורת הקוד הבאה ללולאה.
תאים (i, j) .Offset (1, 1) .Interior.ColorIndex = 15
7. בדוק את התוכנית.
תוֹצָאָה:
