一键查错的功能！

lioner_yjs

chxw68 发表于 2014-11-28 10:39
原来把奖励栏意思理解错了，看了楼主5楼解释才明白。

If Application.HLookup(arr(i, 3), [{"一级","二级","三级","四级","五级";12,10,9,7,5}], 2, False) <> arr(i, 4) Then


运行时错误 ‘ 13 ’：
类型不匹配。

不知道为什么，我要是从工作表里面复制出来，就不会错，但是在原来的表里面就会提示这样的错误。。。

chxw68

lioner_yjs 发表于 2014-11-28 20:50
If Application.HLookup(arr(i, 3), [{"一级","二级","三级","四级","五级";12,10,9,7,5}], 2, False)  a ...

在我这儿不出错。

lioner_yjs

chxw68 发表于 2014-11-28 21:09
在我这儿不出错。

会不会是您的对象是针对整个工作簿里的所有表？只在当前表里面查错，改哪里？

chxw68

lioner_yjs 发表于 2014-11-28 21:21
会不会是您的对象是针对整个工作簿里的所有表？只在当前表里面查错，改哪里？

你把出错文件发上来

lioner_yjs

chxw68 发表于 2014-11-28 21:25
你把出错文件发上来

我怀疑是后面工作表格式和当前工作表不一样造成的，因为只要删除后面的工作表，就不会弹出错误。。
下面这个是我根据自己的工作薄简化后的内容。。。
请帮忙检查一下。。。
谢谢。。。

错误举例.rar (79.3 KB, 下载次数: 4)

2014-11-28 22:22 上传

点击文件名下载附件

lioner_yjs

chxw68 发表于 2014-11-28 21:25
你把出错文件发上来

哦，原来问题真的是出现在这里，那老师您能否帮我帮到底，看看能不能只让代码针对指定的工作表，而不受其它工作表的影响?

chxw68

lioner_yjs 发表于 2014-11-28 23:03
哦，原来问题真的是出现在这里，那老师您能否帮我帮到底，看看能不能只让代码针对指定的工作表，而不受其 ...

一表一代码太麻烦了，不如统一一下表格格式

lioner_yjs

chxw68 发表于 2014-11-28 23:18
一表一代码太麻烦了，不如统一一下表格格式

我东拼西凑的找到一些代码，可以整合其它工作表到一个工作表里面，所以，只需要加载这一个工作表就可以了，但是其他工作表的格式是不能动的。。。

lioner_yjs

chxw68 发表于 2014-11-28 23:18
一表一代码太麻烦了，不如统一一下表格格式

所以请老师帮忙把之前的代码小改一下，让它只针对当前表就可以啦，谢谢了！

chxw68

lioner_yjs 发表于 2014-11-28 23:29
所以请老师帮忙把之前的代码小改一下，让它只针对当前表就可以啦，谢谢了！

当前表指哪张表？其它表就不管了？