[已解决]急，在线等，请高手指教 如何 用VBA 实现以下分类汇总

yangxmqj

各位高手，
    本菜鸟初接触VBA ，正在学习中，现碰到一个问题，请高手不吝赐教
表格如下：
   客户号        日期        金额　
000545        2011-7-1        123.00
015751        2010-5-2        12.00
158585        2011-7-2        12582.00
现在想用两个文本框 输入开始日期及结束日期 再用一个文本框 输入金额 然后查询出以下结果：在开始及结束日期范围内，对客户号进行分类后金额汇总 然后将汇总金额大于文本框中所输入的金额的记录逐条放在一张表中。要如何实现呢？谢谢！详细见附件（附件中SHEET1为数据，SHEET为结果）

最佳答案

月排行榜 / 总排行榜

天马

2011-6-21 23:16

回复 yangxmqj 的帖子

Book1.rar (15.46 KB, 下载次数: 94)

2011-6-21 23:16 上传

点击文件名下载附件

跳转到最佳答案楼层

雪日骄阳

回复 yangxmqj 的帖子

框框不用那么多嘛。b3放的是开始日期，b4放的是结束日期，b5放的是金额：
Sub hz()
Dim sjy(), jg()
Dim sdate As Date, edate As Date, je As Double
Dim d As Object, r1 As Integer, r2 As Integer
Set d = CreateObject("scripting.Dictionary")
With Sheet1
  r1 = .Cells(.Rows.Count, 1).End(xlUp).Row
  sjy = .Range("a2:c" & r1).Value
  ReDim jg(1 To r1, 1 To 3)
End With
With Sheet2
   sdate = .[b3].Value
   edate = .[b4].Value
   je = .[b5].Value
   For r1 = 1 To UBound(sjy)
      If sjy(r1, 2) >= sdate And sjy(r1, 2) <= edate Then
         If Not d.Exists(sjy(r1, 1)) Then d(sjy(r1, 1)) = d.Count + 1
         jg(d(sjy(r1, 1)), 1) = sjy(r1, 1)
         jg(d(sjy(r1, 1)), 2) = sjy(r1, 2)
         jg(d(sjy(r1, 1)), 3) = sjy(r1, 3) + jg(d(sjy(r1, 1)), 3)
      End If
   Next
   For r1 = 1 To d.Count
      If jg(r1, 3) >= je Then
         r2 = r2 + 1
         jg(r2, 1) = jg(r1, 1)
         jg(r2, 2) = jg(r1, 2)
         jg(r2, 3) = jg(r1, 3)
      End If
   Next
   .Rows("10:65536").ClearContents
   .[b10].Resize(r2, 3) = jg
End With
End Sub

重复发贴看遭罚[em07]

天马

回复 yangxmqj 的帖子

Book1.rar (15.46 KB, 下载次数: 94)

2011-6-21 23:16 上传

点击文件名下载附件

yangxmqj

谢谢楼上两位的回答，我觉得3楼的答案更简洁点，就把最佳给了3楼。再次对楼上两位的回答表示衷心的感谢！！！

yangxmqj

不好意思,我没看清,应该是雪日骄阳的答案才是正确的,我弄错了,天马的答案没有对金额进行汇总,而且我表格中所需要的结果也设计得有问题,在结果区不需要设置日期栏的........

雪日骄阳