日日操夜夜添-日日操影院-日日草夜夜操-日日干干-精品一区二区三区波多野结衣-精品一区二区三区高清免费不卡

以下代碼效果：

在工作表代碼區加入以下代碼

即當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