如何用VBA实现Excel中Venda与Esperado列的条件格式设置？

完全可以通过VBA实现这个需求，以下是具体的代码实现和操作说明：

核心代码示例 #

Sub SetStatusColor()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 指定要操作的工作表，替换为你的实际表名
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取数据区域的最后一行（假设表头在第1行，数据从第2行开始）
    ' 这里以venda列所在的A列作为参考，可根据实际列修改
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历每一行数据
    For i = 2 To lastRow
        Dim vendaVal As Double, esperadoVal As Double
        
        ' 获取对应列的数值，按需修改列标（如venda在D列则改为"D"）
        vendaVal = ws.Cells(i, "A").Value
        esperadoVal = ws.Cells(i, "B").Value
        
        ' 比较数值并设置Status单元格颜色（假设Status在C列）
        If vendaVal > esperadoVal Then
            ws.Cells(i, "C").Interior.ColorIndex = 4 ' 绿色
        ElseIf vendaVal < esperadoVal Then
            ws.Cells(i, "C").Interior.ColorIndex = 3 ' 红色
        Else
            ' 两值相等时清除填充色，可根据需求修改
            ws.Cells(i, "C").Interior.ColorIndex = xlColorIndexNone
        End If
    Next i
End Sub

代码说明 #

• 工作表指定：把代码中的"Sheet1"替换为你的目标工作表名称。
• 列标调整：根据你的表格结构，修改"A"（venda列）、"B"（esperado列）、"C"（Status列）为实际的列标（如"E"、"F"等）。
• 颜色设置：ColorIndex=4对应默认绿色，ColorIndex=3对应默认红色；如果需要自定义颜色，可改用RGB函数，比如ws.Cells(i, "C").Interior.Color = RGB(0, 200, 0)。
• 空行处理：通过lastRow获取数据最后一行，避免循环处理空行，提升效率。

操作步骤 #

1. 打开目标Excel文件，按下Alt + F11打开VBA编辑器。
2. 在左侧「工程资源管理器」中右键点击你的工作簿，选择「插入」→「模块」。
3. 将上述代码粘贴到新建的模块窗口中，调整工作表名和列标。
4. 按下F5运行宏，或回到Excel界面，通过「开发工具」→「宏」选择SetStatusColor执行。

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