Как добавить горизонтальную линию среднего значения на диаграмму в Excel?

Если вы хотите вставить горизонтальную линию среднего значения на диаграмму, вы можете сначала рассчитать среднее значение данных, а затем создать диаграмму. Пожалуйста, сделайте следующее:

1. Рассчитайте среднее значение данных с помощью функции Среднее , например, в столбце Среднее C2 введите эту формулу: =Average($B$2:$B$8), а затем перетащите маркер автозаполнения этой ячейки до нужного диапазона. Смотрите скриншот:

2. Затем выберите этот диапазон и выберите формат диаграммы, который вы хотите вставить, например 2-D Гистограмма под вкладкой Вставка . Смотрите скриншот:

3. И диаграмма создана, пожалуйста, щелкните один из столбцов средних данных (красная полоса) на диаграмме, щелкните правой кнопкой мыши и выберите Изменить тип диаграммы ряда в контекстном меню. Смотрите скриншот:

4. В открывшемся окне Изменение типа диаграммы диалоговом окне нажмите, чтобы выделить Комбинация в левой панели, нажмите на поле за Среднее, а затем выберите стиль линейной диаграммы из выпадающего списка. Смотрите скриншот:

5. Нажмите кнопку ОК . Теперь у вас есть горизонтальная линия, представляющая среднее значение на вашей диаграмме, см. скриншот:

Этот метод порекомендует удивительный инструмент, функцию Добавить линию к диаграмме Kutools для Excel, чтобы быстро добавить горизонтальную линию среднего значения на выбранный столбчатый график всего за два клика!

Предположим, что вы создали столбчатую диаграмму, как показано на скриншоте ниже, и вы можете добавить горизонтальную линию среднего значения следующим образом:

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 может выполняться только при вставленном формате Столбец 2-D.