实现WPS出库单与明细自动同步的简易方法 点击使用AI助手 了解更多
【案例】下面有一张【出库单】和一张【出库明细】，希望在【出库单】中录入数据，点击“保存”按钮之后，能将数据保存到【出库明细】中。
【操作效果】具体操作效果如下：
【代码】具体代码如下，可按ALT+F11打开WPS宏编辑器，复制下面的代码粘贴到编辑器中。
function 保存出库单(){
n1 = Range("c18").End(3).Row //物品信息最后行号
let sh = Sheets("出库明细") //将出库明细表定义为sh
n2 = sh.Range("A65535").End(3).Row + 1 //获取出库明细表最后一行的下一行号
n3 = n2+n1-7 //得到出库明细最后一行加上物品行数之后的行号
sh.Range("a" + n2+":a"+n3).Value2 = Range("k3").Value2 //单号
sh.Range("b" + n2+":b"+n3).Value2 = Range("f5").Value2 //日期
Range("c7:k"+n1).Copy() //复制物品信息
sh.Range("c" + n2).PasteSpecial(xlPasteValues) //粘贴物品信息
sh.Range("L" + n2+":L"+n3).Value2 = Range("c4").Value2 //供应商
sh.Range("m" + n2+":m"+n3).Value2 = Range("c5").Value2 //供应商联系人
sh.Range("n" + n2+":n"+n3).Value2 = Range("k5").Value2 //经办人
出库单清空()
MsgBox("保存成功！")
}
【素材下载】点击下方链接，下载文件到本地文件夹，在本地文件夹中打开，在出库单填写数据，点击“保存”按钮，即可将数据保存到出库明细中。
https://kdocs.cn/l/csGo35KBlz0y
原文链接：https://bbs.wps.cn/topic/9587
