怎么样把发货明细自动生成发货单

科达123

sbww8800 发表于 2019-2-18 16:20
测试。。。。

我电脑XP系统，没法运行VBA，没测试成功。我在研究按前的表格套用， 但写入函数后总是提示错误#NAME

sbww8800

科达123 发表于 2019-2-20 17:28
我电脑XP系统，没法运行VBA，没测试成功。我在研究按前的表格套用， 但写入函数后总是提示错误#NAME

重新下载，原先传的打印语句被注释了，还有就是要启用宏

slying1112

就是公式有高大尚,可以简单些.

aqwer24424

sbww8800 发表于 2019-2-20 18:56
重新下载，原先传的打印语句被注释了，还有就是要启用宏

求助老师，如何根据材积明细表内容自动生成材积单，每一条对应自动生成一张材积单，本表264行数据生成264张材积单，要求行高和打印模板一样。

sbww8800

传不了附件。。。
Sub 打印()
m = --InputBox("开始行？", "")
n = --InputBox("结束行？", "")
If m < 1 Or n < m Then Exit Sub
For k = m To n
    Sheet2.Range("C3:D3,G3:J3,M3:N3,C4:D4,G4:J4,M4:N4,C7:C18,K7:K18,N7:N18").ClearContents
    Sheet2.[c3] = Sheet1.Cells(k, 2)
    Sheet2.[g3] = Sheet1.Cells(k, 5)
    Sheet2.[m3] = Sheet1.Cells(k, 1)
    Sheet2.[c4] = Sheet1.Cells(k, 3)
    Sheet2.[g4] = Sheet1.Cells(k, 4)
    Sheet2.[m4] = Sheet1.Cells(k, 6)
    For i = 8 To 14
        Sheet2.Cells(i, 3) = Sheet1.Cells(k, 4 * (i - 6) - 1)
        Sheet2.Cells(i, 11) = Sheet1.Cells(k, 4 * (i - 6) + 1)
    Next
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next
Sheet2.Range("C3:D3,G3:J3,M3:N3,C4:D4,G4:J4,M4:N4,C7:C18,K7:K18,N7:N18").ClearContents
End Sub

sbww8800

aqwer24424 发表于 2019-8-22 20:26
求助老师，如何根据材积明细表内容自动生成材积单，每一条对应自动生成一张材积单，本表264行数据生成264 ...

看看。。。

aqwer24424

sbww8800 发表于 2019-8-23 16:10
看看。。。

就是根据明细表自动生成材积单，每一条对应自动生成一张，
可以的话麻烦在帮忙添加一个生成按钮和打印按钮呗

aqwer24424

sbww8800 发表于 2019-8-23 16:10
看看。。。

麻烦您了。

sbww8800

aqwer24424 发表于 2019-8-24 08:17
麻烦您了。

。。。。。。。。

aqwer24424

sbww8800 发表于 2019-8-24 11:02
。。。。。。。。

虽然前2页打印出来是表头，不过不影响。
谢谢您了~~~~