Če želite v grafikon vstaviti vodoravno povprečno črto, lahko najprej izračunate povprečje podatkov in nato ustvarite grafikon. Naredite to:

1. Izračunajte povprečje podatkov z Povprečje funkcijo, na primer v Povprečni stolpec C2 vnesite to formulo: = Povprečje ($ 2 $: $ 8 $)in nato povlecite ročico samodejnega izpolnjevanja te celice v obseg, kot ga potrebujete. Oglejte si posnetek zaslona:

2. Nato izberite ta obseg in izberite eno obliko grafikona, ki jo želite vstaviti, na primer 2-D stolpec pod Vstavi zavihek. Oglejte si posnetek zaslona:

3. In grafikon je bil ustvarjen, kliknite enega od stolpcev s povprečnimi podatki (rdeča vrstica) na grafikonu, z desno miškino tipko izberite in izberite Spremeni vrsto grafikona serije iz kontekstnega menija. Oglejte si posnetek zaslona:

4. V izskočil Spremeni vrsto grafikona v pogovornem oknu kliknite, da označite Combo v levi vrstici kliknite polje za Povprečjein nato na spustnem seznamu izberite slog črtnega grafikona. Oglejte si posnetek zaslona:

5. kliknite OK . Zdaj imate v grafikonu vodoravno črto, ki predstavlja povprečje, glejte posnetek zaslona:

Ta metoda bo priporočila neverjetno orodje, Dodaj vrstico na grafikon značilnost Kutools za Excel, za hitro dodajanje vodoravne povprečne črte na izbrani stolpčni grafikon samo z 2 klikom!

Recimo, da ste ustvarili stolpčni grafikon, kot je prikazano na spodnji sliki zaslona, ​​in mu lahko dodate vodoravno povprečno črto, kot sledi:

1. Izberite stolpčni grafikon in kliknite Kutools > Charts > Dodaj vrstico na grafikon da omogočite to funkcijo.

2. V pogovornem oknu Dodaj vrstico na grafikon preverite Povprečje in kliknite na Ok gumb.

Zdaj se na izbrani stolpčni grafikon naenkrat doda vodoravna povprečna črta.

Recimo, da ste ustvarili stolpčni grafikon s svojimi podatki na delovnem listu in da vam lahko naslednja koda VBA pomaga vstaviti povprečno črto čez grafikon.

1． Kliknite enega od stolpcev s podatki v grafikonu in nato bodo izbrani vsi stolpci s podatki, glejte posnetek zaslona:

2. Držite tipko ALT + F11 in odpre tipko Microsoft Visual Basic za aplikacije okno.

3. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.

VBA: na grafikon dodajte povprečno črto

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. Nato pritisnite F5 tipko za zagon te kode, v stolpčni grafikon pa je vstavljena vodoravna povprečna črta. Oglejte si posnetek zaslona:

Opombe: Ta VBA se lahko zažene samo, če je format stolpca, ki ga vstavite, 2-D stolpec.