求VBA程序，通过送货单号自动提取内容及汇总送货信息

tds

求助：本人有一份文档，包含三个表：《通用打印》、《订单表》、《送货汇总表》，现希望高手帮助，编写VBA程序，达到以下要求：
1、《通用打印》中“送货单号”能自动编号，格式为：JL+年+月+三位流水号
2、在《订单表》中输入《通用打印》中的“送货单号”，《通用打印》能自动从《订单表》中提取对应的以下信息。

客户:

xx

送货日期：

2014-4-23

订单号码	物料编号	品名/规格	颜色	订单数量	送货数量	单位	备注
PO1404180014	41801000599	焊接组件325*103.2	粗胚	298	20	PCS	T01149001A
PO1404180031	41801020599	焊接组件232*78	粗胚	130	20	PCS	F01149001C

3、在打印《通用打印》后，能将《通用打印》内容自动汇总到《送货汇总表》。

以上需求本人能分开实现，但是不能在一个文档中运行，望大家帮助小女子，以解决工作中的问题。
在此先谢谢大家了！

tds

自已先顶一下。本人用函数能达成效果，但是函数运算时对电脑要求高，还有时因要对订单表进行删除，增加等操作，会引起函数的错误，希望各位大圣多多关注我的这份帖子。

excel333

“分开实现，但是不能在一个文档中运行”
是什么意思？

dragonthree

在《订单表》中输入《通用打印》中的“送货单号”，说反了吧

dragonthree

以上需求本人能分开实现，但是不能在一个文档中运行,那么能分开运行的宏在哪呢?

LMY123

tds 发表于 2014-4-23 11:42
自已先顶一下。本人用函数能达成效果，但是函数运算时对电脑要求高，还有时因要对订单表进行删除，增加等操 ...

参考
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cnn, sql$
    Set cnn = CreateObject("adodb.connection")
   cnn.Open "Provider=Microsoft.jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName
  sql = " select """",采购单号,嘉利物料编号,规格,颜色,订单数量,送货数,"""",备注 from [订单表$] where 送货单号='" & [h3] & "' "
   Range("A7:i16").ClearContents
   Range("a7").CopyFromRecordset cnn.Execute(sql)
   cnn.Close
   Set cnn = Nothing
   For X = 7 To 16
   If Cells(X, 2) <> "" Then
   Cells(X, 1) = X - 6
   Cells(X, 8) = "PCS"
   End If
   Next X
End Sub

LMY123

订单表2014-1.zip (28.79 KB, 下载次数: 211)

2014-4-23 13:10 上传

点击文件名下载附件

490483577

题目没看明白。。。不在一个文档中运行是什么意思？

你是要把这三个表拆分为三个工作薄吗？

office8424

首先你的逻辑有问题,流水号码没有到汇总表中,去哪里提取客户名称和送货日期?
你的要求都不难实现!!
关于客户还有发货日期用index+match函数直接搞定

Sub 自动打印汇总()
If Cells(3, 8) = "" Then
Cells(3, 8).Value = "JL" & Format(Now(), "yyyymm") & "001"
Else
Cells(3, 8).Value = "JL" & Format(Now(), "yyyymm") & Format(Right(Cells(3, 8).Value, 1) + 1, "000")
End If
Cells(3, 8).Value = Cells(3, 8).Value
For i = 7 To Sheets("通用打印").Range("A65536").End(3).Row
j = Sheets("送货汇总表").Range("a65536").End(3).Row + 1
Sheets("送货汇总表").Cells(j, 1) = Sheets("通用打印").Cells(3, 2).Value
Sheets("送货汇总表").Cells(j, 2) = Sheets("通用打印").Cells(3, 8).Value
Sheets("送货汇总表").Cells(j, 3) = Sheets("通用打印").Cells(4, 8).Value
Sheets("送货汇总表").Cells(j, 4) = Sheets("通用打印").Cells(i, 1).Value
Sheets("送货汇总表").Cells(j, 5) = Sheets("通用打印").Cells(i, 2).Value
Sheets("送货汇总表").Cells(j, 6) = Sheets("通用打印").Cells(i, 3).Value
Sheets("送货汇总表").Cells(j, 7) = Sheets("通用打印").Cells(i, 4).Value
Sheets("送货汇总表").Cells(j, 8) = Sheets("通用打印").Cells(i, 5).Value
Sheets("送货汇总表").Cells(j, 9) = Sheets("通用打印").Cells(i, 6).Value
Sheets("送货汇总表").Cells(j, 10) = Sheets("通用打印").Cells(i, 7).Value
Sheets("送货汇总表").Cells(j, 11) = Sheets("通用打印").Cells(i, 8).Value
Sheets("送货汇总表").Cells(j, 12) = Sheets("通用打印").Cells(i, 9).Value
Next i
Sheets("定单表").Range("A3").Select
    Application.ActivePrinter = "HP LaserJet P3005 PCL 6 在 Ne01:" '关于打印自己录制一个宏,具体看自己的打印机了
ActiveWindow.SelectedSheets.PrintOut
Range("A7:I100").ClearContents
End Sub

tds

excel333 发表于 2014-4-23 12:30
“分开实现，但是不能在一个文档中运行”
是什么意思？

就是一个需求一个需求单独运行，可以实现，3个需求一起来，程序就会报错，用不了。