[已解决]判断语句错在哪？

ys_zheng

如题：我在VBA中用了  
If Sheets("考勤录入").Cells(6, 4) = Sheets("考勤明细").Cells(x, 1) & "," & Sheets("考勤录入").Cells(6, 7) = Sheets("考勤明细").Cells(x, 2) & "," & Sheets("考勤录入").Cells(9, 4) = Sheets("考勤明细").Cells(x, 3) Then
          MsgBox "已存在该编号的员工，不能重复输入...": Exit Sub
依次分别表示为工资结构（月薪，计件等）、年月份、工号；但是现在就算考勤明细表里面没有的工号也不能录入了，也提示说重复，我不知道错在哪里了？
注：考勤明细表原来存在
　　工资结构　　年月份　　　工号
　　月薪　　　　2014-6　　　1
但是当我要输入工号2时（其它的一样），却提示重复，不能重复输入...

我要实现的功能是：当考勤明细表中存在工资结构、年月份、工号这3项与我要录入的数据完全一致的记录时，才提示重复

最佳答案

月排行榜 / 总排行榜

冠军欧洲2010

2014-9-12 11:22

循环变量用错了吧。
Sheets("考勤明细").Cells(x, 1)
这里面X是不是应该用I?

跳转到最佳答案楼层

这儿有肥猫

If Sheets("考勤录入").Cells(6, 4) = Sheets("考勤明细").Cells(x, 1) and Sheets("考勤录入").Cells(6, 7) = Sheets("考勤明细").Cells(x, 2) and Sheets("考勤录入").Cells(9, 4) = Sheets("考勤明细").Cells(x, 3)

这儿有肥猫

因为没附件，所以只能猜猜了

ys_zheng

这儿有肥猫 发表于 2014-9-12 10:54
因为没附件，所以只能猜猜了

附件1.rar (38.99 KB, 下载次数: 8)

2014-9-12 11:11 上传

点击文件名下载附件 不好意思，已上传附件

ys_zheng

这儿有肥猫 发表于 2014-9-12 10:52
If Sheets("考勤录入").Cells(6, 4) = Sheets("考勤明细").Cells(x, 1) and Sheets("考勤录入").Cells(6, 7 ...

用＝号我试过了，无法判断，用OR的效果和用&","的效果一样，真是急死我了

这儿有肥猫

....用and，不要用&","& ，就这个要求而言没见过这样的写法

这儿有肥猫

c 附件

这儿有肥猫

ys_zheng 发表于 2014-9-12 11:13
用＝号我试过了，无法判断，用OR的效果和用&","的效果一样，真是急死我了

用or的意思是三个条件符合任意一个就达到效果，按你的要求肯定是用and哇

冠军欧洲2010

循环变量用错了吧。
Sheets("考勤明细").Cells(x, 1)
这里面X是不是应该用I?

ys_zheng

这儿有肥猫 发表于 2014-9-12 11:17
c 附件

用and无法判断是否重复，完全一致时仍然可以录入……。