300 דוגמאות

טווח דינמי

Dynamic Range

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



מַצָב:

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





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

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



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

אף אחדמַקסִימוּםכפי ש לְהַכפִּיל, rngכפי שטווח, תאכפי שטווח

2. נוסיף את השורה שמשנה את צבע הרקע של כל התאים ל'אין מילוי '.

Cells.Interior.ColorIndex = 0

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

מַעֲרֶכֶתrng = טווח ('A1'). CurrentRegion

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

מקסימום = גליון עבודה פונקציה. מקס (rng)

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

ל כל אחדתָאבrng
אםcell.Value = מקסימוםלאחר מכןcell.Interior.ColorIndex = 22
הַבָּאתָא

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

6. הוסיפו מספר.

כיצד לשנות תוויות ציר אופקי ב- Excel

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

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

3/14 הושלם! למידע נוסף על אובייקט הטווח>
עבור לפרק הבא: משתנים



^