如何实现数据查询统计

S110018

设计个工作用录入表，求助实现下面几个功能

1、在“录入”表保存数据后，“DATA”表所有数据能自动按B列时间升序排列；

2、在“录入”表界面“供应商名称”栏录入如：A1公司，通过按钮2达成结果：累计金额、笔数、差额（与5万的差额，超过数字红色）；

3、在“录入”表界面“单据日期”栏录入日期区间如：20240101-20240120，同时“核算码”栏录入如：6001，通过按钮2达成结果：累计金额、笔数、差额（与5万的差额，超过数字红色）。

敬请赐教，谢谢！

ykcbf1100

需求有点多，先看一下

3190496160

Private Sub Worksheet_Activate()
r = Cells(Rows.Count, 2).End(xlUp).Row
[a1].Resize(r, 8).Sort [b1], 1, , , , , , 1 '第一个数据，表示升序还是降序，1为升序，2为降序，第二个数据表示标题行数
End Sub

洋务德雷

日期那里不是真正的日期

3190496160

Sub chaxun()
With Sheets("DATA")
    r = .Cells(Rows.Count, 2).End(xlUp).Row
    ar = .Range("a1:h" & r)
End With
With Sheets("录入")
    ks = .[d3]
    js = .[f3]
    gs = .[d7]
    rr = Array(ks, js, gs)
    For i = 0 To UBound(rr)
        If rr(i) <> "" Then
            n = n + 1
        End If
    Next i
    If n = "" Then MsgBox "请至少输入一个查询条件！": End
    For i = 2 To UBound(ar)
        m = 0
        If ks <> "" And js <> "" Then
            If ar(i, 2) >= ks And ar(i, 2) <= js Then
                m = m + 1
            End If
        End If
        If gs <> "" Then
            If Trim(ar(i, 6)) = gs Then
                m = m + 1
            End If
        End If
        If m = n Then
            hj = hj + ar(i, 5)
            k = k + 1
        End If
    Next i
    .[k4] = hj
    .[l4] = k
    .[m4] = 50000 - hj
End With
MsgBox "ok!"
End Sub

3190496160

报账录入表单 - 副本.rar (27.33 KB, 下载次数: 24)

2024-1-22 09:28 上传

点击文件名下载附件

S110018

非常感谢3楼赐教，但需求3所需在某时间段查询某核算码，没有结果，不知为何？

3190496160

报账录入表单 - 副本.rar (27.54 KB, 下载次数: 21)

2024-1-26 10:52 上传

点击文件名下载附件

S110018

感谢春风化雨！真是及时雨！解决问题了。

S110018

不好意思，又打扰各位老师了。想学习扩展一下，按上面需求2，查询到A1公司后，如何能在sheet4表中粘贴出A1公司所在行明细呢？求教，谢谢！


补充内容 (2024-2-6 00:11):
哪位大佬可帮忙指点下呢？先鞠躬致谢！