如何移除Excel VBA代码中的消息框，直接指定系列名称区域？

核心修改逻辑 #

原代码通过Application.InputBox(Type:=8)弹出对话框让用户选择区域，现在直接替换为固定引用目标单元格区域（如C27:E27），同时明确指定区域归属的工作表，避免跨表引用错误。

场景1：创建新图表时直接指定系列名称 #

如果是从头创建图表并设置系列名称，使用以下代码（根据你的实际数据区域调整）：

Sub CreateChartWithFixedSeriesNames()
    Dim cht As Chart
    Dim ws As Worksheet
    Dim rngSeriesNames As Range
    Dim rngSeriesValues As Range
    Dim seriesIndex As Integer
    
    ' 指定数据所在工作表（替换为你的实际表名）
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 直接指定系列名称区域：C27:E27
    Set rngSeriesNames = ws.Range("C27:E27")
    
    ' 指定对应的数据区域（示例为C28:E35，根据你的数据范围修改）
    Set rngSeriesValues = ws.Range("C28:E35")
    
    ' 创建簇状柱形图（可修改Style和ChartType参数更换样式）
    Set cht = ws.Shapes.AddChart2(Style:=201, XlChartType:=xlColumnClustered).Chart
    
    ' 删除图表默认生成的系列
    Do While cht.SeriesCollection.Count > 0
        cht.SeriesCollection(1).Delete
    Loop
    
    ' 逐个添加系列并设置名称、数值
    For seriesIndex = 1 To rngSeriesNames.Cells.Count
        With cht.SeriesCollection.NewSeries
            ' 关联单元格（名称会随单元格内容动态更新）
            .Name = "=" & rngSeriesNames.Cells(seriesIndex).Address(External:=True)
            ' 如果不需要动态更新，直接用单元格值：.Name = rngSeriesNames.Cells(seriesIndex).Value
            .Values = ws.Range(ws.Cells(28, seriesIndex + 2), ws.Cells(35, seriesIndex + 2))
        End With
    Next seriesIndex
End Sub

场景2：更新已有图表的系列名称 #

如果是修改已存在的图表系列名称，运行前先选中目标图表，再执行以下代码：

Sub UpdateExistingChartSeriesNames()
    Dim cht As Chart
    Dim ws As Worksheet
    Dim rngSeriesNames As Range
    Dim seriesIndex As Integer
    
    ' 获取当前选中的图表
    Set cht = ActiveChart
    If cht Is Nothing Then
        MsgBox "请先选中一个图表！"
        Exit Sub
    End If
    
    ' 指定数据所在工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    ' 固定系列名称区域
    Set rngSeriesNames = ws.Range("C27:E27")
    
    ' 检查系列数量与名称区域单元格数量是否匹配
    If cht.SeriesCollection.Count <> rngSeriesNames.Cells.Count Then
        MsgBox "图表系列数量与名称区域单元格数量不匹配！"
        Exit Sub
    End If
    
    ' 逐个更新系列名称
    For seriesIndex = 1 To cht.SeriesCollection.Count
        cht.SeriesCollection(seriesIndex).Name = "=" & rngSeriesNames.Cells(seriesIndex).Address(External:=True)
        ' 静态名称写法：.Name = rngSeriesNames.Cells(seriesIndex).Value
    Next seriesIndex
End Sub

注意事项 #

• 替换代码中的Sheet1为你的实际工作表名称
• 调整rngSeriesValues的范围以匹配你的数据区域
• 如果需要其他图表类型，修改XlChartType参数（如xlLine为折线图）

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