在excel怎么自动显示和计算日期,请高手们告知。

在excel怎么自动显示和计算日期,请高手们告知,
如我在A1里输入签定合同日期,B1里每天自动显示更新当前日期,C1里自动计算我还差多少天满一年,低于10天单元格可以改变成红色,或者其他提示。
拜求高手
在每个单元格里分别输入什么函数和公式

a1里输入签定合同日期比如2010/9/25,b1里输入“=today()”(不要引号),c1里输入“=365-(b1-a1)”(不要引号),a1和b1单元格格式为日期且类型要相同,c1单元格格式为常规。
再选中c1,选格式菜单下的条件格式,选突出显示单元格规则,选小于,10,选择红色。
温馨提示:答案为网友推荐,仅供参考
第1个回答  2010-09-28
A1输入合同时间
B1里输入:=Today()
C1里输入:=365+A1-B1
选中C1单元格,然后在“条件格式”里选择突出显示,值“<10”填充深红色。
OK了!
.......... 黑龙江省 张志晨 ....可爱的Excel....本回答被提问者采纳
第2个回答  2010-09-28
按alt+f11,在左边双击你的工作表,粘贴以下代码到右边
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If IsDate(Target) Then
Cells(Target.Row, 1) = Format(Target, "yyyy-mm-dd")
Cells(Target.Row, 2) = Format(Now, "yyyy-mm-dd")
newdate = Year(Date) & "-" & Month(Target) & "-" & Day(Target)
Cells(Target.Row, 3) = DateDiff("d", newdate, Date)
If Cells(Target.Row, 3) < 0 Then
Exit Sub
End If
If Cells(Target.Row, 3) <= 10 Then
Cells(Target.Row, 3).Select
With Selection.Interior
.ColorIndex = 3
End With
End If
End If
End If
End Sub
不需要公示了,直接在A列输入日期就行了!一切自动计算!
第3个回答  2010-09-28
B1输入“=TODAY()”。C1输入“=IF((365-(B1-A1))<10,"一年期快到",365-B1+A1)”。那个英文输入法引号下的"一年期快到",你可以随意改为你想要的。如果要变成红色,需要VB编程或者如各位所说建立条件格式,也很简单。
第4个回答  2010-09-28
B1输入=TODAY()
C1输入=DATE(YEAR(A1)+1,MONTH(A1),DAY(A1))-B1
然后对C1单元格设置“条件格式”,当C1<10时,改变字体颜色和背景颜色