如何通过宏插件实现临期设备信息的查询汇总，临期日期是通过函数公式计算出来的

lcmy000

各位大佬，小弟对宏不太懂。

想实现如下功能，烦请帮忙解忧！
1.只需人工维护“总台账”sheet的少量信息，即可通过函数得到“P”列的有效日期；【本步骤已经实现】
2.人工点击“临期汇总”sheet的控件，实现查询并汇总还有30就到期的设备信息。【本步骤宏已经能实现P列纯字段的查询汇总，但是无法查询P列的公式】

帮忙修改一下，谢谢！！！

lcmy000

大佬们，会修改的请出手帮忙解答下哈！！！谢谢您！！！

LIUZHU

lcmy000 发表于 2022-6-24 14:20
大佬们，会修改的请出手帮忙解答下哈！！！谢谢您！！！

实现查询并汇总还有30就到期的设备信息？是否可以理解为小于等于30天都算

LIUZHU

是这样么？

1. function 统计30天以内的记录(){
   
2.         let arr=new Array();
   
3.         with(ThisWorkbook.Sheets.Item("总台账")){
   
4.                 let n=WorksheetFunction.Match("检定日期",Rows("2:2"),0);
   
5.                 let r1=Range("a" + Rows.Count).End(xlUp).Row;
   
6.                 arr=Range("a3").Resize(r1-2,n).Value2;
   
7.         }
   
8.         with(ThisWorkbook.Sheets.Item("临期汇总")){
   
9.                 mydate=Range("m2").Value2;
   
10.                 let newarr=arr.filter(x=>x[15]-mydate<=30);
    
11.                 if (!newarr==false){
    
12.                         Range("a4:a" + Rows.Count).EntireRow.ClearContents();
    
13.                         Range("a4").Resize(newarr.length,newarr[0].length).Value2=newarr;
    
14.                 }
    
15.         }
    
16. }

复制代码

LIUZHU

附件在此，请测试。

lcmy000

LIUZHU 发表于 2022-6-24 14:57
实现查询并汇总还有30就到期的设备信息？是否可以理解为小于等于30天都算

是的，大佬！就是要把小于等于30天的设备信息都筛选并汇总到同一个表格中。

lcmy000

LIUZHU 发表于 2022-6-24 15:24
附件在此，请测试。

大佬，表格已经下载，但是无法运行宏。进入开发工具，也找不到代码。烦请帮忙看看是什么情况，谢谢您！！！

LIUZHU

lcmy000 发表于 2022-6-24 23:06
大佬，表格已经下载，但是无法运行宏。进入开发工具，也找不到代码。烦请帮忙看看是什么情况，谢谢您！！ ...

把宏的安全性调整为“低”，另外，我写的是JS宏，不是VBA

zpy2

lcmy000 发表于 2022-6-24 23:06
大佬，表格已经下载，但是无法运行宏。进入开发工具，也找不到代码。烦请帮忙看看是什么情况，谢谢您！！ ...

https://club.excelhome.net/forum.php?mod=viewthread&tid=1603524&mobile=&_dsign=7d133e2a

另外，楼上的是wps的jsa宏