wps宏编辑器案例1-自定义函数使用2-CSDN博客

本文链接：https://blog.csdn.net/chuangxin/article/details/130371135

文章介绍了如何改进WPS宏编辑器中的自定义函数getWorkLeaveInfo，以更高效地处理考勤数据。原有的函数通过循环查找员工请假信息，存在效率问题。改进后的getWorkLeaveInfo2和getWorkLeaveInfo3利用Range.End和Offset方法，动态确定数据范围并进行单元格偏移，提高了代码的灵活性和处理大数据量的能力。

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

在上篇《wps宏编辑器案例1-自定义函数使用》中介绍了如何在wps宏编辑器中创建自定义函数，在单元格公式中如何引用自定义函数，实现考勤数据补全。本文在上篇的基础上，重写自定义函数，利用Range及Range的Offset来实现考勤数据的不全功能。

1、上篇回顾

自定义函数getWorkLeaveInfo实现如下：

function getWorkLeaveInfo(empName, kqDate, kqBanci, kqStatus) {
	// 获取请假、出差信息
	// empName: 姓名, kqDate：考勤日期, kqBanci：1-上午，2-下午
	// 08:00--13:00, 13:00--18:00
	kqStatus = kqStatus ? kqStatus.Value2 : "缺勤";
	if (!empName || !kqDate || !kqBanci) return kqStatus;
	let sheetQJ = Application.Worksheets.Item("请假信息");
	let amStart = "08:00", amEnd = "13:00", pmStart = "13:00", pmEnd = "18:00";
	kqDate = kqDate.Value2.replace(/^\s|\s$/g,"");		// 去除空格
	let strKqStart = kqDate + " " + (kqBanci == 1 ? amStart : pmStart);
	let strKqEnd = kqDate + " " + (kqBanci == 1 ? amEnd : pmEnd);
	let dateKqStart = Date.parse(strKqStart.replace(/-/g, '/'));
	let dateKqEnd = Date.parse(strKqEnd.replace(/-/g, '/'));
	if (kqStatus == "正常上班" || kqStatus == "正常下班") return kqStatus;	

	for (let i = 1; i < 2000; i++) {
		if (! sheetQJ.Cells.Item(i, 1).Value2) break;
		if (sheetQJ.Cells.Item(i, 1).Value2 == empName) {	// 找人
			let strStart = sheetQJ.Cells.Item(i, 6).Value2 + " " + sheetQJ.Cells.Item(i, 7).Value2;
			let strEnd = sheetQJ.Cells.Item(i, 8).Value2 + " " + sheetQJ.Cells.Item(i, 9).Value2;
			let dateStart = Date.parse(strStart.replace(/-/g, '/'));
			let dateEnd = Date.parse(strEnd.replace(/-/g, '/'));
			if (dateKqStart >= dateStart && dateKqEnd <= dateEnd) {
				return sheetQJ.Cells.Item(i, 5).Value2;
			}
		}
	}
	return kqStatus;
}

代码中查找姓名，然后根据姓名和请假时间比对获取是否请假信息，是通过：
1）循环一个预设的最大行数（2000）来实现的，假设实际有3000行数据，则原函数不能正常工作；
2）请假表列固定，比如在姓名列前增加序号列，则单元格(i, 6)读取全部错乱；
基于此，利用Range.End和Offset函数来实现Range范围指定及单元格偏移处理。

2、getWorkLeaveInfo2

function getWorkLeaveInfo2(empName, kqDate, kqBanci, kqStatus) {
	// 获取请假、出差信息
	// empName: 姓名, kqDate：考勤日期, kqBanci：1-上午，2-下午
	// 08:00--13:00, 13:00--18:00
	kqStatus = kqStatus ? kqStatus.Value2 : "缺勤";
	if (!empName || !kqDate || !kqBanci) return kqStatus;
	let sheetQJ = Application.Worksheets.Item("请假信息");
	let amStart = "08:00", amEnd = "13:00", pmStart = "13:00", pmEnd = "18:00";
	kqDate = kqDate.Value2.replace(/^\s|\s$/g,"");		// 去除空格
	let strKqStart = kqDate + " " + (kqBanci == 1 ? amStart : pmStart);
	let strKqEnd = kqDate + " " + (kqBanci == 1 ? amEnd : pmEnd);
	let dateKqStart = Date.parse(strKqStart.replace(/-/g, '/'));
	let dateKqEnd = Date.parse(strKqEnd.replace(/-/g, '/'));
	
	if (kqStatus == "正常上班" || kqStatus == "正常下班") return kqStatus;	
	
	var rNames = sheetQJ.Range(sheetQJ.Range("A2"), sheetQJ.Range("A2").End(xlDown));
	for (var rName of rNames) {
		if (rName.Value2 == empName) {	// 找人
			let i = rName.Row;
			let strStart = sheetQJ.Cells.Item(i, 6).Value2 + " " + sheetQJ.Cells.Item(i, 7).Value2;
			let strEnd = sheetQJ.Cells.Item(i, 8).Value2 + " " + sheetQJ.Cells.Item(i, 9).Value2;
			let dateStart = Date.parse(strStart.replace(/-/g, '/'));
			let dateEnd = Date.parse(strEnd.replace(/-/g, '/'));
			if (dateKqStart >= dateStart && dateKqEnd <= dateEnd) {
				return sheetQJ.Cells.Item(i, 5).Value2;
			}
		}
	}
	return kqStatus;
}

使用var rNames = sheetQJ.Range(sheetQJ.Range(“A2”), sheetQJ.Range(“A2”).End(xlDown))来指定单元格集合，然后利用rName.Row单元格的Row属性获取单元格行号。

3、getWorkLeaveInfo3

function getWorkLeaveInfo3(empName, kqDate, kqBanci, kqStatus) {
	// 获取请假、出差信息
	// empName: 姓名, kqDate：考勤日期, kqBanci：1-上午，2-下午
	// 08:00--13:00, 13:00--18:00
	kqStatus = kqStatus ? kqStatus.Value2 : "缺勤";
	if (!empName || !kqDate || !kqBanci) return kqStatus;
	let sheetQJ = Application.Worksheets.Item("请假信息");
	let amStart = "08:00", amEnd = "13:00", pmStart = "13:00", pmEnd = "18:00";
	kqDate = kqDate.Value2.replace(/^\s|\s$/g,"");		// 去除空格
	let strKqStart = kqDate + " " + (kqBanci == 1 ? amStart : pmStart);
	let strKqEnd = kqDate + " " + (kqBanci == 1 ? amEnd : pmEnd);
	let dateKqStart = Date.parse(strKqStart.replace(/-/g, '/'));
	let dateKqEnd = Date.parse(strKqEnd.replace(/-/g, '/'));
	
	if (kqStatus == "正常上班" || kqStatus == "正常下班") return kqStatus;	
	
	var rNames = sheetQJ.Range(sheetQJ.Range("A2"), sheetQJ.Range("A2").End(xlDown));
	for (var rName of rNames) {
		if (rName.Value2 == empName) {	// 找人
			// 假设当前单元格A3，则Offset(0,5)为F3
			let strStart = rName.Offset(0,5).Value2 + " " + rName.Offset(0,6).Value2;
			let strEnd = rName.Offset(0,7).Value2 + " " + rName.Offset(0,8).Value2;
			let dateStart = Date.parse(strStart.replace(/-/g, '/'));
			let dateEnd = Date.parse(strEnd.replace(/-/g, '/'));
			if (dateKqStart >= dateStart && dateKqEnd <= dateEnd) {
				return rName.Offset(0,4).Value2;
			}
		}
	}
	return kqStatus;
}