6,210
社区成员
发帖
与我相关
我的任务
分享
Private Sub Worksheet_Change(ByVal Target As Range)
If WorksheetFunction.CountIf(Sheet2.Range("A:A"), Target.Value) = 0 Then
Target.Font.Color = RGB(255, 0, 0)
Else
Target.Font.ColorIndex = xlColorIndexAutomatic
End If
End Sub