0基础学写wps进销存

从一个wps表单开始,全部自学(从录制宏开始,想到哪找哪,0基础)

目前完成的部分

1,订单打印(保存,新增,单号累加,日期时间)

        从一开始的录制修改后的一大串

单单为了写这行代码找了两天

var x=Sheets("出货明细").Cells(Rows.Count,1).End(xlUp).Row+1

function 保存并清除()
{	
	var x=Sheets("出货明细").Cells(Rows.Count,1).End(xlUp).Row+1;
	Sheets.Item("销售单").Activate();
	if(Cells(5,3).Value2!=undefined)
	{
		for(var i=9;i<=17;i++)
		{
			Sheets.Item("销售单").Activate();
			if(Cells(i,2).Value2!=undefined)
			{
	//第一列
	Sheets.Item("销售单").Activate();
	Range("G4").Select();
	Selection.Copy(undefined);
	Sheets.Item("出货明细").Activate();
	Cells(x,1).Select();
	Selection.PasteSpecial(xlPasteValues, xlPasteSpecialOperationNone, false, false);
	//第二列
	Sheets.Item("销售单").Activate();
	Range("K20").Select();
	Selection.Copy(undefined);
	Sheets.Item("出货明细").Activate();
	Cells(x,2).Select();
	Selection.PasteSpecial(xlPasteValues, xlPasteSpecialOperationNone, false, false);
	//第三列
	Sheets.Item("销售单").Activate();
	Range("C5").Select();
	Selection.Copy(undefined);
	Sheets.Item("出货明细").Activate();
	Cells(x,3).Select();
	Selection.PasteSpecial(xlPasteValues, xlPasteSpecialOperationNone, false, false);
	//第四列
	Sheets.Item("销售单").Activate();
	Range("B"+i).Select();
	Selection.Copy(undefined);
	Sheets.Item("出货明细").Activate();
	Cells(x,4).Select();
	Selection.PasteSpecial(xlPasteValues, xlPasteSpecialOperationNone, false, false);
	//第五列
	Sheets.Item("销售单").Activate();
	Range("D"+i).Select();
	Selection.Copy(undefined);
	Sheets.Item("出货明细").Activate();
	Cells(x,5).Select();
	Selection.PasteSpecial(xlPasteValues, xlPasteSpecialOperationNone, false, false);
	//第六列
	Sheets.Item("销售单").Activate();
	Range("E"+i).Select();
	Selection.Copy(undefined);
	Sheets.Item("出货明细").Activate();
	Cells(x,6).Select();
	Selection.PasteSpecial(xlPasteValues, xlPasteSpecialOperationNone, false, false);
	//第七列
	Sheets.Item("销售单").Activate();
	Range("F"+i).Select();
	Selection.Copy(undefined);
	Sheets.Item("出货明细").Activate();
	Cells(x,7).Select();
	Selection.PasteSpecial(xlPasteValues, xlPasteSpecialOperationNone, false, false);
	//第八列
	Sheets.Item("销售单").Activate();
	Range("G"+i).Select();
	Selection.Copy(undefined);
	Sheets.Item("出货明细").Activate();
	Cells(x,8).Select();
	Selection.PasteSpecial(xlPasteValues, xlPasteSpecialOperationNone, false, false);
	//第九列
	Sheets.Item("销售单").Activate();
	Range("H"+i).Select();
	Selection.Copy(undefined);
	Sheets.Item("出货明细").Activate();
	Cells(x,9).Select();
	Selection.PasteSpecial(xlPasteValues, xlPasteSpecialOperationNone, false, false);
    //第十列
	Sheets.Item("销售单").Activate();
	Range("I"+i).Select();
	Selection.Copy(undefined);
	Sheets.Item("出货明细").Activate();
	Cells(x,10).Select();
	Selection.PasteSpecial(xlPasteValues, xlPasteSpecialOperationNone, false, false);
    //第十一列
	Sheets.Item("销售单").Activate();
	Range(&#