Excel 2010 VBA：设置上一列中单元格引用单元格的颜色

Question

我有一个填充工作表的宏，并将值复制到网格中。 我想为单元格添加条件格式，这样当它们变得更新时，如果它们变得比前一列更大，它们变成红色，更小它们变成绿色变为0变成灰色。

我的问题是添加条件并引用单元格。

Set newCell = originalEstimateCell.Offset(0, 2 + i)
newCell.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, Formula1:="XX"
newCell.FormatConditions(1).Interior.Color = RGB(255, 0, 0)

我的问题是什么取代了XX来引用同一行中的前一列，即。 如果我们在Cell C7中，我想参考单元格B7。

谢谢

Answer 1

试试这个吧

Sub test()
    ActiveCell.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, _
                      Formula1:="=" & ActiveCell.Offset(0, -1).Address()
    ActiveCell.FormatConditions(1).Interior.Color = RGB(255, 0, 0)    
End Sub

上面的代码声明当前单元格值应该大于Formula1的值，并且公式本身是活动单元格之前一列的单元格的地址。 如果您希望格式化其他单元格，相对于活动单元格，只需更改偏移方法的参数。

我希望它有所帮助。

Answer 2

我的问题是什么取代了XX来引用同一行中的前一列，即。 如果我们在Cell C7中，我想参考C6。

C6将是C7的前一行 ，而不是前一列

尝试

=INDIRECT("C" & ROW()-1)

从前一行获取值