当前位置: 代码迷 >> Office >> excel兑现时间触发
  详细解决方案

excel兑现时间触发

热度:10150   发布时间:2013-02-26 00:00:00.0
excel实现时间触发
excel实现时间触发
比如时间到了2012年的8月21日,就把excel某一行标红。谢谢!
------解决方案--------------------------------------------------------
条件格式可以实现
------解决方案--------------------------------------------------------
我写了个宏来实现这个功能
Private Sub Workbook_Open()
    Dim xlWorkbook As Excel.Workbook
    Dim TargetSheet As Worksheet
    
    Set xlWorkbook = application.ActiveWorkbook
    Set TargetSheet = xlWorkbook.Sheets("Sheet1")
    
    If DateValue("2012-1-27") = Date Then
        TargetSheet.Rows("2:2").Select
        With Selection.Interior
            .Color = 5296274
        End With
    End If
End Sub


------解决方案--------------------------------------------------------
引用:
请问具体怎么实现呢?

引用:

条件格式可以实现

  
条件格式是可以,但是EXCEL对于日期的变化有点不太敏感,写好后保存,关闭后再打开生效

1.先找到你要的日期,并把他转化为数值,比如:2012年2月1日,对应数值为40940(把日期输在单元格里, 再把那个单元格格式设为常规,就可以看到日期对应的数值了)
2.选中你要变为红色的那一行(整行)
3.格式---条件格式----公式----输入“=IF(TODAY()=40940,1,0)”(不输引号)
4.设置你要的颜色,点击确定就可以了
  相关解决方案