2022-10-16 22:08来源:m.sf1369.com作者:宇宇
可以用条件格式实现,假如表格的日期在B列,A1单元格内是要用来对比的日期,那么: 选中B列-菜单栏-格式-条件格式-下拉菜单选择公式-右侧输入公式>$A$1然后点击格式按钮-填充-选择红色-确定即可,只要是大于A1单元格日期的B列里德内容都填充红色 当然,你也可以通过直接输入一个既定值来代替$A$1,但需要时数字格式,比如是那么就要将公式改为>40506,或者直接:菜单栏-格式-条件格式-下拉菜单选择大于-右侧输入40506
就你的题意。A列输入数值(假如从A1开始),在B1中输入下列公式:
=IF(A1>10,A1-10,IF(A1<5,A1+5,A1)
再向下一路复制下去。就可以了。
格式化后,用字符串进行比较,就OK了。
Private Sub Command1_Click()
Dim sDate$, sComp$
sComp =
sDate = Format(Now(), YYYY-mm-dd)
Debug.Print sDate, IIf(sDate = sComp, 今天, IIf(sDate < sComp, 以前, 今后)), sComp
End Sub
在“筛选”选项中的“数字筛选”中,选择“大于”,然后建立条件,即可。
假设A列时间大于对应B列时间,A列以红色填充。
选择A列,在“条件格式”中,以“公式”建立规则,输入
=A1-B1>0 格式选择填充色红色,确定,即可。