实现excel字体实时变化代码

以下代码效果：

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

即当D列中的数据为1时

对应的A列字体变为红色

For Each…In…的使用

强国说学习www.qiangguoshuo.com

单元格属性设置

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

如想转载该文章请注明出处：强国说学习-qiangguoshuo.com

转载声明：本站发布文章及版权归原作者所有，转载本站文章请注明文章来源！

本文链接：https://www.qiangguoshuo.com/excel/66584.html