如何通过循环IF语句遍历单元格与图表系列（VBA）

原代码仅针对图表的Series1，根据D4的值设置线条颜色。现在需要循环处理10个系列，每个系列对应D列从D4开始的连续单元格（Series1→D4，Series2→D5，…，Series10→D13），修正后的代码如下：

Private Sub Worksheet_Calculate()
    Dim ch As Chart
    Dim i As Integer
    Dim targetCell As Range
    Dim seriesColor As Long
    
    ' 直接引用图表，避免激活操作
    Set ch = Me.ChartObjects("Chart").Chart
    
    ' 循环遍历10个系列
    For i = 1 To 10
        ' 对应D列第4+i-1行，即D4到D13
        Set targetCell = Me.Cells(3 + i, 4)
        
        ' 根据单元格值获取对应颜色
        seriesColor = GetSeriesColor(targetCell.Value)
        
        ' 设置对应系列的线条颜色，防止系列不存在时出错
        On Error Resume Next
        ch.SeriesCollection(i).Format.Line.ForeColor.RGB = seriesColor
        On Error GoTo 0
    Next i
End Sub

' 封装颜色判断逻辑，便于维护
Private Function GetSeriesColor(cellValue As Variant) As Long
    Select Case cellValue
        Case 0
            GetSeriesColor = RGB(255, 255, 255)
        Case Is > 2
            GetSeriesColor = RGB(0, 255, 0)
        Case 1 To 2
            GetSeriesColor = RGB(0, 200, 0)
        Case Is < -2
            GetSeriesColor = RGB(255, 0, 0)
        Case -1 To 0
            GetSeriesColor = RGB(200, 0, 0)
        Case Else
            GetSeriesColor = RGB(0, 0, 0)
    End Select
End Function

关键改进说明 #

• 避免激活图表：直接通过Me.ChartObjects("Chart").Chart引用图表对象，比Activate更稳定，不会因焦点变化导致错误。
• 循环逻辑对应：用i从1到10遍历系列索引，单元格用Cells(3 + i, 4)计算位置（3+i对应行号，4是D列），完美对应Seriesi和D(3+i)。
• 颜色逻辑封装：把颜色判断抽成独立函数GetSeriesColor，代码结构更清晰，后续修改颜色规则只需改这个函数。
• 错误处理：增加On Error Resume Next防止因系列数量不足或单元格值异常导致代码中断。

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