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

以下代碼效果：

在工作表代碼區(qū)加入以下代碼

即當(dāng)D列中的數(shù)據(jù)為1時(shí)

對應(yīng)的A列字體變?yōu)榧t色

For Each…In…的使用

單元格屬性設(shè)置

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