请各位大神帮忙看一下，弄了好长时间了，拜托了

l738528696 · 发表于 2023-4-6 05:30

If Day(CDate(Cells(i, "B").Value)) = 1 And Right(Format(Cells(i, "B").Value, "yyyymmdd hh:mm:ss"), 8) = "00:00:00" Then

这段代码一直显示类型不匹配，改了好多种表达方式都不行，还请各位大神帮忙看一下，拜托了

盼盼198310 · 发表于 2023-4-6 08:04

你把"B" 换成 2 试试

杨建营 · 发表于 2023-4-6 08:23

你的时间数据是在第二列开始的。

vitrel · 发表于 2023-4-6 08:42

楼主，您好！
CDate函数的作用是将日期+时间的表达式转换成真正、系统可识别的的日期+时间，
而Day函数是用来取日期中的“日”的，
而B2:B3单元格的内容是“时间”，是一个字符串，
不管CDate("时间")，又或者(Day("时间")，都必然出错。
因此，只要将循环改为从第4行开始，即：For i = 4 To lastRow，问题便会解决。
另外，
Day(CDate(Cells(i, "B").Value)) 可简化为 Day(Cells(i, "B"))，结果是一样的。

不规则结构 · 发表于 2023-4-6 08:43

本地调试这种问题一下就发现；

吴中泉 · 发表于 2023-4-6 09:39

亲测,你的那句代码没有问题,如4楼说的一样,是循环应从第四行开始.

l738528696 · 发表于 2023-4-6 15:48

感谢各位大神的指点

WANT-T · 发表于 2023-4-6 15:59

本帖最后由 WANT-T 于 2023-4-6 16:01 编辑

这些基础知识应该是没有人给你讲过，数据类型，数据格式，单元格格式，数据类型转换等；
直接上结论：把value换成text就好了：
如图，自己领会

准提部林 · 发表于 2023-4-6 17:54

If Format(Cells(i, "b"), "dd hh:mm:ss") = "01 00:00:00" Then

zjzyj · 发表于 2023-4-6 21:24

4楼说得对，改为For i = 4 To lastRow 就可以了

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

[求助] 请各位大神帮忙看一下，弄了好长时间了，拜托了