תוכן העניינים
להלן נבחן תוכנית ב Excel VBA זֶה עובר את כל העמודה הראשונה וצבע את כל הערכים הנמוכים מערך מסוים.
מקם כפתור פקודה בגליון העבודה שלך והוסף את שורות הקוד הבאות:
1. ראשית, הצהירו על משתנה בשם i מסוג Long. אנו משתמשים כאן במשתנה מסוג Long מכיוון שלמשתנים ארוכים יש קיבולת גדולה יותר מאשר משתנים שלמים.
Dim i As Long
2. לאחר מכן, הוסף את שורת הקוד שמשנה את צבע הגופן של כל התאים בעמודה A לשחור.
עמודות (1). Font.Color = vbBlack
3. מוסיפים את הלולאה.
עבור i = 1 לשורות
הבא i
הערה: גליונות עבודה יכולים לכלול עד 1,048,576 שורות ב- Excel 2007 ואילך. לא משנה באיזו גירסה אתה משתמש, שורת הקוד שלמעלה מחליקה בין כל השורות.
4. לאחר מכן, אנו צובעים את כל הערכים הנמוכים מהערך שהוזן בתא D2. מתעלמים מתאים ריקים. הוסף את שורות הקוד הבאות ללולאה.
אם תאים (i, 1). ערך <טווח ("D2"). ערך ואינו ריק (תאים (i, 1). ערך) לאחר מכן
תאים (i, 1). Font.Color = vbRed
סוף אם
התוצאה כאשר תלחץ על כפתור הפקודה בגיליון (זה עשוי לקחת זמן):
