多表查询引用求助

活在理想的世界

ZUNYI 发表于 2017-11-16 17:08
请问老师，如果单号不在D列而在W列，如何修改代码。谢谢，真是不好意思，给您添麻烦了，我不懂VBA

我的代码跟你的单号没关系，只跟t列的＜＝3有关系，你无需改代码。

ZUNYI

活在理想的世界 发表于 2017-11-16 17:10
我的代码跟你的单号没关系，只跟t列的＜＝3有关系，你无需改代码。

哦，谢谢老师，我在琢磨一下，太谢谢您了

ZUNYI

活在理想的世界 发表于 2017-11-16 17:10
我的代码跟你的单号没关系，只跟t列的＜＝3有关系，你无需改代码。

老师您好，我想再请教一下，您给我的代码很好用。但是我在工作簿里增加工作表就会出错。能麻烦您再帮我看看如何解决这个问题好吗，我想在里边增加好几张工作表，增加的工作表不应用这些代码。谢谢，给您添麻烦了

活在理想的世界

ZUNYI 发表于 2017-11-17 17:04
老师您好，我想再请教一下，您给我的代码很好用。但是我在工作簿里增加工作表就会出错。能麻烦您再帮我看 ...

我刚测试了一下增加工作表没问题的。不过你既然说有问题那么肯定是有问题了。

这样吧，吧你有问题的表格传给我，我帮你看看。

ZUNYI

活在理想的世界 发表于 2017-11-17 17:10
我刚测试了一下增加工作表没问题的。不过你既然说有问题那么肯定是有问题了。

这样吧，吧你有问题的表 ...

太感谢您了，我一会回到电脑前把附件传上来。谢谢

活在理想的世界

ZUNYI 发表于 2017-11-17 17:47
太感谢您了，我一会回到电脑前把附件传上来。谢谢

今天没时间了，明天空下来帮你看看，估计是工作表对象不明确，或者是你换表了。

还有，你应该给我几朵献花了吧？我又不是你的文案秘书。

ZUNYI

活在理想的世界 发表于 2017-11-17 18:06
今天没时间了，明天空下来帮你看看，估计是工作表对象不明确，或者是你换表了。

还有，你应该给我几朵 ...

老师好，我把文件上传了，麻烦您有空的时候我看看，增加工作表以后，只要一改动T列小于3的行，就会提示错误。
还有，老师，我不是不知好歹的人，我是真不知道如何献花，我琢磨一下是怎么操作的再给您献花。太感谢您了，谢谢

ZUNYI

老师，这是附件

活在理想的世界

ZUNYI 发表于 2017-11-18 16:57
老师，这是附件

1. Private Sub Worksheet_Activate()
   
2. Application.ScreenUpdating = False
   
3. Dim arr(), brr(1 To 1048576, 1 To 10), sht As Worksheet, w As WorksheetFunction
   
4. Set w = WorksheetFunction
   
5. For Each sht In Sheets
   
6.     If sht.Name <> Sheet1.Name And w.CountA(sht.Cells) <> 0 Then
   
7.         k = sht.Range("a1048576").End(3).Row - 2
   
8.         h = sht.Range("a2").End(2).Column
   
9.             arr = sht.Range("a3").Resize(k, h)
   
10.             For r = 1 To UBound(arr)
    
11.                 If arr(r, 20) <= 3 And arr(r, 20) <> "" Then
    
12.                     i = i + 1
    
13.                     brr(i, 1) = arr(r, 3)
    
14.                     brr(i, 2) = arr(r, 2)
    
15.                     brr(i, 3) = arr(r, 7)
    
16.                     brr(i, 4) = arr(r, 10)
    
17.                     brr(i, 5) = arr(r, 9)
    
18.                     brr(i, 6) = arr(r, 13)
    
19.                     brr(i, 7) = arr(r, 14)
    
20.                     brr(i, 8) = arr(r, 19)
    
21.                     brr(i, 9) = arr(r, 20)
    
22.                     If brr(i, 9) = 0 Then
    
23.                         brr(i, 10) = "超期当日"
    
24.                     Else
    
25.                         brr(i, 10) = "小于" & brr(i, 9) & "天"
    
26.                     End If
    
27.                 End If
    
28.             Next
    
29.     End If
    
30. Next
    
31. Sheet1.Range("b6").Resize(10000, 10).ClearContents
    
32. Sheet1.Range("b6").Resize(i, 10) = brr
    
33. Application.ScreenUpdating = True
    
34. End Sub

复制代码

ZUNYI

太感谢老师了