使用变量范围更新图表数据标签的VBA代码问题求助

问题根源 #

你写 "=rng" 时，VBA不会把它解析成你定义的范围变量，而是直接把这串文本传给InsertChartField方法——但这个方法需要的是带工作表引用的完整单元格地址字符串，和你硬编码的"='Avg Monthly score'!$T$3:$T$34"格式完全一致，变量不能直接丢进去，得先转成对应格式的字符串。

修正后的完整代码 #

Sub Data_Label_Range()
    Dim rng As Range
    Dim rngFullAddress As String
    
    ' 这里替换成你的InputBox选择范围的逻辑，暂时保留示例赋值
    Set rng = Range("$T$3:$T$34")
    
    ' 生成带工作表名称的完整地址字符串
    rngFullAddress = "='" & rng.Parent.Name & "'!" & rng.Address
    
    ' 用With语句简化操作，避免冗余的Activate/Select
    With ActiveSheet.ChartObjects("Graph_Avg_Monthly").Chart.SeriesCollection(1)
        .DataLabels.ShowValue = True
        ' 传入正确格式的地址字符串
        .DataLabels.Format.TextFrame2.TextRange.InsertChartField _
            msoChartFieldRange, rngFullAddress, 0
    End With
End Sub

核心说明 #

1. 地址格式转换：用rng.Parent.Name自动获取范围所在的工作表名，拼接上rng.Address得到标准引用格式，不用硬编码工作表名称，适配不同场景
2. 避免激活选择：原代码里的Activate和Select完全没必要，用With语句直接操作图表对象，代码更高效也更稳定

内容的提问来源于stack exchange，提问作者Rob J