/ / לולאה דרך עמודה שלמה ב- Excel VBA

לולאה דרך עמודה מלאה ב- Excel VBA

להלן נבחן תוכנית ב Excel VBA כי לולאות דרך העמודה הראשונה כולה וצבעים את כל הערכים שהם נמוכים מערך מסוים.

לולאה דרך עמודה מלאה ב - VBA של

לולאה דרך עמודה מלאה ב - VBA של

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

1. ראשית, הכריז על משתנה בשם i מסוג long. אנו משתמשים במשתנה מסוג long כאן כי משתנים ארוכים יש קיבולת גדולה יותר מאשר משתנים שלמים.

Dim i As Long

2. לאחר מכן, הוסף את שורת הקוד אשר משנה את צבע הגופן של כל התאים בעמודה A לשחור.

Columns(1).Font.Color = vbBlack

.3 הוסיפו את הלולאה.

For i = 1 To Rows.Count

Next i

הערה: דפי עבודה יכולים להכיל עד 65,536 שורות ב- Excel 2003 ועד 1,048,576 שורות ב- Excel 2007 ואילך. לא משנה מה הגירסה אתה משתמש, את שורת הקוד מעל לולאות דרך כל השורות (להורדה קובץ Excel הוא בפורמט Excel 97-2003).

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

If Cells(i, 1).Value < Range("D2").Value And Not IsEmpty(Cells(i, 1).Value) Then
    Cells(i, 1).Font.Color = vbRed
End If

תוצאה בעת לחיצה על לחצן הפקודה בגיליון (פעולה זו עשויה להימשך זמן מה):

לולאה לאורך כל עמודה תוצאה

לולאה לאורך כל עמודה תוצאה

קרא גם: