根据合同号查找并录入发货日期

gl821004

各位大神，
我想打印发货单的时候同时在合同数据库的发货日期列自动录入发货单B8的日期，
就是说按照发货单上的合同号在数据库里找到对应的合同号，然后在所有这个合同号的发货日期列录入发货单B8单元格的日期，
请指导一下如何实现这个功能，谢谢

盼盼198310

............

佳能lT搬砖着

1. Sub UpdateContract()
   
2.     Dim contractNumber As String
   
3.     Dim deliveryDate As Date
   
4.     Dim contractRange As Range
   
5.     Dim cell As Range
   
6.    
   
7.     '获取发货单上的合同号和发货日期
   
8.     contractNumber = Range("B8").Value
   
9.     deliveryDate = Range("C8").Value
   
10.    
    
11.     '在合同数据库中查找对应的合同号
    
12.     Set contractRange = Worksheets("合同数据库").Range("A2:A100")
    
13.     For Each cell In contractRange
    
14.         If cell.Value = contractNumber Then
    
15.             '在对应的发货日期列录入发货日期
    
16.             cell.Offset(0, 2).Value = deliveryDate
    
17.         End If
    
18.     Next cell
    
19. End Sub
    

复制代码

洋务德雷

我觉得没必要这么做，专门做一个工作表就是记录合同好对用的发货日期就好了。如果要查询，再把两个表联合起来查询就好了。

gl821004

佳能lT搬砖着 发表于 2023-5-13 18:25

非常感谢，完美实现，谢谢你

佳能lT搬砖着

gl821004 发表于 2023-5-14 08:57
非常感谢，完美实现，谢谢你

送个花