excel的原先字体是黑色,在输入新的内容时字体颜色自动变为与原来黑色不一样，好区分新旧数据，请问如

Question

excel的原先字体是黑色,在输入新的内容时字体颜色自动变为与原来黑色不一样，好区分新旧数据，请问如何操作？

Answer 1

在ThisWorkbook里输入: 

Private Sub Workbook_Open()

Sheets(1).Cells.Font.Color = vbBlack

End Sub

(打开工作簿时会将sheet(1)所有单元格字体变为黑色

在sheet（1）里输入：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target = "" Then Target.Font.Color = vbRed

End Sub

(激活的单元格如为空白，则输入内容后字体会变成红色)

需要哪个工作表变色，就将VBA代码中的【sheets(1)】更改为sheets("工作表名称")就行了。

追问

你好，看起来好难啊，明天我试下，谢谢先，最好可以留个联系方式给我