条件判断代码不执行

23号人生 · 发表于 2018-7-27 08:37

本帖最后由 23号人生于 2018-7-27 08:37 编辑

各位老师早上好，我写了一个条件判断代码，但是不知道为什么不执行，还请路过的老师可以帮忙看下，附件、图片如下。谢谢。

23号人生 · 发表于 2018-7-27 08:37

附件、图片

曹银强 · 发表于 2018-7-27 08:50

将激活当前工作表的with语句去掉

23号人生 · 发表于 2018-7-27 08:53

曹银强发表于 2018-7-27 08:50
将激活当前工作表的with语句去掉

你好，去掉后仍然不执行。

曹银强 · 发表于 2018-7-27 08:55

后面End with也去掉

microyip · 发表于 2018-7-27 08:56

23号人生发表于 2018-7-27 08:37
附件、图片

不是不执行，是没有符合你设定条件的

23号人生 · 发表于 2018-7-27 08:58

曹银强发表于 2018-7-27 08:55
后面End with也去掉

嗯，都去掉了，也把每个cells和row前面的点号都去掉，仍然不执行。

23号人生 · 发表于 2018-7-27 09:01

microyip 发表于 2018-7-27 08:56
不是不执行，是没有符合你设定条件的

奥，我看着代码也应该没啥大问题。其实我想实现的结果是，比如附件中，第五行和第六行都用单独颜色标注出来，第9行至第17行都用颜色标注出来。请教下如何去写呢。

wolfmare · 发表于 2018-7-27 09:07

你的数据不够，
至少
If .Cells(i, 2) = .Cells(i + 1, 2) And .Cells(i, 4) = .Cells(i + 1, 4) And _
.Cells(i, 5) = "/" And .Cells(i, 6) = "/" And .Cells(i, 7) = "/" And .Cells(i + 1, 21) = "请8" Then
这条我看了下，没有一条数据能满足……

wolfmare · 发表于 2018-7-27 09:10

你在End If前面加个Msgbox “！”之类，就可以辅助了解一下，到底这条指令执行了没有

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

[已解决] 条件判断代码不执行