0基础学写wps进销存

最新推荐文章于 2023-11-28 14:54:54 发布

θΘΞΘθ

最新推荐文章于 2023-11-28 14:54:54 发布

阅读量376

点赞数

分类专栏： wps 文章标签： javascript

本文链接：https://blog.csdn.net/2303_76852426/article/details/130793832

版权

这篇博客记录了一位初学者自学WPS进销存系统的过程，包括订单打印、查询、删除和修改功能的实现。通过不断学习和优化，逐步掌握宏的使用和多条件判断。目前遇到的问题是某个事件需要点击两次才能生效。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

从一个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("