对另一工作表数据提取的问题

excelkill

输入日期，提取另一工作表内指定日期内的数据，麻烦那位老师帮助写一下代码，网上搜了，没找到同类的，有类似的不会修改，谢谢了。

dragonthree

这就是最基本的循环加IF语句

feilanga

....................

limonet

关键字：where

limonet

Sub limonet()
    Dim Cn As Object, StrSQL$
    Set Cn = CreateObject("Adodb.Connection")
    Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
    StrSQL = "Select '=row()-3',窗口,叫号号码,业务事项,事项类别,备注 From [工作量统计表$A2:O] Where Int(开始时间)=#" & [e2] & "#"
    Range("A4").CopyFromRecordset Cn.Execute(StrSQL)
End Sub

excelkill

feilanga 发表于 2024-1-29 13:44
....................

谢谢这位老师：功能都实现了，还有个功能麻烦看看能不能帮助再完善以下，就是统计后的数据能直接画上表格的线吗，每次统计的时候能根据统计的数据多少来显示表格线

feilanga

...............加边框

excelkill

feilanga 发表于 2024-1-29 14:42
...............加边框

非常感谢，你好老师，能帮助再给完善一项功能吗？就是在有数据的后面加上一行汇总数据，

excelkill

feilanga 发表于 2024-1-29 14:42
...............加边框

你好老师：能麻烦你再帮助完善一项功能吗？就是在数据的最后一行添加一行汇总数据，这行内容根据数据行的多少自动调整。增加的内容为   业务事项统计：A类6个、B类2个、C类1个。共计：9个   
                                       给你添麻烦了，谢谢
序号        窗口        叫号号码        业务事项        事项类别        备注
1        9                        A        
2                                A        
3                                A        
4                                A        
5                        开户        A        
6                        重置        B        
7                                A        
8                        登记信息变更        B        
9                        业务咨询        C        
                                       
业务事项统计：A类6个、B类2个、C类1个。共计：9个                                       
                                       
                                       
        
                                       
                                       

ykcbf1100

参与一下。。。