如何让本次新输入的数据都显示为红色

imhxb · 发表于 2016-2-22 12:05

有一个表格我每天要不断的维护，每周对外发布。我想把本周更新的数据都显示为不同的格式，比如红色底纹。
我现在只能在输入时逐个设置，请问有没有什么好的方法，让我不必每输入一个单元格就设置一次格式。

谢谢！

ed2003 · 发表于 2016-2-22 12:51

比较笨一点的办法：用一个单元格（如A1）在每周第一天的日期（当天可以用 Ctrl+；的方法输入），然后在你要输入数据的区域（如A2起）内用条件格式，公式：=AND(A2<>"",TODAY()-$A$1>=0,TODAY()-$A$1<6)。以后每周第一天改一下A1的日期即可。

山菊花 · 发表于 2016-2-22 13:06

供参考。

点击下载附件。

imhxb · 发表于 2016-2-22 17:18

ed2003 发表于 2016-2-22 12:51
比较笨一点的办法：用一个单元格（如A1）在每周第一天的日期（当天可以用 Ctrl+；的方法输入），然后在你要 ...

不好意思没看懂，请问这个方法里面怎么体现出我单元格编辑的日期的呢，today()只是我现在打开文件的日期啊。
比如说我上周五编辑的单元格，本周一打开文件，条件格式判断时today（）得到的是本周一，又不是上周五。不知道我理解的是不是有问题。
谢谢！

imhxb · 发表于 2016-2-22 17:19

山菊花发表于 2016-2-22 13:06
供参考。

点击下载附件。

要用到VBA，看来我要先去学学VBA了

imhxb · 发表于 2016-2-22 17:43

山菊花发表于 2016-2-22 17:40
...

大神，我这个疑问是针对2楼的。你写的程序我还没有看的基础。。
谢谢啦

山菊花 · 发表于 2016-2-22 17:50

imhxb 发表于 2016-2-22 17:19
要用到VBA，看来我要先去学学VBA了

如果有兴趣学学VBA还是不错的，总有用得上的地方。如果纯粹为本帖提到的功能则不需要，把代码复制粘贴到自己的工作簿中就行。
如果有些工作表不需要着色，可以在代码中加一行判断。

山菊花 · 发表于 2016-2-22 17:52

2楼的思路不能实现你的需求。

mlj410 · 发表于 2019-2-15 09:31

山菊花发表于 2016-2-22 17:52
2楼的思路不能实现你的需求。

你好，请问这句话怎么改改，能变成按照每月的更新啊
If Application.WeekNum([日期]) <> Application.WeekNum(Date) Then

山菊花 · 发表于 2019-2-15 14:34

mlj410 发表于 2019-2-15 09:31
你好，请问这句话怎么改改，能变成按照每月的更新啊
If Application.WeekNum([日期]) Application.Wee ...

If month([日期]) <> month(Date) Then

		自动登录	找回密码
密码			免费注册

[求助] 如何让本次新输入的数据都显示为红色