If du vil sette inn en horisontal gjennomsnittlig linje til et diagram, kan du beregne gjennomsnittet av dataene først, og deretter opprette diagrammet. Vennligst gjør som dette:
1. Beregn gjennomsnittet av data med Gjennomsnittlig funksjon, for eksempel i Gjennomsnittlig kolonne C2 skriver du denne formelen: = Average ($ B $ 2: $ B $ 8), se skjermbilde:
to. Trykk deretter på Enter-tasten, og drar fyllhåndtaket til området du vil inneholde denne formelen, se skjermbilde:
tre. Og deretter velge dette området og velge en diagramformat som du vil sette inn, slik som 2-D kolonne under kategorien Sett inn. Se skjermbilde:
4. Og et diagram er opprettet, kan du klikke på en av den gjennomsnittlige datakolonnen (den røde linjen) i diagrammet, og du kan se datasettet frem som følger:
5. Deretter høyreklikk og velg Endre Series Diagramtype fra kontekstmenyen i spratt ut Endre diagramtype dialogboksen velger en linje diagram formatet du ønsker fra Linje delen, se skjerm:
6. Klikk på OK-knappen. Nå har du en horisontal linje som representerer gjennomsnittet i diagrammet, se skjermbilde:
Legg til en horisontal gjennomsnittlig linje til et kart med VBA-kode
Enn om du har opprettet et stolpediagram med data i regnearket, og følgende VBA-kode kan også hjelpe deg med å sette inn en gjennomsnittlig linje over diagrammet
1.Click en av datakolonnen i diagrammet, og deretter alle datakolonner vil bli valgt, se skjermbilde.:
to. Hold nede ALT + F11-tastene, og det åpner Microsoft Visual Basic for Applications vinduet.
3. Klikk Sett > Modul, og lim inn følgende kode i modulen Window
VBA. Legge en gjennomsnittlig linje i diagrammet
Sub AverageLine () 'Update 20130907Dim ser Som SeriesDim arr Som VariantDim total Som DoubleDim outArr Som VariantIf VBA.TypeName ( Application.Selection) < > "Series" Then Exit undergruppe ser = Application.Selectionarr = ser.Valuestotal = Application.WorksheetFunction.Average (arr) ReDim outArr (LBound (arr) Til UBound (arr)) For i = LBound (outArr) Til UBound (outArr) outArr (i) = totalNextWith 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 = msoThemeColorAccent6End WithEnd Sub4. Deretter trykker F5 for å kjøre denne koden, og en horisontal gjennomsnittlig linjen er satt inn diagrammet kolonnen inn. Se skjermbilde:
. Merk: Denne VBA kun kan kjøre når Column formatet du setter inn er 2-D Column
Datamaskin læring 