כיצד להוסיף קו ממוצע אופקי לגרף ב-Excel?

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

1. חשב את הממוצע של הנתונים באמצעות ממוצע פונקציה, למשל, בעמודת הממוצע C2, הקלד את הנוסחה הבאה: =Average($B$2:$B$8)ואז גרור את ידית האוטומטיקה של התא לטווח הדרוש לך. ראה צילום מסך:

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

3. וגרף נוצר, אנא לחץ על אחת מעמודות נתוני הממוצע (הסרגל האדום) בגרף, לחץ בכפתור ימני והבחר את שינוי סוג סדרת הגרף מהתפריט הקונטקסטואלי. ראה צילום מסך:

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

5. לחץ על אישור כפתור. כעת יש לך קו אופקי המייצג את הממוצע בגרף שלך, ראה צילום מסך:

שיטה זו תמליץ על כלי מדהים, תכונת הוספת קו לגרף של Kutools for Excel, כדי להוסיף במהירות קו ממוצע אופקי לגרף העמודות שנבחרו רק בשתי לחיצות!

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

1. בחר את גרף העמודות, ולחץ על Kutools > תרשימים > הוסף קו לגרף כדי להפעיל את התכונה.

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

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

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

1. לחץ על אחת מעמודות הנתונים בגרף שלך, ואז כל עמודות הנתונים ייבחרו, ראה צילום מסך:

2. החזק את המקשים ALT + F11, וזה יפתח את חלון Microsoft Visual Basic for Applications.

3. לחץ על הוסף > מודול, והדבק את הקוד הבא בחלון המודול.

VBA: הוסף קו ממוצע לגרף

Sub AverageLine()
'Update 20130907
Dim ser As Series
Dim arr As Variant
Dim total As Double
Dim outArr As Variant
If VBA.TypeName(Application.Selection) <> "Series" Then Exit Sub
Set ser = Application.Selection
arr = ser.Values
total = Application.WorksheetFunction.Average(arr)
ReDim outArr(LBound(arr) To UBound(arr))
For i = LBound(outArr) To UBound(outArr)
    outArr(i) = total
Next
With ActiveChart.SeriesCollection.NewSeries
    .XValues = ser.XValues
    .Values = outArr
    .Name = "Average " & ser.Name
    .AxisGroup = ser.AxisGroup
    .MarkerStyle = xlNone
    .Border.Color = ser.Border.Color
    .ChartType = xlLine
    .Format.Line.ForeColor.ObjectThemeColor = msoThemeColorAccent6
End With
End Sub

4. לאחר מכן לחץ על F5 כדי להריץ את הקוד, וקו ממוצע אופקי נוסף לגרף העמודות. ראה צילום מסך:

הערה: קוד VBA זה יכול לפעול רק כאשר הפורמט של העמודה שאתה מוסיף הוא עמודה דו-ממדית.