ตั้งค่าป้ายชื่อข้อมูลแบบกําหนดเองในแผนภูมิ

กระบวนงาน VBA (Visual Basic for Applications) ต่อไปนี้จะช่วยให้คุณใช้ค่าเซลล์เป็นป้ายชื่อข้อมูลในแผนภูมิของคุณใน Excel for Mac เมื่อต้องการใช้ขั้นตอน ให้ทําดังต่อไปนี้:

1. ใน Excel ให้คลิก เครื่องมือ > แมโคร > บันทึกแมโครใหม่

2. ในกล่องดรอปดาวน์ เก็บแมโครไว้ที่: ให้เลือก เวิร์กบุ๊กแมโครส่วนบุคคล

   หมายเหตุ: ด้วยการจัดเก็บกระบวนงาน VBA ในเวิร์กบุ๊กแมโครส่วนบุคคล คุณจะสามารถใช้กระบวนงานนั้นในอินสแตนซ์ใดๆ ของ Excel ได้ ซึ่งหมายความว่าไม่จํากัดเพียงการใช้ในเวิร์กบุ๊กเดียวเท่านั้น

3. กด ตกลง

4. ไปที่ เครื่องมือ > แมโคร > หยุดการบันทึก

5. ไปที่ เครื่องมือ > แมโคร > Visual Basic Editor

6. Visual Basic Editor (VBE) จะเปิดทางด้านบนของ Excel ในบานหน้าต่างนําทางทางด้านซ้าย ให้ขยาย VBAProject (PERSONAL โฟลเดอร์ XLSB) เพื่อแสดง Module1

7. ดับเบิลคลิก ที่ Module1 เพื่อแสดง บานหน้าต่างโค้ด ซึ่งจะเปิดทางด้านขวาของหน้าต่าง VBE

8. โค้ด VBA ที่ถูกสร้างขึ้นเมื่อคุณบันทึกแมโครใหม่ไม่จําเป็น ดังนั้น ให้เลือกทั้งหมด แล้วกด Delete 

9. จากนั้น เลือกโค้ด VBA ในกล่องข้อความด้านล่าง กด CMD+C เพื่อคัดลอก แล้ววางกลับในบานหน้าต่างโค้ดด้วย CMD+V คุณสามารถออกจาก Visual Basic Editor และกลับไปยัง Excel ได้แล้ว

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

    หมายเหตุ: กระบวนงาน VBA ไม่สามารถเลิกทําได้ ดังนั้น โปรดตรวจสอบให้แน่ใจว่าได้ลองใช้กระบวนงานนี้กับสําเนาของเวิร์กบุ๊กแล้ว ถ้าคุณเรียกใช้โค้ดและไม่ต้องการเก็บผลลัพธ์ไว้ คุณจะต้องปิดเวิร์กบุ๊กโดยไม่บันทึก

11. เมื่อคุณออกจาก Excel ตรวจสอบให้แน่ใจว่าคุณเลือกที่จะบันทึกการเปลี่ยนแปลงในส่วนบุคคล XLSB เพื่อให้แมโครพร้อมใช้งานในอนาคต

12. เมื่อใดก็ตามที่คุณต้องการเพิ่มหรือเอาป้ายชื่อข้อมูลออกจากแผนภูมิ ให้เลือกป้ายชื่อข้อมูลและเรียกใช้แมโคร

13. คุณสามารถใช้การกําหนดลักษณะ > Excel> Ribbon & แถบเครื่องมือ เพื่อเพิ่มปุ่มเพื่อเรียกใช้แมโครจาก Ribbon หรือแถบเครื่องมือ

Option Explicit

Sub SetCustomDataLabels()
' make sure a series is selected
    If TypeOf Selection Is DataLabels Or TypeOf Selection Is Point Then
        Selection.Parent.Select
    ElseIf TypeOf Selection Is DataLabel Then
        Selection.Parent.Parent.Select
    End If

    If TypeOf Selection Is Series Then
        Else
        MsgBox "Select a chart series and try again."
        Exit Sub
    End If

    If Selection.HasDataLabels Then
        'If the data labels from cells are already showing, stop showing them and exit.
        'If labels include other info (e.g., values or categories) this will still appear
        If Selection.DataLabels.ShowRange Then
            Selection.DataLabels.ShowRange = False
            Exit Sub
        End If
    End If
 
'Use the InputBox dialog to set the range for the data labels
    On Error Resume Next
        Dim rng As Range
        Set rng = Application.InputBox(Prompt:="Select data label range.", Title:="Data Label Range", Type:=8)
    On Error GoTo 0

    If rng Is Nothing Then Exit Sub ' clicked cancel
        If Selection.HasDataLabels Then
            'This will include the new text from cells into existing data labels
        Else
        'Otherwise add data labels (empty labels)
            Selection.HasDataLabels = True
            Selection.DataLabels.ShowValue = False
        End If
    
    'Create a string that includes the sheet name and range reference.
    Dim rngAddress As String
        rngAddress = "='" & rng.Worksheet.Name & "'!" & rng.Address(RowAbsolute:=True, ColumnAbsolute:=True, External:=False)
        Selection.DataLabels.Format.TextFrame2.TextRange.InsertChartField msoChartFieldRange, rngAddress, 0
        Selection.DataLabels.ShowRange = True

End Sub