求大神指点教学

5550381

如果直接提取另一个表格的数据

5550381

可以的话麻烦原文件帮忙编辑一下谢谢

无敌小猪猪

你这个描述有问题，不理解

半百

半百

1. Sub 更新日期()
   
2. With Sheets("客户表")
   
3.     r = .Cells(Rows.Count, 1).End(3).Row
   
4.     For i = 2 To r
   
5.         If .Cells(i, 4) = Date Then
   
6.             .Cells(i, 3) = Date
   
7.             .Cells(i, 4) = Date + Val(.Cells(i, 2))
   
8.         End If
   
9.     Next
   
10. End With
    
11. End Sub
    
12. 
    
13. Sub 提取()
    
14. arr = Sheets("客户表").UsedRange
    
15. n = 5
    
16. With Sheets("提示叫货")
    
17.     .[d6:f20] = ""
    
18.     For i = 2 To UBound(arr)
    
19.         If arr(i, 3) = Date Then
    
20.             n = n + 1
    
21.             .Cells(n, 4) = arr(i, 1)
    
22.             .Cells(n, 5) = arr(i, 4)
    
23.         End If
    
24.     Next
    
25. End With
    
26. End Sub
    

复制代码

半百

1. Sub 更新日期()
   
2. With Sheets("客户表")
   
3.     r = .Cells(Rows.Count, 1).End(3).Row
   
4.     For i = 2 To r
   
5.         If .Cells(i, 4) = Date Then
   
6.             .Cells(i, 3) = Date
   
7.             .Cells(i, 4) = Date + Val(.Cells(i, 2))
   
8.         End If
   
9.     Next
   
10. End With
    
11. End Sub
    
12. Sub 提取()
    
13. arr = Sheets("客户表").UsedRange
    
14. n = 5
    
15. With Sheets("提示叫货")
    
16.     .[d6:f20] = ""
    
17.     For i = 2 To UBound(arr)
    
18.         If arr(i, 3) = Date Then
    
19.             n = n + 1
    
20.             .Cells(n, 4) = arr(i, 1)
    
21.             .Cells(n, 5) = arr(i, 4)
    
22.         End If
    
23.     Next
    
24. End With
    
25. End Sub
    

复制代码

5550381

半百 发表于 2024-4-2 13:15

更改日期方面这个没办法实现。代码不知道哪里出错，没有反应

半百

5550381 发表于 2024-4-2 14:24
更改日期方面这个没办法实现。代码不知道哪里出错，没有反应

再试试    ？

5550381

半百 发表于 2024-4-2 14:38
再试试    ？

D列的日期没办法更新出新的日期，是不是要分开要求你看看这样的可以吗

半百

5550381 发表于 2024-4-2 14:52
D列的日期没办法更新出新的日期，是不是要分开要求你看看这样的可以吗

将D列某个或若干个日期改成今天再试试