VBA小白求一个自定义函数

LIUZHU

梯度最多值，如图

LIUZHU

梯度最多值对应值

LIUZHU

JSA代码如下

1. function Get_td(rng,type){
   
2.         const arr=rng.Value2.split(",");
   
3.         const [temp1,temp2]=[[0,1],[1,0]].map(([a,b])=>arr.slice(a,arr.length-b));
   
4.         let imax=0,obj={};
   
5.         let res=temp1.reduce((res,x,i)=>{
   
6.                 let key=x-temp2[i];
   
7.                 let tp=[key,x,temp2[i]];                        //梯度值、被减数、减数
   
8.                 obj[key]=(obj[key] || 0) + 1;                //梯度值次数累加
   
9.                 imax=Math.max(imax,obj[key])                //记录最大梯度值次数
   
10.                 return (res.push(tp),res);
    
11.         },[]);
    
12.         if (type=="梯度最多值") return [...new Set(res.reduce((ar,[a,b,c])=>(obj[a]==imax?ar.push(a):null,ar),[]))].join(",");
    
13.         if (type=="梯度最多值对应值") return [...new Set(res.reduce((ar,[a,b,c])=>(obj[a]==imax?ar.push(b,c):null,ar),[]))].join(",")
    
14. }

复制代码

zhangstone

LIUZHU大神：
非常感谢您，总是您帮我，感激不尽。后边的部分找出对应的减数与被减数，您写出来了吗？

LIUZHU

梯度最多值对应值

LIUZHU

附件请参考，如果要改写成VBA，自己改下

LIUZHU

zhangstone 发表于 2024-5-17 13:43
LIUZHU老师：
您好！
梯度值不可能都是1，如果真的都是1不显示。

既然梯度值的次数不可能都是1，那我就不考虑这个情形了

zhangstone

老师，我用的2019，打开开不了JSA代码

半百

不知道理解的对不对

zhangstone

半百大神：
非常感谢您，这正是我要的结果。