将Excel VBA中多段If语句简化为循环实现

问题描述 #

我编写了一段Excel VBA代码，可根据单元格数值更改Excel折线图的线段颜色，但代码重复度很高，希望简化。当前代码通过多段If语句判断B列相邻单元格的数值大小，为“Chart 1”中SeriesCollection(1)的对应数据点设置线条颜色（数值上升设为绿色，下降设为红色）。尝试改用循环实现，但无法处理其中的变量变化，寻求解决方案。

原代码 #

Sub colorSegment()
    Dim ws As Worksheet
    Dim cht As Chart
    
    Set ws = ActiveSheet
    Set cht = ws.ChartObjects("Chart 1").Chart
    
    If Cells(3, 2) >= Cells(2, 2) Then
        With cht.SeriesCollection(1)
                .Points(2).Format.Line.ForeColor.RGB = RGB(0, 255, 0)
        End With
    Else
        With cht.SeriesCollection(1)
                .Points(2).Format.Line.ForeColor.RGB = RGB(255, 0, 0)
        End With
    End If
    
    If Cells(4, 2) >= Cells(3, 2) Then
        With cht.SeriesCollection(1)
                .Points(3).Format.Line.ForeColor.RGB = RGB(0, 255, 0)
        End With
    Else
        With cht.SeriesCollection(1)
                .Points(3).Format.Line.ForeColor.RGB = RGB(255, 0, 0)
        End With
    End If
    
    If Cells(5, 2) >= Cells(4, 2) Then
        With cht.SeriesCollection(1)
                .Points(4).Format.Line.ForeColor.RGB = RGB(0, 255, 0)
        End With
    Else
        With cht.SeriesCollection(1)
                .Points(4).Format.Line.ForeColor.RGB = RGB(255, 0, 0)
        End With
    End If
    
    If Cells(6, 2) >= Cells(5, 2) Then
        With cht.SeriesCollection(1)
                .Points(5).Format.Line.ForeColor.RGB = RGB(0, 255, 0)
        End With
    Else
        With cht.SeriesCollection(1)
                .Points(5).Format.Line.ForeColor.RGB = RGB(255, 0, 0)
        End With
    End If
    
    If Cells(7, 2) >= Cells(6, 2) Then
        With cht.SeriesCollection(1)
                .Points(6).Format.Line.ForeColor.RGB = RGB(0, 255, 0)
        End With
    Else
        With cht.SeriesCollection(1)
                .Points(6).Format.Line.ForeColor.RGB = RGB(255, 0, 0)
        End With
    End If
End Sub

简化后的代码 #

Sub colorSegment()
    Dim ws As Worksheet
    Dim cht As Chart
    Dim targetSeries As Series
    Dim i As Integer
    
    ' 初始化工作表和图表对象
    Set ws = ActiveSheet
    Set cht = ws.ChartObjects("Chart 1").Chart
    Set targetSeries = cht.SeriesCollection(1) ' 提前获取目标系列，减少重复调用
    
    ' 循环处理第2到第6个数据点（对应B2-B3至B6-B7的线段）
    For i = 2 To 6
        ' 根据相邻单元格数值判断颜色
        If ws.Cells(i + 1, 2) >= ws.Cells(i, 2) Then
            targetSeries.Points(i).Format.Line.ForeColor.RGB = RGB(0, 255, 0) ' 上升为绿色
        Else
            targetSeries.Points(i).Format.Line.ForeColor.RGB = RGB(255, 0, 0) ' 下降为红色
        End If
    Next i
End Sub

简化思路 #

• 用循环替代重复判断：通过For循环遍历需要处理的单元格和数据点，循环变量i同步控制单元格行号和图表数据点索引，避免重复编写相同逻辑的If语句。
• 优化对象调用：提前获取目标系列targetSeries，避免每次判断都重复调用cht.SeriesCollection(1)，提升代码运行效率。
• 增强代码严谨性：使用ws.Cells替代直接Cells，明确指定操作的工作表，避免因活动工作表切换导致的错误。
• 扩展性更强：如果需要调整判断范围（比如扩展到B10），只需修改循环的结束值（将To 6改为To 9）即可，无需修改大量重复代码。

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