ICode9

精准搜索请尝试: 精确搜索
首页 > 其他分享> 文章详细

Excel通过JS宏自定义过滤、查找等操作

2022-09-16 14:33:28  阅读:296  来源: 互联网

标签:function name 自定义 Excel st Sheets var JS reg


Excel通过JS宏自定义过滤、查找等操作

打开宏开发工具

编写JS代码

function myTest() {
	addSheet()
	setValue()
	regFind()
	deleteSheet()
}

// 新增sheet
function addSheet(name) {
	var st = Sheets.Add()
	st.Name = name || "测试"
}

// 删除sheet
function deleteSheet(name) {
	name = name || "测试"
	var st = Sheets(name) // Sheets(1) Sheets.Item(1)
	st.Delete()
}

// 正则查找整个Excel
// 序号都是从1开始
// 如果当前sheet被激活可以直接使用 Cells、Columns、Rows 等
function regFind(sheetName, reg) {
	var res = []
	reg = reg instanceof RegExp ? reg : reg && new RegExp(reg, 'g') || /(\d+)/g
	//for(var st = 1; st <= Sheets.Count; st++) {
	var sheet = Sheets(sheetName || '测试');
	for(var row = 1; row <= 10; row++) {
		sheet.Rows(row).Hidden = true
		for(var col = 1; col <= 10; col++) {
			var cellValue = sheet.Cells.Item(row, col).Value2 + ''
			var m = reg.exec(cellValue)
			while(m) {
				res.push(m[1])
				m = reg.exec(cellValue)
			}
			if(reg.test(cellValue)) {
				sheet.Rows(row).Hidden = false
			}
		}
	}
	//}
	alert("查询“" + reg + "”的结果:<br>" + res.join(','))
}

// 设置值
// 如果当前sheet被激活可以直接使用 Cells、Columns、Rows 等
function setValue(sheetName) {
	var st = Sheets(sheetName || '测试');
	for(var row = 1; row <= 10; row++) {
		for(var col = 1; col <= 10; col++) {
			var v = '测试'
			if((row + col) % 9 != 0 && row % 2 == 0) {
				v = row + col
			}
			st.Cells.Item(row, col).Value2 = v
			st.Cells.Item(row, col).Interior.ColorIndex = row + col
		}
	}
}

运行JS宏

或者

运行效果

标签:function,name,自定义,Excel,st,Sheets,var,JS,reg
来源: https://www.cnblogs.com/muphy/p/16699741.html

本站声明: 1. iCode9 技术分享网(下文简称本站)提供的所有内容,仅供技术学习、探讨和分享;
2. 关于本站的所有留言、评论、转载及引用,纯属内容发起人的个人观点,与本站观点和立场无关;
3. 关于本站的所有言论和文字,纯属内容发起人的个人观点,与本站观点和立场无关;
4. 本站文章均是网友提供,不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属;如您发现该文章侵犯了您的权益,可联系我们第一时间进行删除;
5. 本站为非盈利性的个人网站,所有内容不会用来进行牟利,也不会利用任何形式的广告来间接获益,纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。

专注分享技术,共同学习,共同进步。侵权联系[81616952@qq.com]

Copyright (C)ICode9.com, All Rights Reserved.

ICode9版权所有