filter我写它就不听话

yangqianming

1. function 签字表(){
   
2.         let res=[];
   
3.         let arr=Worksheets('就餐日').Range('a1').CurrentRegion.Value().slice(1);
   
4.         let date=arr.filter(row=>row[2]==Worksheets('营养餐签字表').Range('AA1').Value() && row[1]=='就餐').map(v=>v[0]);
   
5.         res.push(['日期',...date,'学生签名']);
   
6.         res.push(['姓名',...date,null]);
   
7.         Worksheets('信息表').Range('a1').CurrentRegion.Value().slice(1).filter(r=>r[0]==Worksheets('营养餐签字表').Range('AB1').Value()).map(m=> res.push([m[1]]))
   
8.         let title=[`镇中心小学${Worksheets('营养餐签字表').Range('AA1').Value()}${Worksheets('营养餐签字表').Range('AB1').Value()}班营养餐签字名册`];       
   
9.         res.unshift(title);
   
10.         Worksheets('营养餐签字表').Range('a2').CurrentRegion.Clear();
    
11.         Worksheets('营养餐签字表').Range('a1').Resize(res.length,res[1].length).Value2=res;
    
12.         Worksheets('营养餐签字表').Range('a2').Resize(1,res[1].length).NumberFormatLocal='m月d日'       
    
13.         Worksheets('营养餐签字表').Range('a3').Resize(1,res[1].length).NumberFormatLocal='aaaa'
    
14.         Worksheets('营养餐签字表').Cells(1,1).Resize(1,res[1].length).Merge();
    
15.         Worksheets('营养餐签字表').Cells(1,1).Resize(1,res[1].length).HorizontalAlignment = xlHAlignCenter;
    
16.         Worksheets('营养餐签字表').Cells(1,1).Resize(1,res[1].length).Font.Name = '黑体';       
    
17.         Worksheets('营养餐签字表').Cells(1,1).Resize(1,res[1].length).Font.Size = 22;
    
18.         for (let rng of Rows(2).Cells) rng.Value2=='学生签名' ? rng.Resize(2, 1).Merge() : null;
    
19.         with(Worksheets('营养餐签字表').Range('a2').Resize(res.length-1,res[1].length)){
    
20.                 Font.Size = 10;
    
21.         Font.Bold = true;
    
22.         Font.Name = '黑体';               
    
23.         HorizontalAlignment = xlHAlignCenter;
    
24.         Borders.LineStyle = xlContinuous;
    
25.         with (Rows("1:2")) {
    
26.                 EntireColumn.AutoFit();
    
27.             Font.Bold = true;
    
28.             Font.ThemeColor = 1;
    
29.             Interior.ThemeColor = 5;        //背景着色
    
30.             //Interior.TintAndShade=0;
    
31.         }
    
32.         }       
    
33. alert(`<h2 style="color:green ; font-family: 隶书;font-size:12" >OK！</h2>`)                       
    
34. }

复制代码

代码有些难看但可以正常运行！