按关键词跨工作表 查询并汇总数据到一个工作表 如何用VBA和JSA实现

dongdonggood

搞错了。userform属性里面有个showmodal，默认是 true ，此时不能操作工作表，如果是false，就可以了。

LIUZHU

试试

1. function 查询数据(){
   
2.         let datash=ThisWorkbook.Sheets.Item("查询页");
   
3.         datash.Rows("8:10000").ClearContents();
   
4.         let keyword=datash.Range("b1").Value2;
   
5.         for (let sh of ThisWorkbook.Sheets){
   
6.                 if (sh.Name.includes("数据源")==false) continue;
   
7.                 let newarr=new Array();
   
8.                 let arr=sh.UsedRange.Value2;
   
9.                 for (let ar of arr){
   
10.                         if (ar.includes(keyword)) newarr.push(ar);
    
11.                 }
    
12.                 if (newarr.length==0) continue;
    
13.                
    
14.                 //写入数据
    
15.                 if (sh.Name=="数据源1"){
    
16.                         datash.Range("b8").Resize(newarr.length,newarr[0].length).Value2=newarr;
    
17.                 }else if(sh.Name=="数据源2"){
    
18.                         datash.Range("m8").Resize(newarr.length,newarr[0].length).Value2=newarr;
    
19.                 }
    
20.         }
    
21. }

复制代码

LIUZHU

附件在此，请测试。

Again123456

交作业

交作业

查询.7z (27.4 KB, 下载次数: 20)

2022-7-9 19:49 上传

点击文件名下载附件
交作业

jygzcj

googlesheet app script 也是javascript的

wanghan519

紫色海水 发表于 2022-6-22 16:04
Linux下的WPS不支持数组整体回填单元格
至少我的这个版本是不支持的

请问，直接装的wps Linux版，js宏灰色不可用，想知道什么版本的wps在Linux里可以用js宏，还是需要怎样设置，谢谢