求师父帮忙添加个搜索！！！

kanger1018

能否透过VBA在此处输入订单号，从统计表中查询，把所查询到的数据在返回到上面的送货单中对应的位置？
并且可以修改并替换原数据保存？订单号不变

能不能在给帮忙修改下， 单号是根据当前日期每次打印后自动一直+1，我想着，能不能每天把单号归0，比如，我单号格式是，CX20101031001， 今天再次打印生成单号就是CX20101031002，依次是003.004...   但是日期改变后，单号后3位也要改变，假如明天是11月1号，单号就显示为CX20101101001，每天把单号后3为归零，不知道能不能实现？？？

等待师父解答！

[ 本帖最后由 kanger1018 于 2010-11-1 21:21 编辑 ]

cm6705

今天先给你个

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Address <> "$F$17" Then Exit Sub
   
3. Dim StrHS As String
   
4. Dim Rng As Range, i%, k%
   
5.     StrHS = Target.Value
   
6.     k = 6
   
7.     With Sheets("统计表")
   
8.         Set Rng = .[a:a].Find(StrHS, , , 1)
   
9.         If Rng Is Nothing Then MsgBox "找不到单号为：" & StrHS & "。请核查！": Exit Sub
   
10.         [c3] = .Cells(Rng.Row, "B").Value
    
11.         [i3] = .Cells(Rng.Row, "A").Value
    
12.         [c4] = .Cells(Rng.Row, "C").Value
    
13.         [f4] = .Cells(Rng.Row, "D").Value
    
14.         [i4] = .Cells(Rng.Row, "E").Value
    
15.         [g11] = .Cells(Rng.Row, "W").Value
    
16.         [C13] = .Cells(Rng.Row, "X").Value
    
17.         For i = 6 To 20 Step 3
    
18.            Cells(k, 2) = .Cells(Rng.Row, i).Value
    
19.            Cells(k, 4) = .Cells(Rng.Row, i + 1).Value
    
20.            Cells(k, 6) = .Cells(Rng.Row, i + 2).Value
    
21.            k = k + 1
    
22.         Next
    
23.     End With
    
24. End Sub

复制代码

查询代码。另外的明天有时间再给你写。

cm6705

按照楼主的要求做了个。请测试。

kanger1018

谢谢2楼的CM老师，期待你的回复

kanger1018

非常感谢CM老师