跟我学JavaScript in WPS

OKJSJSF

金山的WORD表格如何插制表符？用微软的方法CTRL+TAB没用。

jeff_ps2009

确实帮助很大，感谢老师。学习了。

ctp_119

1. function listDir(folderPath) {
   
2.         if (Dir(folderPath, jsDirectory) == "") throw new TypeError("参数错误，文件夹不存在")
   
3.         const results = []
   
4.         let file = Dir(folderPath + "/*")
   
5.         while (file != "") {
   
6.                 results.push(folderPath + "\" + file)
   
7.                 file = Dir()
   
8.         }
   
9.         return results
   
10. }
    
11. 
    
12. function test(){
    
13.         Application.ScreenUpdating=false
    
14.         var arr=listDir(ThisWorkbook.Path)
    
15.         var brr=[]
    
16.         var crr=[]
    
17.         const files = arr.filter(file => file!=ThisWorkbook.Path+"\\~$"+ThisWorkbook.Name && file!=ThisWorkbook.Path+"\"+ThisWorkbook.Name)
    
18.         files.forEach(file=>{
    
19.                 var wb=Workbooks.Open(file);
    
20.                 var sht=wb.Sheets("销售明细");
    
21.                 brr=sht.Range("A2:J"+sht.Range("A65536").End(xlUp).Row).Value2;
    
22.                 wb.Close(false);
    
23.                 const br = brr.filter(b =>b[7]==Range("C1").Value2)
    
24.                 crr=crr.concat(br)
    
25.                 //debugger
    
26.                 })
    
27.         Range("A3:J65536").ClearContents()
    
28.         Range("A3").Resize(crr.length,10).Value2=crr
    
29.         Application.ScreenUpdating=true
    
30. }
    
31. 
    
32. function flhz(){
    
33.         var arr = Sheets("客户明细").Range("A3:J"+Sheets("客户明细").Range("b65536").End(xlUp).Row).Value2
    
34.         var m=new Map();
    
35.         for (let b of arr){
    
36.                 if (b[0]>=Range("b1").Value2 && b[0]<=Range("d1").Value2){
    
37.                         if (m.has(b[8]+'|'+b[1])){
    
38.                                 m.set(b[8]+'|'+b[1],m.get(b[8]+'|'+b[1])+b[6]);
    
39.                         }
    
40.                         else{
    
41.                                 m.set(b[8]+'|'+b[1],b[6]);
    
42.                         }
    
43.                 }
    
44.         }
    
45.         var frr=[...m.entries()]
    
46.         Range("b3:d500").ClearContents();
    
47.         var sht=Worksheets('按送货地址单号');
    
48.         var j=0;
    
49.         for (let i=0;i<frr.length;i++){
    
50.                 sht.Cells(i+3,2).Value2=frr[i][0].split("|")[0];
    
51.                 sht.Cells(i+3,3).Value2=frr[i][0].split("|")[1];
    
52.                 sht.Cells(i+3,4).Value2=frr[i][1];
    
53.                 j=i;
    
54.         }
    
55.         Cells(j+4,4).Formula2="=sum(d3:d"+(j+3)+")"
    
56. }
    
57. 
    
58. function FC3(){
    
59.         var m=new Map();
    
60.         var i=Range("A65536").End(xlUp).Row;
    
61.         var arr=Range("A3:I"+i).Value2;
    
62.         arr.forEach(a=>{
    
63.                 if (m.has(a[8])){
    
64.                         m.get(a[8]).push(a);
    
65.                 }
    
66.                 else{
    
67.                         m.set(a[8],[a]);
    
68.                 }
    
69.         })
    
70.         var brr=[...m.keys()];
    
71.         brr.map(v=>{
    
72.                 m.get(v).unshift(["日期","单据编号","商品全称","单位","数量","单价","金额","客户名称","送货地址"]);
    
73.                 Sheets.Add(undefined,Sheets(Sheets.Count)).Range("A1").Resize(m.get(v).length,9).Value2=m.get(v);
    
74.                 Columns.Item("A:A").NumberFormatLocal = "yyyy-m-d;@";
    
75.                 Columns.Item("A:D").AutoFit();
    
76.                 ActiveSheet.Name=v;
    
77.         })
    
78.         Sheets("客户明细").Visible=false;
    
79. }

复制代码

liyuce

WPS官方的帮助文档远远不如你这个好用，WPS太辣鸡了

ctp_119

liyuce 发表于 2024-4-8 10:18
WPS官方的帮助文档远远不如你这个好用，WPS太辣鸡了

谢谢夸奖，，，
https://club.excelhome.net/threa ... tml?_dsign=3dedaf64

lulu8988

顶起，好好学习!!

OKJSJSF

liyuce 发表于 2024-4-8 10:18
WPS官方的帮助文档远远不如你这个好用，WPS太辣鸡了

我怎么找不到帮助？

OKJSJSF

试了一下录制宏功能，对代码进行删减，无法运行。复制，粘贴，填充自然数，剪切，粘贴，自适应列宽，不自动换行，无底纹颜色，默认字体颜色，细边框，中间右边框双线条。目的是对二列数据打印时添加序号分二栏排版，即六列。

OKJSJSF

删掉大部分参数后，正确执行了。

OKJSJSF

还可以继续删，如 .item