300 דוגמאות

צור תבנית

Create Pattern

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





מַצָב:

צור תבנית ב- 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 = 15

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

תוֹצָאָה:

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

6/11 הושלם! למידע נוסף על לולאות>
עבור לפרק הבא: שגיאות מאקרו



^