หากคุณต้องการแทรกเส้นค่าเฉลี่ยแนวนอนลงในแผนภูมิคุณสามารถคำนวณค่าเฉลี่ยของข้อมูลก่อนจากนั้นจึงสร้างแผนภูมิ กรุณาทำตามนี้:

1. คำนวณค่าเฉลี่ยของข้อมูลด้วย กลาง ตัวอย่างเช่นในคอลัมน์เฉลี่ย C2 พิมพ์สูตรนี้: = ค่าเฉลี่ย ($ B $ 2: $ B $ 8)แล้วลากจุดจับการป้อนอัตโนมัติของเซลล์นี้ไปยังช่วงตามที่คุณต้องการ ดูภาพหน้าจอ:

2. จากนั้นเลือกช่วงนี้และเลือกรูปแบบแผนภูมิหนึ่งรูปแบบที่คุณต้องการแทรกเช่นคอลัมน์ 2 มิติภายใต้ สิ่งที่ใส่เข้าไป แท็บ ดูภาพหน้าจอ:

3. และสร้างแผนภูมิแล้วโปรดคลิกหนึ่งในคอลัมน์ข้อมูลเฉลี่ย (แถบสีแดง) ในแผนภูมิคลิกขวาและเลือก เปลี่ยนประเภทแผนภูมิซีรี่ส์ จากเมนูบริบท ดูภาพหน้าจอ:

4. ในการโผล่ออกมา เปลี่ยนประเภทแผนภูมิ คลิกเพื่อไฮไลต์ไฟล์ วงดนตรีผสม ในแถบด้านซ้ายคลิกกล่องด้านหลังไฟล์ กลางแล้วเลือกลักษณะแผนภูมิเส้นจากรายการแบบหล่นลง ดูภาพหน้าจอ:

5. คลิก OK ปุ่ม. ตอนนี้คุณมีเส้นแนวนอนแสดงค่าเฉลี่ยในแผนภูมิของคุณดูภาพหน้าจอ:

วิธีนี้จะแนะนำเครื่องมือที่น่าทึ่ง เพิ่มบรรทัดในแผนภูมิ คุณลักษณะของ Kutools สำหรับ Excelเพื่อเพิ่มเส้นค่าเฉลี่ยแนวนอนลงในแผนภูมิคอลัมน์ที่เลือกอย่างรวดเร็วด้วยการคลิก 2 ครั้งเท่านั้น!

สมมติว่าคุณได้สร้างแผนภูมิคอลัมน์ตามภาพด้านล่างที่แสดงและคุณสามารถเพิ่มเส้นค่าเฉลี่ยแนวนอนได้ดังนี้:

1. เลือกแผนภูมิคอลัมน์แล้วคลิก Kutools > ชาร์ต > เพิ่มบรรทัดในแผนภูมิ เพื่อเปิดใช้งานคุณสมบัตินี้

2. ในกล่องโต้ตอบเพิ่มเส้นลงในแผนภูมิโปรดตรวจสอบไฟล์ กลาง ตัวเลือกและคลิกที่ Ok ปุ่ม

ตอนนี้เส้นค่าเฉลี่ยแนวนอนจะถูกเพิ่มลงในแผนภูมิคอลัมน์ที่เลือกพร้อมกัน

สมมติว่าคุณได้สร้างแผนภูมิคอลัมน์ด้วยข้อมูลของคุณในแผ่นงานของคุณและรหัส VBA ต่อไปนี้ยังช่วยให้คุณสามารถแทรกเส้นค่าเฉลี่ยในแผนภูมิของคุณได้

1． คลิกหนึ่งในคอลัมน์ข้อมูลในแผนภูมิของคุณจากนั้นคอลัมน์ข้อมูลทั้งหมดจะถูกเลือกดูภาพหน้าจอ:

2. กด ALT + F11 และจะเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

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 มิติ