【JS宏实战案例】用工作表做数据库，将出库单保存为出库明细

【案例】下面有一张【出库单】和一张【出库明细】，希望在【出库单】中录入数据，点击“保存”按钮之后，能将数据保存到【出库明细】中。

【操作效果】具体操作效果如下：

【代码】具体代码如下，可按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