如何利用VBA把订单打印成固定的标签。在线等

sandy5626 · 发表于 2010-3-13 13:57

如题，具体要求见附件，不知道大家能不能明白我的意思。

再传一个附件，我本来的要求是想把附件PO里的订单转成print表里的格式打印出标签。

本来写了一个VBA，但是那个VBA没有打印数量

现在要求把数量也打印到标签里，而且如果QTY>MPQ的话，那样一笔订单就要打印几个标签。我原来的VBA就无法完成这个工作，在此请教大家了。谢谢！

有关QTY，MPQ的关系上面的附件里有要求。

[ 本帖最后由 sandy5626 于 2010-3-13 16:43 编辑 ]

alzeng · 发表于 2010-3-13 14:31

Sub ReLst()
Dim Arr(1 To 65535, 1 To 5), i%
Dim Ary, k%, j%, icl%
Ary = Range("A1", [A65536].End(3)(1, 5))
For icl = 1 To 5
Arr(1, icl) = Split("Drawing_Number,PO_Number,Delivery_Date,BOX NO,PQ", ",")(icl - 1)
Next
i = 1
For k = 2 To UBound(Ary)
icl = Ary(k, 4) \ Ary(k, 5) - (Ary(k, 4) Mod Ary(k, 5) > 1)
For j = 1 To icl
i = i + 1
Arr(i, 1) = Ary(k, 1)
Arr(i, 2) = Ary(k, 2)
Arr(i, 3) = Ary(k, 3)
Arr(i, 4) = " " & j & "/" & icl
Arr(i, 5) = IIf(j = icl, Ary(k, 4) Mod Ary(k, 5), Ary(k, 5))
If Arr(i, 5) = 0 Then Arr(i, 5) = Ary(k, 5)
Next
Next
[G1].Resize(i, 5) = Arr
End Sub

复制代码

sandy5626 · 发表于 2010-3-13 14:48

一点看不懂，调试的时候提示
Arr(i, 5) = IIf(j = icl, Ary(k, 4) Mod Ary(k, 5), Ary(k, 5))
这句有错误

alzeng · 发表于 2010-3-13 14:52

原帖由 sandy5626 于 2010-3-13 14:48 发表
一点看不懂，调试的时候提示
Arr(i, 5) = IIf(j = icl, Ary(k, 4) Mod Ary(k, 5), Ary(k, 5))
这句有错误

依你所提供的附件而言，运行无误：

alzeng · 发表于 2010-3-13 14:54

运行结果：

wkbu · 发表于 2010-3-13 14:58

为什么在2003中显示错误呢？

sandy5626 · 发表于 2010-3-13 14:59

高人，佩服。如果我想把这个结果保存到另外一个表中。应该如果修改代码？

alzeng · 发表于 2010-3-13 15:03

原帖由 wkbu 于 2010-3-13 14:58 发表
为什么在2003中显示错误呢？
680099

这个问题在于有效数据下的无效数据未清理，致使结果有误。对本例来说，第八行以后的无效数据应清除。

wkbu · 发表于 2010-3-13 15:03

原因找到了：Ary = Range("A1", [A65536].End(3)(1, 5))，向“一念”学习

alzeng · 发表于 2010-3-13 15:05

原帖由 sandy5626 于 2010-3-13 14:59 发表
高人，佩服。如果我想把这个结果保存到另外一个表中。应该如果修改代码？

修改最后一句为：
Sheets("***").[A1].Resize(i, 5) = Arr

		自动登录	找回密码
密码			免费注册

[求助] 如何利用VBA把订单打印成固定的标签。在线等