各位大侠，怎么我做了一个送货单打印的不能数据有几行就保存几行

LMW

怎么我做了一个送货单打印的Excel表格，本来想打印好了就自动把产品名称等信息保存到另一个工作工作表里，但是现在我弄了只能固定保存5行，不能有几行数据就保存几行，请各位大侠指点一下，急用！！！！！！

好像不能打印好了自动保存，这个是哪里设错了呢 复件 送货单（自动打印后保存）.rar (17.16 KB, 下载次数: 34)

2014-4-16 19:40 上传

点击文件名下载附件
123

北边的鱼

我用了下以好的，你好的，客户的信息能不能也变化的，只要我输入的客户名称，有关客户的所有的信息就全部出来了，还有那个单号，只要这一单结束了工作，那下一个号就出现。

张天硕BLOG

谢谢楼主分享

yangyonghuiwp

请看附件：
For i = 0 To 4 '商品信息分五行，为了简化代码，使用循环语句
.Cells(x + i, 1) = [h3] '单据编号
.Cells(x + i, 2) = [b3] '客户
.Cells(x + i, 3) = [b4] '地址
.Cells(x + i, 4) = [h4] '日期
.Cells(x + i, 5) = Cells(i + 6, 2) '商品名称
.Cells(x + i, 6) = Cells(i + 6, 3) '规格
.Cells(x + i, 7) = Cells(i + 6, 4) '单位
.Cells(x + i, 8) = Cells(i + 6, 5) '数量
.Cells(x + i, 9) = Cells(i + 6, 6) '单价
.Cells(x + i, 10) = Cells(i + 6, 7) '金额
Next

上述代码中的4固定死了，只能保存5条（5条及5条以下，其实总是5条，只不过不足5条时加入的是空行，不易发现）记录。
应根据实际条数，动态设置值，而不是4.

yangyonghuiwp

我做了一个无论多少行，都能正常运行的。
已测试。
希望你能够喜欢！

一指禅62

for i=4 to 14
   if .range("E"& i)<>0 then
      '保存
  end if
next

LMW

谢谢3楼的高手，我试了一下，很好用，菜鸟又学到了一招，

w550s

学习了，我有一份表格也一样情况，超出7行不能保存。

DYBG89675333

谢谢楼主分享