设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 3716|回复: 2
打印 上一主题 下一主题

如何根据条件改变单元格文字的颜色?

[复制链接]
跳转到指定楼层
1#
发表于 2005-2-22 23:45:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
比如我有一个日期的列,我想每次打开文件时把与当前日期相隔一个月的日期标记为红色字体,该如何实现?
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2005-2-23 04:02:00 | 只看该作者
在VBA工程的“ThisWorkBook”中输入以下代码即可Private Sub Workbook_Open()

For Each CL In Range("A:A")    '此处设A列为日期列

  If CL.Value <> "" Then

    If Date - CL.Value = 30 Then  '这里假设相隔一个月为30天

      CL.Font.ColorIndex = 3

    End If

  End If

Next CL

End Sub
3#
发表于 2005-2-23 05:48:00 | 只看该作者
因为到了明天该日期又不能显示为红色,所以2楼不能完全解决问题。可以使用条件格式的办法,但不知楼主所说的相距一个月是精确的30天,还是号数的对应,如果是号数的对应,那么遇到3月30日时,相隔一个月又是指的哪一天呢?以下为号数对应的条件格式公式:=DATE(IF(MONTH(NOW())=1,YEAR(NOW())-1,YEAR(NOW())),IF(MONTH(NOW())=1,12,MONTH(NOW())-1),DAY(NOW()))以下为相隔30天的日期条件格式:=TODAY()-30
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-29 23:37 , Processed in 0.084771 second(s), 26 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表