实现excel字体实时变化代码

实现excel字体实时变化代码

以下代码效果：

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

即当D列中的数据为1时

对应的A列字体变为红色

For Each…In…的使用

单元格属性设置

Private Sub Worksheet_Change(ByVal Target As Range)Dim d%: d = [d65536].End(xlUp).RowDim rng As RangeFor Each rng In Range("d1:d" & d)If rng = 1 Then Cells(rng.Row, 1).Font.Color = -16776961NextEnd Sub

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。