excel - 完成行的自动格式

Question

如果 AD 列中输入了值，则此代码应将行中的所有文本更改为绿色。然而，这不会自动发生。 我应该补充一点，当手动运行宏时，“已完成”行文本确实会更改为正确的颜色。此代码片段已添加到 Microsoft Excel 对象 Sheet1 中。发生的另一件事是手动运行宏时标题行文本会变色。如何阻止标题行文本变色并使该宏自动运行？

Private Sub Worksheet_Calculate()
    RowComplete
End Sub

Sub RowComplete()
    Dim row As Range
    For Each row In ActiveSheet.UsedRange.Rows
        If row.Cells(1, "AD").Value > 0 Then
            row.Font.Color = RGB(0, 176, 80)
        Else
            row.Font.ColorIndex = xlNone
        End If
    Next row
End Sub

Answer 1

这是你想要的吗？

Private Sub Worksheet_Change(ByVal Target As Range)

Dim r As Range
Set r = Target.EntireRow

If Target.row = 1 Then Exit Sub 'don't change header color

If r.Cells(1, "D").Value <> "" Then 'change "D" to applicable column
    r.Font.Color = RGB(0, 176, 80)
Else
    r.Font.ColorIndex = xlNone
End If

End Sub