生产材料领料单如何用VBA实现

kimmyyang

1. Sub BCPDF()
   
2. ' 另存为PDF文件并打印当前领料单
   
3. Dim NowWorkbook As Workbook
   
4. Dim FileName$, nm$
   
5. Sheet2.Activate
   
6. nm = Range("J5").Value
   
7. If MsgBox("是否确定要保存为PDF文档及打印！", vbOKCancel) = vbOK Then
   
8. ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
   
9. "D:\发料单" & "领料单" & nm & "-" & Format(Now(), "yymmdd-hhmm") & ".pdf"
   
10. ActiveWindow.SelectedSheets.PrintPreview
    
11. Application.Dialogs(8).Show
    
12. End If
    
13. Exit Sub
    
14. 
    
15. End Sub

复制代码

715289163

Jaofuan 发表于 2019-3-13 14:01
只删除这一句试下

试过了  不行

Jaofuan

715289163 发表于 2019-3-13 14:14
试过了  不行

你把"K5"改成"J5"

715289163

kimmyyang 发表于 2019-3-13 14:10

可以了，谢谢，把K5改成J5就行了，删除下面一句，还有就是如何实现双击J5可以出现窗体，然后在窗体内可以选择对应的产品名称呢。

715289163

Jaofuan 发表于 2019-3-13 14:31
你把"K5"改成"J5"

可以了，万分感谢！
请问：
1：如何实现双击J5单元格调出选择窗体，窗体内可以模糊查找产品名称。
2：如何实现在窗体内双击产品名称，将数据写进J5单元格，然后跳出填写数量窗体，点击确定后将数量添加至E6单元格，单击确定后然后用VBA计算出J5所对应的材料明细，要求领料单空白行隐藏，有利于打印表单，谢谢！

Jaofuan

给你个附件，里面有你想要的所有功能，自己往外套吧，密码：120998229

kimmyyang

附件应该可以满足你的需要。

kimmyyang

Jaofuan 发表于 2019-3-13 14:50
给你个附件，里面有你想要的所有功能，自己往外套吧，密码：120998229

楼主，厉害厉害！

715289163

kimmyyang 发表于 2019-3-13 16:05
附件应该可以满足你的需要。

我是想实现双击J5单元格，然后跳出选择窗体，谢谢！

aman1516

Jaofuan 发表于 2019-3-13 14:50
给你个附件，里面有你想要的所有功能，自己往外套吧，密码：120998229

做得很不错！时间精力应花了不少