本文被阅读次了

2019-04-29  星期一 / Excel,图表,平均线 /

在Excel图表中添加水平的平均线

    图文介绍

    第一种方法:使用助手列將平均水平線添加到圖表

    如果要將水平平均線插入圖表,則可以先計算數據的平均值,然後創建圖表。 請這樣做:

    1、計算數據的平均值 平均 函數,例如,在平均列C2中,鍵入以下公式: =平均($ B $ 2:$ B $ 8),然後將該單元格的自動填充句柄拖到需要的範圍。 看截圖:

    注意:點擊了解更多 將相同的formla應用於整個列, 或者叫 將完全相同的公式/值應用於整個列而無需單元格編號遞增。

    2、然後選擇這個範圍並選擇一個你想插入的圖表格式,比如2-D Column下的 插入 標籤。 看截圖:

    3、並且創建了圖表,請單擊圖表中的平均數據列(紅色條)之一,右鍵單擊並選擇 更改系列圖表類型 從上下文菜單。 看截圖:

    4、 在彈出 更改圖表類型 對話框中,單擊以突出顯示 組合 在左側欄中,單擊後面的框 平均,然後從下拉列表中選擇折線圖樣式。 看截圖:

    5、點擊 OK 按鈕。 現在,您有一條水平線代表圖表中的平均值,請參閱截圖:

    第二种方法:使用VBA代碼向圖表添加水平平均線

    假設已經在工作表中創建了包含數據的柱形圖,並且以下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 鍵來運行此代碼,並將一條水平平均線插入到列圖中。 看截圖:

    注意:只有插入的列格式為2-D Column時,才可以運行此VBA。【完】

    租赁视界新闻中心本站整理
    免责声明:本站所提供的内容部分来源于网络,版权归属原作者。 转载文章出于传递更多知识之目的,对这些信息的准确性和完整性不作任何保证, 并不意味着赞同其观点或证实其描述。

    别告诉我你会用Excel

    本专题从Excel中的一些鲜为人知的技巧入手,领略一下关于Excel的别样风情。...