日期转换的问题请给解决下

Elliott_love · 发表于 2010-11-2 17:13

我的网络环境是所有上传功能都被屏蔽了不然早上传了我再说下吧

比如 cells(1,3)的数据为 20101102 cells(1,6)是20101115 cells(1,9) 是20101129 ....等等
我想要check一下与系统时间差 3天那单元格就要变红色警示下
那个单元格写的是 20101102

alzeng · 发表于 2010-11-2 17:22

你的20101102是自定义格式吗，如果是，直接Date 相减即可，如果输入即是这种样式：
For icl = 1 To 9 Step 3
If Date - CDate(Format(Cells(i, icl), "0000-00-00")) = 3 Then Cells(i, icl).Interior.Color = vbRed
Next

Elliott_love · 发表于 2010-11-2 17:32

可我这里怎么老显示执行阶段错误“13” 形态不符合呢我郁闷一天全做这个了
你说的自定义格式是什么意思是我在那单元格自己输入的日期

alzeng · 发表于 2010-11-2 17:35

自定义格式：比方输入2010-11-2，自定义为"yyyymmdd"的格式，那么这个单元格本身仍是日期格式而不是201万零1千1百零2。

Elliott_love · 发表于 2010-11-2 17:37

我的数据是从txt文件导入后的自己没有定义这样的话怎么做？

Elliott_love · 发表于 2010-11-2 18:08

谢谢你了虽然还是出错我再看看

alzeng · 发表于 2010-11-2 17:45

如果单元格里不含空格的话，用12楼代码应该是没有问题的。——文本导入的数据需要注意混有不可见字符。

Elliott_love · 发表于 2010-11-3 09:07

那個單元格的類型是文字！

alzeng · 发表于 2010-11-3 09:14

咱两个是隔山打牛，不知对方使用什么招式，^_^
如果不能上传附件，将你的表格数据复制→粘贴上来，并说明要求，或许见了数据会好说话一点。

Elliott_love · 发表于 2010-11-3 09:31

真是麻烦了  我也没办法  从这里下附件都下不了
AA                   AB             AC                AD             AE       AF
20101101                                           20101108
Demand       Supply       Balance       Demand       Supply       Balance
0                      0       5,359                   0                0          5,359
0                      0             612                0                0             612
0                      0          3,870                0                0          3,870

上面数据是sap跑出来的txt文件导入后的数据 AA--AC是日期为“20101101”（我看了下这个单元格的数值类型是文字）的这一周的数据，我想要根据“20101101”和系统时间对比，差三天就要红色警示下

[ 本帖最后由 Elliott_love 于 2010-11-3 09:37 编辑 ]

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

[已解决] 日期转换的问题请给解决下

回复 10楼 alzeng 的帖子

回复 12楼 alzeng 的帖子

回复 14楼 alzeng 的帖子

回复 16楼 alzeng 的帖子

回复 16楼 alzeng 的帖子

回复 19楼 alzeng 的帖子

[已解决] 日期转换的问题 请给解决下

回复 10楼 alzeng 的帖子

回复 12楼 alzeng 的帖子

回复 14楼 alzeng 的帖子

回复 16楼 alzeng 的帖子

回复 16楼 alzeng 的帖子

回复 19楼 alzeng 的帖子

[已解决] 日期转换的问题请给解决下