这个得用VBA吗？

=IF(HOUR(A1)-1<>-1,NOW(),TODAY()+1)

3# myznufe06acc 只能在0点的时候可以 但是到了1点以后就不行了

打开文件后：
菜单上，工具，宏，VB 编辑器，
双点左边的 sheet1(sheet1) ，（注意，这个名字就是表的名字）
然后，在右边的空白处填写下面代码。然后，保存。打开此文件就有你说的效果。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range(Cells(1, 1), Cells(1, 256)).Interior.ColorIndex = 0
Dim 列, 颜色值
列 = Day(Date)
颜色值 = 列 + 2
Cells(1, 列).Interior.ColorIndex = 颜色值
End Sub

效果：随着日期的变化，会在第一行的某列设置单元格背景色。

注意：打开后，要选择：“同意使用宏”