WPS JS宏在中小学教师中的教学创新应用：助力高效课堂之宏笔触

admin2023-10-30【电脑技术】浏览：147

经常有一些教师朋友有一些学生成绩、扣分检查、数据报表需要汇总，今天就有一位教师朋友找我定制一个汇总功能。

需求如下：

汇总登记表各班的扣分情况，然后填写至汇总表，实现对扣分情况的自动汇总。

登记表

汇总表

我们的思路，循环登记表每行数据，做一个字典，把每个班级的扣分进行汇总，然后根据字典的键对汇总表对应的位置进行填充。代码如下：

function test(){	var dicGao=new Map();	var dicDi=new Map();	for(var i=2;i<9;i++)	{		var dateTime=ActiveSheet.Range("A"+i).Value()		if(true)		{			var banji=ActiveSheet.Range("E"+i).Value()			var ban=banji.split('-')[0]			var duan=ban.charAt(0)			var koufen=ActiveSheet.Range("F"+i).Value()						if(duan>3)			{				if(dicGao.has(ban))				{					dicGao.set(ban,dicGao.get(ban)+koufen)				}				else				{					dicGao.set(ban,koufen)				}			}			else			{				if(dicDi.has(ban))				{					dicDi.set(ban,dicDi.get(ban)+koufen)				}				else				{					dicDi.set(ban,koufen)				}			}		}	}	var tss=dicDi.get("11")	Worksheets("各班汇总").Range("C9").Value2=dicDi.get("11")	Worksheets("各班汇总").Range("D9").Value2=dicDi.get("12")	//Range("J1").Resize(dicDi.size,2).Value2=[...dicDi]}

代码写好后，我们插入一个按钮，并点击右键指定宏为刚才我们编写的函数，编辑按钮上面的文本为“一键汇总”。最后另存为.xlsm格式即可。

最终效果