Bir grafiğe yatay bir ortalama çizgi eklemek istiyorsanız, önce verilerin ortalamasını hesaplayabilir ve ardından grafiği oluşturabilirsiniz. Lütfen şunu yapın:

1. Verilerin ortalamasını hesaplayın Ortalama işlev, örneğin Ortalama Sütun C2'ye şu formülü yazın: = Ortalama ($ B $ 2: $ B $ 8)ve sonra bu hücrenin Otomatik Doldurma tutamacını istediğiniz aralığa sürükleyin. Ekran görüntüsüne bakın:

2. Ve sonra bu aralığı seçin ve aşağıdaki 2-B Sütun gibi eklemek istediğiniz bir grafik biçimini seçin. Ekle sekmesi. Ekran görüntüsüne bakın:

3. Ve bir grafik oluşturuldu, lütfen grafikteki ortalama veri sütunlarından (kırmızı çubuk) birine tıklayın, sağ tıklayın ve Seri Grafik Türünü Değiştir bağlam menüsünden. Ekran görüntüsüne bakın:

4. Dışarı fırladı Grafik Türünü Değiştir iletişim kutusunu vurgulamak için tıklayın kombo sol çubukta, arkasındaki kutuya tıklayın Ortalamave ardından açılır listeden bir çizgi grafik stili seçin. Ekran görüntüsüne bakın:

5. Tıkla OK buton. Şimdi, grafiğinizdeki ortalamayı temsil eden yatay bir çizginiz var, ekran görüntüsüne bakın:

Bu yöntem harika bir araç önerecek, Grafiğe Çizgi Ekle özelliği Kutools for Excel, seçilen sütun grafiğine yalnızca 2 tıklama ile hızlı bir şekilde yatay ortalama çizgi eklemek için!

Aşağıda gösterilen ekran görüntüsü gibi bir sütun grafiği oluşturduğunuzu varsayarsak, bunun için aşağıdaki gibi yatay bir ortalama çizgi ekleyebilirsiniz:

1. Sütun grafiğini seçin ve tıklayın Kutools > Grafikler > Grafiğe Çizgi Ekle Bu özelliği etkinleştirmek için.

2. Çizgiyi grafiğe ekle iletişim kutusunda, lütfen Ortalama seçeneğini tıklayın ve Ok düğmesine basın.

Şimdi yatay ortalama çizgi aynı anda seçilen sütun grafiğine eklenir.

Çalışma sayfanızdaki verilerinizle bir sütun grafiği oluşturduğunuzu varsayarsak ve aşağıdaki VBA kodu, grafiğinize ortalama bir çizgi eklemenize yardımcı olabilir.

1． Grafiğinizdeki veri sütunlarından birine tıklayın ve ardından tüm veri sütunları seçilecektir, ekran görüntüsüne bakın:

2. Basılı tutun ALT + F11 anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic pencere.

3. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresi.

VBA: grafiğe ortalama bir çizgi ekleyin

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. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için anahtar ve sütun grafiğine yatay bir ortalama çizgi eklenmiştir. Ekran görüntüsüne bakın:

not: Bu VBA yalnızca eklediğiniz Sütun biçimi 2 Boyutlu Sütun olduğunda çalışabilir.