实现excel字体实时变化代码
- 2022-09-27
- 来源/作者： Wps Office教程网/ 菜鸟图库
- 137 次浏览
以下代码效果：
在工作表代码区加入以下代码
即当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
