VBA 循环根据相邻单元格更改单元格值（正负）和字体颜色

根据 VBA 循环根据相邻单元格更改单元格值（正/负）和字体颜色

vba
Sub ChangeCellValueAndFontColor()
    Dim rng As Range
    Dim cell As Range
    
    ' 设置要处理的单元格范围
    Set rng = Range("A1:A12")
    
    ' 循环遍历每个单元格
    For Each cell In rng
        ' 检查相邻单元格的值
        If cell.Offset(0, 1).Value > 0 Then
            ' 如果相邻单元格的值大于0，将目标单元格的值设为正数并设置字体颜色为绿色
            cell.Value = Abs(cell.Value)
            cell.Font.Color = RGB(0, 255, 0)
        Else
            ' 如果相邻单元格的值小于等于0，将目标单元格的值设为负数并设置字体颜色为红色
            cell.Value = -Abs(cell.Value)
            cell.Font.Color = RGB(255, 0, 0)
        End If
    Next cell
End Sub