WPS表格 JSA-单格内，按文字颜色处理文字

Posted 2022-03-31 笑虾

WPS表格 JSA-单格内，按文字颜色处理文字

• 按颜色删除单元格内指定文字
• 辅助方法
• 参考资料

按颜色删除单元格内指定文字

function removeCharByColor(查找颜色索引 = 2, 结果字号 = 9, 结果颜色 = 0) 
	// 修改时不需要刷屏
	Application.ScreenUpdating = false; // 关闭屏幕重绘
	Application.EnableAnimations = false; // 此对象、成员或枚举已被弃用并且不适合在您的代码中使用。
	Application.EnableEvents = false; // 禁用事件
	Application.Calculation = xlCalculationManual // 手动重算
	var rangeAll = Selection;
	var rangeArr = [...rangeAll];

	rangeArr.forEach(rng => 
		var c = rng.Characters();
		var len = rng.Characters().Count;
		var tempStr = [];
		for (var i = 1; i <= len; i++) 
			var char = rng.Characters(i, 1);
			if (char.Font.ColorIndex != 查找颜色索引) 
				tempStr.push(char.Text);
			
			DoEvents(); // 喘口气，别卡死
		
		rng.Value2 = tempStr.join('');
	);

	(obj => 
		obj.Size = 结果字号;
		obj.Color = 结果颜色;
	)(rangeAll.Font);

	Application.ScreenUpdating = true; // 开启屏幕重绘
	Application.EnableAnimations = true; // 此对象、成员或枚举已被弃用并且不适合在您的代码中使用。
	Application.EnableEvents = true; // 开启事件
	Application.Calculation = xlCalculationAutomatic // 自动重算
	alert("完成！");


function 按颜色删除单元格内指定文字()
	removeCharByColor(2,9,0);

辅助方法

function 查看每个文字样式()
	var rng = Selection;
    var len = rng.Characters().Count;
	for(var i=1; i <= len; i++) 
      var char = rng.Characters(i,1);
      Console.log(`【内容】：$char.Text; 【字号】：$char.Font.Size; 【Color】$char.Font.Color; 【ColorIndex】：$char.Font.ColorIndex`);
    

参考资料

Excel VBA-单格内，按文字颜色处理文字