[已解决]问题：如何汇总出[数据DATA]表格中的明细数据！

N7120

问题：如何汇总出[数据DATA]表格中的明细数据！
问题：如何汇总出[数据DATA]表格中的明细数据！.rar (20.46 KB, 下载次数: 20)

2014-3-31 14:15 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

dsmch

2014-3-31 16:07

不喜欢用窗体，你自己试着修改一下

跳转到最佳答案楼层

tgydslr

占座等着学习

dsmch

请用附件模拟一下汇总结果，方便测试代码。

N7120

dsmch 发表于 2014-3-31 15:22
请用附件模拟一下汇总结果，方便测试代码。

如时间日期选择3月6日至5月1日查询，那么在窗体中，就只显示这期间的明细内容，也就是图片中红色部分。

那么的帅

N7120 发表于 2014-3-31 15:30
如时间日期选择3月6日至5月1日查询，那么在窗体中，就只显示这期间的明细内容，也就是图片中红色部分。

窗体 中的 ，数据2  数据3 数据6  有什么用？

dsmch

1. Sub Macro1()
   
2. Dim wb As Workbook, date1#, date2#, arr, i&, s&, j%
   
3. Application.ScreenUpdating = False
   
4. Range("a4").CurrentRegion.ClearContents
   
5. date1 = Range("c1"): date2 = Range("c2"): s = 1
   
6. Set wb = GetObject(ThisWorkbook.Path & "\数据DATA.xls")
   
7. arr = wb.Sheets(1).Range("b3").CurrentRegion
   
8. wb.Close 0
   
9. For i = 2 To UBound(arr)
   
10.     If arr(i, 1) >= date1 And arr(i, 1) <= date2 Then
    
11.         s = s + 1
    
12.         For j = 1 To UBound(arr, 2)
    
13.             arr(s, j) = arr(i, j)
    
14.         Next
    
15.     End If
    
16. Next
    
17. If s > 1 Then Range("a4").Resize(s, UBound(arr, 2)) = arr
    
18. Application.ScreenUpdating = True
    
19. End Sub
    

复制代码

dsmch

不喜欢用窗体，你自己试着修改一下

N7120

那么的帅 发表于 2014-3-31 16:05
窗体 中的 ，数据2  数据3 数据6  有什么用？

帅帅老师，那个是做查询条件的！