如何用Excel VBA为图表自定义1-20数值对应的专属文本数据标签？

我们可以通过建立数值与专属文本的映射关系，遍历图表每个数据点替换标签内容，替代繁琐的多段If语句。以下是修改后的完整可运行代码：

Sub Apply_Custom_Data_Labels()
    
    ' 为指定图表的所有系列设置自定义数据标签（1-20数值对应专属文本）
    Sheets("Grafico Pivot").Unprotect
    
    ' 定义数值与专属文本的映射（可根据需求直接修改文本内容）
    Dim labelMap As Object
    Set labelMap = CreateObject("Scripting.Dictionary")
    With labelMap
        .Add 1, "CODE_01"
        .Add 2, "CODE_02"
        .Add 3, "CODE_03"
        .Add 4, "CODE_04"
        .Add 5, "CODE_05"
        .Add 6, "CODE_06"
        .Add 7, "CODE_07"
        .Add 8, "CODE_08"
        .Add 9, "CODE_09"
        .Add 10, "CODE_10"
        .Add 11, "CODE_11"
        .Add 12, "CODE_12"
        .Add 13, "CODE_13"
        .Add 14, "CODE_14"
        .Add 15, "CODE_15"
        .Add 16, "CODE_16"
        .Add 17, "CODE_17"
        .Add 18, "CODE_18"
        .Add 19, "CODE_19"
        .Add 20, "CODE_20"
    End With
    
    Dim Cht As Chart
    Dim Ser As Series
    Dim dp As Point
    Dim pointValue As Double
    
    ' 指定目标图表
    Set Cht = Sheets("Grafico Pivot").ChartObjects("Chart 1").Chart
    
    ' 遍历每个系列及下属数据点
    For Each Ser In Cht.SeriesCollection
        Ser.ApplyDataLabels
        ' 逐个处理数据点标签
        For Each dp In Ser.Points
            ' 直接从系列数值数组获取原始值，避免格式干扰
            pointValue = Ser.Values(dp.Index)
            ' 匹配映射表替换标签文本
            If labelMap.Exists(pointValue) Then
                dp.DataLabel.Text = labelMap(pointValue)
            End If
            ' 保留原有的标签格式设置
            dp.DataLabel.Font.Size = 10
        Next dp
    Next Ser
    
    Sheets("Grafico Pivot").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    
End Sub

关键细节说明 #

• 映射表用字典更高效：相比多段If判断，Scripting.Dictionary的键值对结构更简洁，后续修改或扩展文本映射只需调整Add语句即可。
• 获取原始数值：用Ser.Values(dp.Index)直接读取系列的原始数值，避免因数据标签格式化（比如千分位）导致的匹配失败。
• 晚绑定字典：代码中用CreateObject创建字典，无需手动在VBA编辑器中勾选引用，兼容性更强。

注意事项 #

1. 可直接修改字典中的文本内容，替换为你需要的专属代码。
2. 如果数据点数值为非整数，需调整字典的键为对应数值（比如1.0对应"CODE_01"），或先对数值取整再判断。
3. 若需要给未匹配到1-20的数值设置默认标签，可在If判断后添加Else分支补充逻辑。

内容的提问来源于stack exchange，提问作者Niccolo Rivato