300 דוגמאות

תרשימי תכנות

Programming Charts

להלן נבחן שתי תוכניות ב Excel VBA . תוכנית אחת עובר בכל התרשימים על גיליון ומשנה כל תרשים לתרשים עוגה. התוכנית השנייה משנה כמה מאפייני התרשים הראשון .





1. צור כמה תרשימים (או הורד את קובץ האקסל).

תרשימי תכנות ב- Excel VBA





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

1. ראשית, עלינו להכריז על אובייקט ChartObject. האובייקט ChartObject משמש כמכל לאובייקט תרשים. אנו קוראים ל- ChartObject cht אך ניתן להשתמש בכל שם.



אף אחדchtכפי שChartObject

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

נוסחת תזרים מזומנים נטו שנתית מצטיינת
ל כל אחדchtבדפי עבודה (1) .ChartObjects

הַבָּאcht

3. אובייקט התרשים מייצג תרשים בחוברת עבודה. הוסף את שורת הקוד הבאה ללולאה For Every Next Next כדי לשנות כל תרשים לתרשים עוגה.

כיצד להכין גרף עלילת פיזור באקסל
cht.Chart.ChartType = xlPie

הערה: שוב, cht משמש כמכל לאובייקט התרשים. אנו משתמשים במאפיין ChartType כדי לשנות את סוג התרשים. אנו משתמשים ב- xlPie הקבוע המובנה כדי לשנות כל תרשים לתרשים עוגה.

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

תוצאת תרשימי תכנות

כעת נשנה כמה מאפיינים של התרשים הראשון.

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

5. אוסף ChartObjects מכיל את כל התרשימים המוטבעים על גיליון אחד. הוסף את שורת הקוד הבאה כדי להפעיל את התרשים הראשון:

דפי עבודה (1) .ChartObjects (1). הפעל

כעת אנו יכולים להתייחס לתרשים זה כ- ActiveChart.

6. הוסף את שורת הקוד הבאה כדי לשנות את כותרת התרשים.

ActiveChart.ChartTitle.Text = 'דוח מכירות'

7. הוסף את שורת הקוד הבאה כדי להעביר את המקרא לתחתית התרשים:

ActiveChart.Legend.Position = xlBottom

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

תוצאת תרשימי תכנות

החל את פן הנושא על גליון העבודה הנוכחי

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



^