Excel VBA实现带自定义误差棒的柱状图遇阻求助

你的问题核心是ErrorBar方法的参数类型不匹配：Amount和PlusValues不接受直接传入Range对象，必须传入字符串格式的单元格引用（比如"$C$108:$C$112"），同时要确保引用的单元格数量和图表数据系列的点数完全一致。

另外，代码里大量使用Select/Activate不仅容易触发意外错误，还会降低运行效率，建议改成直接操作对象的写法。

修正后的代码示例 #

Dim ws As Worksheet
Dim chartObj As Shape
Dim dataRange As Range
Dim errorBarRange As Range
Dim seriesObj As Series

' 指定目标工作表，避免默认工作表的引用问题
Set ws = ThisWorkbook.Worksheets(SHEET_NAME)

' 定义平均值数据范围
Set dataRange = ws.Range("B98:C103")

' 创建柱状图并绑定数据，无需Select操作
Set chartObj = ws.Shapes.AddChart2(201, xlColumnClustered)
chartObj.Chart.SetSourceData Source:=dataRange

' 获取第一个数据系列
Set seriesObj = chartObj.Chart.FullSeriesCollection(1)

' 启用误差棒
seriesObj.HasErrorBars = True

' 定义标准误数据范围（注意：行数必须和数据系列点数一致）
Set errorBarRange = ws.Range(ws.Cells(108, 3), ws.Cells(113, 3)) ' 这里调整为6行，匹配B98:C103的6个数据点

' 设置自定义误差棒：用Address方法将Range转为字符串引用
seriesObj.ErrorBar _
    Direction:=xlY, _
    Include:=xlPlusValues, _
    Type:=xlCustom, _
    PlusValues:=errorBarRange.Address(External:=False)

关键注意事项 #

• 误差棒数据行数必须和数据系列点数一致：你的原始代码中，数据系列是B98:C103（6行），但误差棒范围是C108:C112（仅5行），这会直接触发错误，必须调整误差棒范围的行数匹配数据点数量。
• 跨工作表引用需带表名：如果误差棒数据在其他工作表，要写成ws.Name & "!" & errorBarRange.Address的格式。
• 自定义模式下无需设置Amount：Amount参数仅针对固定值、百分比等非自定义误差棒类型，自定义模式下只需设置PlusValues/MinusValues即可。

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