/ / טווח דינמי ב- Excel VBA

טווח דינמי ב- Excel VBA

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

מצב:

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

טווח דינמי ב- Excel VBA

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

1. ראשית, אנו מכריזים על משתנה אחד ושני אובייקטים בטווח. משתנה אחד מסוג כפול שאנו מכנים מקסימום. אנו מכנים את האובייקט של טווח האובייקטים והתא.

Dim maximum As Double, rng As Range, cell As Range

2. אנו מוסיפים את הקו אשר משנה את צבע הרקע של כל התאים כדי "לא למלא".

Cells.Interior.ColorIndex = 0

3. אנחנו לאתחל rng עם המספרים. אנו משתמשים במאפיין CurrentRegion עבור זה. CurrentRegion שימושי כאשר אנחנו לא "לא יודע את הגבולות המדויקים של טווח מראש.

Set rng = Range("A1").CurrentRegion

4. אנחנו אתחול מקסימלי עם הערך המרבי של המספרים. אנו משתמשים בגיליון העבודה Max כדי למצוא את הערך המקסימלי.

maximum = WorksheetFunction.Max(rng)

5. לבסוף, אנו צבע הערך המרבי. אנו משתמשים עבור כל לולאה הבאה.

For Each cell In rng
    If cell.Value = maximum Then cell.Interior.ColorIndex = 22
Next cell

הערה: במקום ColorIndex מספר 22 (אדום), ניתן להשתמש בכל מספר ColorIndex.

.6 הוסף מספר.

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

תוצאה בטווח דינמי

קרא גם: