求教，如何实现复制新增出库单

砂野天弥

复制粘贴到下一联.rar (9.5 KB, 下载次数: 5)

2020-2-27 00:33 上传

点击文件名下载附件
附件

    实际的表格比这个复杂很多，简化一下就是，刚开始的时候，我只有a的出库单，点一下控件按钮一实现在a出库单下面新增一个b的出库单，格式完全复制，但是信息是复制右边的。
      右边在相同位置上填上c的信息后点一下按钮一，就在b的出库单下面又新增一个c的出库单，……以此类推

taller

参考代码，创建出库单后，清空输入区域，如果需要情况，请屏蔽该行代码

1. Sub 新建出库()
   
2.     Application.DisplayAlerts = False
   
3.     lstk = Cells(Rows.Count, "K").End(xlUp).Row
   
4.     If lstk > 2 Then
   
5.         lsta = Cells(Rows.Count, "A").End(xlUp).Row + 1
   
6.         With Cells(lsta, 1)
   
7.             .Resize(1, 6).Merge
   
8.             .Value = "出库单"
   
9.             .HorizontalAlignment = xlCenter
   
10.         End With
    
11.         Range([K2], Cells(lstk, "P")).Copy Cells(lsta + 1, 1)
    
12.         Range([K3], Cells(lstk, "P")).ClearContents
    
13.     Else
    
14.         MsgBox "请输入数据"
    
15.     End If
    
16.     Application.DisplayAlerts = True
    
17. End Sub

复制代码

taller

示例文件

复制粘贴到下一联.7z (18.91 KB, 下载次数: 8)

2020-2-27 07:32 上传

点击文件名下载附件

砂野天弥

taller 发表于 2020-2-27 07:32
示例文件

非常感谢！初学小白，能逐行代码说明以下么？，还有实际上我的出库单很复杂，我没有看到单元格的对应关系，我怕不好修改

taller

砂野天弥 发表于 2020-2-27 15:45
非常感谢！初学小白，能逐行代码说明以下么？，还有实际上我的出库单很复杂，我没有看到单元格的对应关系 ...

自己研究一下，哪句代码有问题，再提问

砂野天弥

taller 发表于 2020-2-28 08:15
自己研究一下，哪句代码有问题，再提问

“p”“k”“a”分别代表什么？

taller

砂野天弥 发表于 2020-2-28 14:41
“p”“k”“a”分别代表什么？

这个是列标， cells(1,"A") 相当于 cells(1,1)