Announcement

Collapse

ยินดีต้อนรับสู่ Excel Expert Training Forum

กฏกติกาของฟอรัม: แจ้งชื่อและนามสกุลจริงในการสมัครสมาชิก - ตั้งชื่อกระทู้ให้ตรงกับปัญหาที่ถาม - เขียนอธิบายคำถามทั้งในตัวกระทู้และในแฟ้มแนบ - ห้ามใช้คำว่า อ่ะ คับ คำผวน - ตั้งชื่อแฟ้มเป็นภาษาอังกฤษให้สื่อถึงปัญหา - อย่าระบุชื่อให้คนใดเป็นผู้ตอบ - งดให้ความร่วมมือหรือช่วยกระทู้ที่ละเมิดกฏของฟอรัม
See more
See less

เพิ่มป้ายชื่อให้จุดข้อมูล ในแผนภูมิ XY (Scatter Plot) ไม่ได้ค่ะ

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • เพิ่มป้ายชื่อให้จุดข้อมูล ในแผนภูมิ XY (Scatter Plot) ไม่ได้ค่ะ

    คือกราฟเป็นการพล็อตค่าของ ZSalesContribution กับ และต้องการใส่ชื่อป้ายข้อมูลเป็นชื่อลูกค้าใน Column A ค่ะ ต้องทำยังไงค่ะ ช่วยแนะนำด้วยค่ะอาจารย์ ขอบคุณค่ะ
    Attached Files

  • #2
    ถ้าเป็น Excel 2013 จะ add data lebel ด้วยข้อมูลจาก cell ได้
    แต่ถ้าเป็น 2007 นี่สงสัยต้องใช้ VBA แตก็คงไม่ง่ายซะทีเดียว
    เดี๋ยวขอลองดูก่อนครับ ว่าพอจะไหวมั้ย
    Attached Files

    Comment


    • #3
      ขอบคุณมากค่ะ ยังไงรบกวนด้วยนะคะ

      Comment


      • #4
        1. สร้างกราฟขึ้นมาตารูปที่ 1 นะครับ(คลิกที่รูปเพื่อดูรูปใหญ่)
        Click image for larger version

Name:	1.PNG
Views:	1
Size:	76.3 KB
ID:	1647
        2. กดที่ Tab Developer แล้วเลือกที่ Visual basic ครับ (วิธีการเอา Tab Developer ออกมาตามลิงค์นี้นะครับ https://www.techonthenet.com/excel/q...er_tab2013.php
        Click image for larger version

Name:	00.PNG
Views:	1
Size:	23.5 KB
ID:	1648

        3.กด Insert แล้วเลือกที่ Module แล้ว Copy โค้ดค่านล่างลงไปนะครับ เสร็จแล้วปิดหน้า Visual basic ให้กลับมาอยุ่หน้า Excel ครับ
        Click image for larger version

Name:	0.PNG
Views:	1
Size:	318.5 KB
ID:	1649
        Sub AttachLabelsToPoints()

        'Dimension variables.
        Dim Counter As Integer, ChartName As String, xVals As String

        ' Disable screen updating while the subroutine is run.
        Application.ScreenUpdating = False

        'Store the formula for the first series in "xVals".
        xVals = ActiveChart.SeriesCollection(1).Formula

        'Extract the range for the data from xVals.
        xVals = Mid(xVals, InStr(InStr(xVals, ","), xVals, _
        Mid(Left(xVals, InStr(xVals, "!") - 1), 9)))
        xVals = Left(xVals, InStr(InStr(xVals, "!"), xVals, ",") - 1)
        Do While Left(xVals, 1) = ","
        xVals = Mid(xVals, 2)
        Loop

        'Attach a label to each data point in the chart.
        For Counter = 1 To Range(xVals).Cells.Count
        ActiveChart.SeriesCollection(1).Points(Counter).HasDataLabel = _
        True
        ActiveChart.SeriesCollection(1).Points(Counter).DataLabel.Text = _
        Range(xVals).Cells(Counter, 1).Offset(0, -1).Value
        Next Counter

        End Sub

        4.เลือกที่กราฟกด Tab Developer แล้วเลือกที่ Macro กดเลือก Macro Name AttachLabelsToPoints แล้วกด RUN ครับ
        Click image for larger version

Name:	2.PNG
Views:	1
Size:	484.3 KB
ID:	1650
        5.Add Series (Cluster) เพิ่ม*** แล้วกดให้ Series ใหม่ขึ้นไปอยู่บนสุด *** จำเป็นมากครับ
        Click image for larger version

Name:	3.PNG
Views:	1
Size:	383.8 KB
ID:	1651
        ทำตามข้อ 4-5 ไปจนกว่าจะครบตามจำนวนครับ

        ผิดพลาดตรงไหนก็ขออภัยด้วยนะครับ
        Last edited by crazyprinze; 13 Dec 2018, 15:58.

        Comment


        • Sunanta
          Sunanta commented
          Editing a comment
          ขอบคุณมากค่ะ เดี๋ยวจะลองดูนะคะ
      Working...
      X