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