宏高亮显示范围不断变化的单元格中的更改

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 定义需要高亮显示的范围
    Dim HighlightRange As Range
    Set HighlightRange = Range("A1:A10")
    
    ' 判断目标单元格是否在需要高亮显示的范围内
    If Not Intersect(Target, HighlightRange) Is Nothing Then
        ' 根据条件进行高亮显示
        For Each cell In Target
            If cell.Value > 0 Then
                cell.Interior.Color = RGB(255, 0, 0) ' 红色
            Else
                cell.Interior.Color = RGB(0, 255, 0) ' 绿色
            End If
        Next cell
    End If
End Sub