Đặt nhãn dữ liệu tùy chỉnh trong biểu đồ

Quy trình VBA (Visual Basic for Applications) sau đây sẽ cho phép bạn sử dụng giá trị ô làm nhãn dữ liệu trong biểu đồ trong Excel for Mac. Để sử dụng quy trình, hãy làm như sau:

1. Trong Excel, bấm vào Công > Macro> Ghi Macro Mới.

2. Trong hộp thả xuống Lưu macro trong: , chọn Sổ làm việc Macro Cá nhân.

   Lưu ý: Bằng cách lưu trữ thủ tục VBA trong Sổ làm việc Macro Cá nhân, sau đó bạn có thể sử dụng quy trình này trong bất kỳ phiên bản Nào của Excel. Điều này có nghĩa là nó không chỉ giới hạn trong một sổ làm việc duy nhất.

3. Nhấn OK.

4. Đi tới Công cụ > Macro và > Ngừng Ghi.

5. Đi tới Công cụ > Macro và> Sửa Visual Basic.

6. Trình soạn thảo Visual Basic (VBE) sẽ mở ở trên Excel. Trong ngăn dẫn hướng ở bên trái, bung rộng VBAProject (CÁ NHÂN. XLSB) để hiển thị Mô-đun 1.

7. Bấm đúp vào Mô-đun 1 để hiển thị ngăn Mã sẽ mở ra ở bên phải cửa sổ VBE.

8. Mã VBA đã được tạo khi bạn ghi một macro mới là không cần thiết, vì vậy hãy chọn tất cả, rồi nhấn Delete. 

9. Tiếp theo, chọn mã VBA trong hộp văn bản bên dưới, nhấn CMD+C để sao chép, sau đó dán trở lại vào ngăn Mã bằng CMD+V. Bây giờ bạn có thể thoát khỏi Trình soạn thảo Visual Basic và quay trở lại Excel.

10. Kiểm tra macro bằng cách tạo biểu đồ có nhãn dữ liệu. Tiếp theo, chọn bất kỳ nhãn dữ liệu nào trên biểu đồ và chạy macro bằng cách bấm vào Công cụ > Macro > Macro. Chọn SetCustomDataLabels, rồi nhấn Run. Bạn sẽ tự động được nhắc chọn dải nhãn dữ liệu của mình, vì vậy hãy thực hiện thao tác đó, rồi nhấn OK.  

    Lưu ý: Không thể hoàn tác các thủ tục VBA, vì vậy hãy đảm bảo bạn thử làm điều này trên bản sao của sổ làm việc. Nếu bạn chạy mã và không muốn giữ kết quả, bạn sẽ cần đóng sổ làm việc mà không lưu.

11. Khi bạn thoát khỏi Excel, hãy đảm bảo bạn chọn lưu thay đổi trong CÁ NHÂN. XLSB để macro sẽ sẵn dùng trong tương lai.

12. Bất cứ khi nào bạn muốn thêm hoặc loại bỏ nhãn dữ liệu khỏi biểu đồ, hãy chọn nhãn dữ liệu và chạy macro.

13. Bạn có thể sử dụng Tùy > Excel > Thanh công cụ & Ribbon để thêm nút để chạy macro từ dải băng hoặc thanh công cụ.

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