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

sandy5626

原帖由 alzeng 于 2010-3-13 15:05 发表

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

谢谢！！我给你发短消息了。麻烦看一下。

821207

实在是太强大了，学学

sandy5626

重新发了要求，请大家帮忙！再顶上来。

alzeng

PrintPO.rar (14.69 KB, 下载次数: 77)

2010-3-14 11:49 上传

点击文件名下载附件

sandy5626

原帖由 alzeng 于 2010-3-14 11:49 发表
680449

谢谢！~
你做的这个单元格A1：N18的内容本来是有标准格式吧。但是现在如果打印标签的话A1：N18里的内容是空的。还有一个问题就是生成的标签和我原来的标签有点区别。要求N列和O列全是空列。第二个标签是从P列开始的。以些类推。另外你现在的QTY下面的数量应该是在SNP下面的。QTY下面的数量应该是原来PO里QTY里的数量。

[ 本帖最后由 sandy5626 于 2010-3-14 20:38 编辑 ]

LangQueS

其他参考：

★使用有效性信息配合引用数据★        http://club.excelhome.net/thread-502238-1-1.html

sandy5626

原帖由 alzeng 于 2010-3-14 11:49 发表
680449

谢谢！能否帮忙解释一下这几句的意思。

Ary = Range("A2", [A65536].End(3)(1, 10))

icl = Ary(k, 4) \ Ary(k, 5) - (Ary(k, 4) Mod Ary(k, 5) > 1)

            If .Cells(.[B65536].End(3).Row - 16, 256).End(1).Column = 28 Then
                Set rng = .[B65536].End(3)(2, 1)
            Else
                Set rng = .Cells(.[B65536].End(3).Row - 16, 256).End(1).Offset(-1, 13)
            End If

alzeng

1. Ary = Range("A2", [A65536].End(3)(1, 10)) 'A列的有效数据扩充10列写入数组Ary 。
2. icl = Ary(k, 4) \ Ary(k, 5) - (Ary(k, 4) Mod Ary(k, 5) > 1) '确定箱数，Ary(k, 4) \ Ary(k, 5)取整，如果有余数，则(Ary(k, 4) Mod Ary(k, 5) > 1)为True，即-1，则负负为正，加1箱尾数。
3.  If .Cells(.[B65536].End(3).Row - 16, 256).End(1).Column = 28 Then
                Set rng = .[B65536].End(3)(2, 1)
            Else
                Set rng = .Cells(.[B65536].End(3).Row - 16, 256).End(1).Offset(-1, 13)
            End If
' 这个代码是用来确认排序写入的第三列是否存在，如存在就另起一行排入标签，否则向右排写标签。