多条件汇总统计数据

LIUZHU

发生年度和所属年度反了吧？

LIUZHU

发生年度，要么和所属年度相同，要么大于所属年度，哪里有所属年度大于发生年度的？

LIUZHU

做前面两个统计，参与下

LIUZHU

JS代码，供参考

1. function 多条件统计(){
   
2.         const arr=Sheets.Item("数据库").UsedRange.Value2.slice(1);
   
3.         [["按姓名统计",3],["按月度统计",1]].forEach(([name,n])=>{
   
4.                 let [y1,y2]=["b2","b3"].map(rg=>Sheets.Item(name).Range(rg).Value2);
   
5.                 let res=arr.filter(([a,,b])=>a==y1 && b==y2).reduce((res,x)=>{
   
6.                         let temp=res["a"+x[n]]=res["a"+x[n]] || (res[res.length]=[x[n]]);
   
7.                         return x.slice(4).forEach((y,j)=>temp[j+1]=(temp[j+1] || 0) + y), res;
   
8.                 },[])
   
9.                 Sheets.Item(name).Range("d2").Resize(res.length, res[0].length).Value2=res;
   
10.         });
    
11. }

复制代码

LIUZHU

附件，WPS打开测试

笨鸟飞不高

三个表条件格式统一调整了一下！

笨鸟飞不高

zjwsm

LIUZHU 发表于 2024-6-28 09:15
发生年度和所属年度反了吧？

是我前后弄错了

peteryhr

Sub byPeteryhr()
    Dim Conn As Object, Rs As Object, conStr$, SQL$, i&, 发生年度$, 所属年度$, 姓名$, s$
    With ThisWorkbook.Worksheets("按人员查询")
        发生年度 = [c1]: 所属年度 = [c2]: 姓名 = [c3]
        SQL = "Select * From [数据库$] Where 1=1"
        If 发生年度 <> "" Then s = s & " AND 发生年度 = 发生年度"
        If 所属年度 <> "" Then s = s & " AND 所属年度 = 所属年度"
        If 姓名 <> "" Then s = s & " AND 姓名 = '" & 姓名 & "'"
        SQL = SQL & s
        Set Conn = CreateObject("ADODB.Connection")
        Set Rs = CreateObject("ADODB.Recordset")
        conStr = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=Yes;IMEX=2';Data Source=" & ThisWorkbook.FullName
        Conn.Open conStr
        Rs.Open SQL, Conn
        .Range("A5:T" & .Cells(Rows.Count, 4).End(xlUp).Row).Offset(1).ClearContents
        .Range("A5").CopyFromRecordset Rs
        Rs.Close
        Conn.Close
        Set Rs = Nothing
        Set Conn = Nothing
    End With
End Sub

peteryhr

以为只做带按钮的表。。。把sql查询语句稍加修改即可用在前两张表。自己试一下吧