（求助VBA）复杂的条件组合

三票

（求助VBA）复杂的条件组合

小凡、、、

假设符合条件1的有5组，条件2的两组，条件三的一组，结果是所有条件1+条件2+条件三的所有组合，还是最多的组排好其他较少的一次排满就行

三票

小凡、、、 发表于 2024-6-11 15:33
假设符合条件1的有5组，条件2的两组，条件三的一组，结果是所有条件1+条件2+条件三的所有组合，还是最多的 ...

结果是所有条件1+条件2+条件3的所有组合

蓝桥玄霜

模拟结果中有2个50,52,53,54是错的
另一个是51,52,53,54

三票

蓝桥玄霜 发表于 2024-6-11 17:25
模拟结果中有2个50,52,53,54是错的
另一个是51,52,53,54

50-52-53-54个位和值9，跨度4，质数2个

蓝桥玄霜

条件1的例子：

grf1973

1. function main(){
   
2.         let data=Range('c4:c83').CurrentRegion.Value2.flat().map(x=>Number(x));       
   
3.         Range('I11:S1000').ClearContents();
   
4.        
   
5.         function 筛选(a,b,c,d,e){  //5个条件进行筛选
   
6.                 let nums=data.filter(x=>Math.floor(x/10)==a);       
   
7.                 let res=[],n=b;
   
8.                 let [c1,c2]=c.split('~');
   
9.                 let [d1,d2]=d.split('~');
   
10.                 let [e1,e2]=e.split('~');
    
11. 
    
12.                 function dg(nums,n,path){  //递归生成
    
13.                         if(path.length==n){
    
14.                                 res.push(path)
    
15.                                 //Debug.Print(path.join(','))
    
16.                                 return;
    
17.                         }
    
18.                         for(let x of nums){
    
19.                                 let restnums=nums.filter(y=>y>x)
    
20.                                 let nextpath=[...path,x]
    
21.                                 dg(restnums,n,nextpath)
    
22.                         }
    
23.                 }
    
24.                
    
25.                 dg(nums,n,[])   //生成res
    
26.                 let finalres=[]
    
27.                 for(let x of res){
    
28.                         if(test1(x,c1,c2) &&  test2(x,d1,d2) && test3(x,e1,e2)) {
    
29.                                 finalres.push(x)       
    
30.                         }
    
31.                 }
    
32.                 return finalres;                       
    
33.         }
    
34.        
    
35.         let [a,b,c,d,e]=[5,4,'9~11','3~5','2~3']       
    
36.         let res=筛选(a,b,c,d,e)
    
37.        
    
38.         let [a1,b1,c1,d1,e1]=[6,3,'10~18','2~5','2~3']
    
39.         let res1=筛选(a1,b1,c1,d1,e1)
    
40.        
    
41.         let [a2,b2,c2,d2,e2]=[3,3,'14~24','2~5','0~0']
    
42.         let res2=筛选(a2,b2,c2,d2,e2)
    
43.        
    
44.         let finalres=[];
    
45.         for(let x of res){   //符合条件的三个数组相合
    
46.                 for (let x1 of res1){
    
47.                         for(let x2 of res2){
    
48.                                 finalres.push([...x,...x1,...x2])
    
49.                         }
    
50.                 }
    
51.         }
    
52.         Range('I11').Resize(finalres.length,finalres[0].length).Value2=finalres
    
53. }
    
54. 
    
55. function test1(arr,t1,t2){   //组合结果个位数字和值是否在t1,t2之间
    
56.         if(t1=='' && t2=='') return true;
    
57.         let n=arr.reduce((s,x)=>s+=x%10,0) ;
    
58.         return (n>=Number(t1) && n<=Number(t2));
    
59. }
    
60. function test2(arr,t1,t2){   //组合结果个位数字跨度是否在t1,t2之间
    
61.         if(t1=='' && t2=='') return true;
    
62.         let tmpar=arr.map(x=>x%10);
    
63.         let n=Math.max(...tmpar)-Math.min(...tmpar);       
    
64.         return (n>=Number(t1) && n<=Number(t2));
    
65. }
    
66. function test3(arr,t1,t2){   //个位质数个数是否在t1,t2之间
    
67.         if(t1=='' && t2=='') return true;
    
68.         let n=0;
    
69.         for(let x of arr){
    
70.                 let t=x%10;
    
71.                 if(t==1 || t==2 || t==3 || t==5 || t==7) n+=1
    
72.         }
    
73.         return (n>=Number(t1) && n<=Number(t2));
    
74. }

复制代码

grf1973

这个要用到递归，数组的拼接等，用js会方便很多。
请用wps测试。
给定条件有480组结果。

三票

蓝桥玄霜 发表于 2024-6-11 20:21
条件1的例子：

蓝版主：1、代码我写到模块里了，但运行时报错。找不到原因，您给看一下。2、就是组合个数条件的数字改变也能组出对应的结果。

蓝桥玄霜

请见附件。