根据出库单的内容自动保存到发货明细里

开心就好tzl

月关 发表于 2019-8-25 15:13
简单，图省事而已的结果，出去玩了，周一修。
而且我想起来怎么更好的处理颜色的问题了，当然，也许是更 ...

大神，这个问题我已经解决了，能否在帮帮我解决只要输入数据单号自动生成出库单

月关

开心就好tzl 发表于 2019-8-25 15:37
大神，这个问题我已经解决了，能否在帮帮我解决只要输入数据单号自动生成出库单

注意，你的 "根据明细生成出库单"里，B4/F4/B5/H5单元格字体颜色都是白色。把下面的代码写到"根据明细生成出库单"的change事件里，首尾两句注意不要重了，打开change事件默认已自动填写

1. Private Sub Worksheet_Change(ByVal Target As Range)   
   
2. If Target.Address <> "$F$4" Then Exit Sub
   
3. If Target = "" Then Union([b4:b5], [h5], [a7:i21]).ClearContents: Exit Sub
   
4. If Len(Target) = 13 Then
   
5. Set fd = Sheets("成品出库明细").Columns(1).Find([f4])
   
6. If Not fd Is Nothing Then
   
7. [b4] = fd(1, 3).Value
   
8. [h5] = fd(1, 2).Value
   
9. ads = fd.Address
   
10. Do
    
11. n = n + 1
    
12. Cells(6 + n, 1) = n
    
13. Cells(6 + n, 2).Resize(, 7) = fd(1, 4).Resize(, 7).Value
    
14. Set fd = Sheets("成品出库明细").Columns(1).FindNext(fd)
    
15. Loop Until fd.Address = ads
    
16. n = 0
    
17. Else
    
18. MsgBox "单据编号未找到", , "请检查！": Exit Sub
    
19. End If
    
20. Else
    
21. MsgBox "单据编号应为13位编码，请重新输入", , "单据编号输入错误": Exit Sub
    
22. End If
    
23. End Sub  

复制代码

你昨天说的那个问题，是因为我是从B7单元格按的 Ctrl+↓ ，只有一条数据自然就越界了（这个地方属于考虑不周），你既然解决了我就懒得改了

keyjohnco

开心就好tzl 发表于 2019-8-24 14:48
我的出库单是三等分的，只能打印6行。编号是我上网找的一个代码，每次打印都会自动更新编号，因为是刚做 ...

我已根据发货明细，输入单据编号就可以生成出库单，而且编号也可以生成序列，只要点选就可以了