7-16 WPS JS宏 RandBetween、Address实例8--[唯一性]类的应用
7-16 WPS JS宏RandBetween、Address实例8--[唯一性]类的应用
- 函数
RandBetween：
为excel函数，需要WorksheetFunction调用。
格式：WorksheetFunction.RandBetween(起点,终点)
Address：
为显示地址
格式：区域范围等.Address()
二、自定义类测试
数据与结果1：
结果2：
生成新工作薄，写入不重复的名字
代码：
class zidinyihanshu{
//初始化设置,只要被激活先运行初始化内容，保存结果。
constructor(Rngs1){//初始化设置函数constructor
this.Rngs=Rngs1;//重点：调用Rngs1可直接使用，调用Rngs需要用this.Rngs
this.arr=Rngs1.Value().flat();//表达式返回属性值
this.list=[...new Set(Rngs1.Value().flat())];//打平数组，集合清理重复值再用[]变为数组
}
//需要时在调用
Sum1(){return this.arr.reduce((x,y)=>x+y)};//有返回值(函数)
Rngcolor(color){this.Rngs.Interior.Colorlndex=color}; //无返回值(函数)
color1(){
for (var v of this.list){
var num=WorksheetFunction.RandBetween(1,999999);
for (var a of this.Rngs){
if (a.Value()==v){a.Interior.Color=num}
}}}
}
//要求:着色各工作表的相同的姓名，并提取每表唯一值
function 重复值单元格上色(){
var arr=[];
for (var ws of Sheets){
var rns=ws.Range("a1",ws.Cells(999,"a").End(xlUp));
var disoj=new zidinyihanshu(rns);
disoj.color1();
arr.push(disoj.list)
}
Console.log(JSON.stringify(arr));
Console.log(rns.Address());//本节学习内容：Address()为显示地址
Workbooks.Add();
var lie=arr.reduce((x,y)=>(x.length>y.length)?x:y).length;
Range("a1").Resize(arr.length,lie).Value2=arr;
}
////自定义类 class zidinyihanshu{ //初始化设置,只要被激活先运行初始化内容，保存结果。 constructor(Rngs1){//初始化设置函数constructor this.Rngs=Rngs1;//重点：调用Rngs1可直接使用，调用Rngs需要用this.Rngs this.arr=Rngs1.Value().flat();//表达式返回属性值 this.list=[...new Set(Rngs1.Value().flat())];//打平数组，集合清理重复值再用[]变为数组 } //需要时在调用 Sum1(){return this.arr.reduce((x,y)=>x+y)};//有返回值(函数) Rngcolor(color){this.Rngs.Interior.Colorlndex=color}; //无返回值(函数) color1(){ for (var v of this.list){ var num=WorksheetFunction.RandBetween(1,999999); for (var a of this.Rngs){ if (a.Value()==v){a.Interior.Color=num} }}} } //要求:着色各工作表的相同的姓名，并提取每表唯一值 function 重复值单元格上色(){ var arr=[]; for (var ws of Sheets){ var rns=ws.Range("a1",ws.Cells(999,"a").End(xlUp)); var disoj=new zidinyihanshu(rns); disoj.color1(); arr.push(disoj.list) } Console.log(JSON.stringify(arr)); Console.log(rns.Address());//本节学习内容：Address()为显示地址 Workbooks.Add(); var lie=arr.reduce((x,y)=>(x.length>y.length)?x:y).length; Range("a1").Resize(arr.length,lie).Value2=arr; }