VBA符合多条件的筛选，求和!好难啊，求帮忙

SLF19860429

  D1的日期说明：
例如根据2016/4/15  8:00:00则会自动计算出2016/4/15  8:00:00至2016/4/15  20:00:00的每小时的产量
例如根据2016/4/15  20:00:00则会自动计算出2016/4/15    20:00:00至2016/4/16  8:00:00的每小时的产量

    

  如何用VBA实现根据B1的数据和D1内的时间把对于数据筛选出来放入到SHEET3中      
  如何用VBA实现根据B1的数据和D1内的时间来计算出每个小时产量并生成柱形图      
  设置红色的标准线如右图所示一样，这里只是做了个样子。          
  这样就可以看到每个小时的生产量有没有达到要求            
  刚接触VBA。工作中需要用到，请老师们帮忙写代码，谢谢
                  

excelvlookup

sub aa()
rw=sheets("Raw Data").cells(rows.count,1).end(3).row
a=sheets("Hourly Move").range("b1")
b=sheets("Hourly Move").range("d1")
n=1
for i=2 to rw
c=sheets("Raw Data").cells(i,11)
d=datediff("h",b,c)
if  sheets("Raw Data").cells(i,1)=a and  d<=8 and d>=0 then
n=n+1
for j=1 to 17
sheets("Sheet3").cells(n,j)=sheets("Raw Data").cells(i,j)
next
end if
next
end sub
没测试哈

excelvlookup

把d<=8改为d<=12

SLF19860429

老师们，这个用字典法怎么写

SLF19860429

excelvlookup 发表于 2018-8-19 22:51
把d

老师，这样能生成图形吗

专搞excel

替楼主顶起

SLF19860429

专搞excel 发表于 2018-8-20 09:20
替楼主顶起

谢谢，请高手来帮帮忙

ione_fox

1. Sub test()
   
2. Dim OP, ST As Date, Ar, Br, I&, J&, K&, Cr
   
3. Sheet3.Cells.ClearContents
   
4. OP = Sheet2.Range("b1"): ST = Sheet2.Range("D1")
   
5. Ar = Sheet1.Range("a1").CurrentRegion
   
6. ReDim Br(1 To UBound(Ar), 1 To UBound(Ar, 2))
   
7. For I = 2 To UBound(Ar)
   
8.     If Ar(I, 1) = OP Then
   
9.         If Ar(I, 11) >= ST And Ar(I, 13) <= (ST + TimeValue("08:00:00")) Then
   
10.             K = K + 1
    
11.                 For J = 1 To UBound(Ar, 2)
    
12.                     Br(K, J) = Ar(I, J)
    
13.                 Next
    
14.         End If
    
15.     End If
    
16. Next
    
17. Cr = Sheet1.Range("a1:q1")
    
18. Sheet3.Range("a1").Resize(1, 17) = Cr
    
19. Sheet3.Range("a2").Resize(K, UBound(Ar, 2)) = Br
    
20. End Sub

复制代码

ione_fox

后面部分现有数据无法操作  请模拟出来关联性

SLF19860429

ione_fox 发表于 2018-8-20 10:45
后面部分现有数据无法操作  请模拟出来关联性

不好意思老师，后面数据是多余的忘记删除。