字体实时变化代码

以下代码效果：

在工作表代码区加入以下代码

即当D列中的数据为1时

对应的A列字体变为红色

For Each...In...的使用

单元格属性设置

 

Private Sub
Worksheet_Change(ByVal Target As Range)

Dim d%: d = [d65536].End(xlUp).Row

Dim rng As Range

For Each rng In Range("d1:d" & d)

    If rng = 1
Then Cells(rng.Row, 1).Font.Color = -16776961

Next

End Sub