课表表头制作

jx928867128

工作簿1.rar (8.4 KB, 下载次数: 8)

2024-6-1 17:19 上传

点击文件名下载附件

"自动制作表头：
1、课表结构中填写了排课天数，每天节数，上午节数，需要用代码自动制作课表中的课表标题（附件中是人工做的，需要程序全部完成）
2、当课表结构表中B列的数据改动后，程序也能正确填写。"                                       
                                       
                                       
                                       
                                       
                                       
                                       
                                       

LIUZHU

这是是排一个表头，没有具体的课程啊？

gwjkkkkk

排课天数怎么理解 是6指星期一和星期六？

jx928867128

gwjkkkkk 发表于 2024-6-1 17:30
排课天数怎么理解 是6指星期一和星期六？

谢谢您的再次关注，是的

gwjkkkkk

模拟结果有误？

jx928867128

LIUZHU 发表于 2024-6-1 17:26
这是是排一个表头，没有具体的课程啊？

谢谢您的再次关注，课程打算继续手工排，上次发了一个排课的贴子，应该是工作量大，问题一直没有解决。

jx928867128

gwjkkkkk 发表于 2024-6-1 17:34
模拟结果有误？

不好意思，我多填写了星期日，太不细心了

LIUZHU

大概是这个效果吧？

LIUZHU

JS宏代码，供参考，只适合WPS软件

1. function 排课(){
   
2.         let obj=Sheets.Item("课表结构").Range("a1").CurrentRegion.Value2.reduce((obj,[a,b])=>(obj[a]=b,obj),{});
   
3.         let arr=[..."一二三四五六日"].reduce(([ar1,ar2],x,i)=>{
   
4.                 if (i+1>obj.排课天数) return [ar1,ar2];
   
5.                 for (let j=1;j<=obj.每天节数;j++){
   
6.                         ar1[ar1.length]=j==1?`星期${x}`:null;
   
7.                         ar2[ar2.length]=j<=obj.上午节数?`上${j}`:`下${j-obj.上午节数}`;
   
8.                 }
   
9.                 return [ar1,ar2];
   
10.         },[["星期"],["节次"]]);
    
11.         with(Sheets.Item("课表")){
    
12.                 Range("a3").Resize(arr.length,arr[0].length).Value2=arr;
    
13.                 let rng=Range("a3").CurrentRegion;
    
14.                 [rng.Borders.LineStyle, rng.HorizontalAlignment, rng.VerticalAlignment]=[1,-4108,-4108];
    
15.                 arr[0].forEach((x,i)=>x!=null && x.length==3?Cells.Item(3,i+1).Resize(1,obj.每天节数).Merge():null);
    
16.         }
    
17. }

复制代码

LIUZHU

附件，需要WPS打开运行JS宏