求助，领导要求统计数据，太难了，求大神！

nmgnmgyyb

在应发未发表里的D18单元格输入日期，点击查询，单元格B2显示采集数据文件对应日期表格里平均风速大于8的小时数，单元格C2显示平均风速大于8时，总功率除以理论总功率大于0.7的结果之和,在应发未发表里的F18和G18输入时间，点击按钮B2 C2就显示这个时间段之前所说的数据之和。

skyzxh

哪里有平均风速的小时数？

nmgnmgyyb

skyzxh 发表于 2018-8-7 15:54
哪里有平均风速的小时数？

数据采集的表里有时间，一个算10分钟

skyzxh

也就是统计几个大于8的（等于8不算么？），有几个，乘以10就是分钟数。。。。

cwpccna

  学海无涯,回头是岸

nmgnmgyyb

skyzxh 发表于 2018-8-7 16:10
也就是统计几个大于8的（等于8不算么？），有几个，乘以10就是分钟数。。。。

emmm。。还要总功率比理论总功率大于0.7.....就是大于8的时候总功率比理论总功率大于0.7的个数乘以10

skyzxh

nmgnmgyyb 发表于 2018-8-7 16:15
emmm。。还要总功率比理论总功率大于0.7.....就是大于8的时候总功率比理论总功率大于0.7的个数乘以10

这个为啥要乘10？你说的好像是求和？

nmgnmgyyb

skyzxh 发表于 2018-8-7 16:34
这个为啥要乘10？你说的好像是求和？

乘以10后求和就是小时数啊

不知道为什么

盖到8楼了，还没把需求说清晰，呵呵

cwpccna

1. 'http://club.excelhome.net/thread-1341555-1-1.html
   
2. Sub test()
   
3.   Dim cnn As Object, SQL As String, MyPath$, MyFile$, n As Long
   
4. '  Cells.Clear
   
5.   Set cnn = CreateObject("ADODB.Connection")
   
6.   MyPath = ThisWorkbook.Path & ""
   
7.   MyFile = Dir(MyPath & "*.xlsx")
   
8.   Do While MyFile <> ""
   
9.      If MyFile <> ThisWorkbook.Name Then
   
10.         n = n + 1
    
11.         If n = 1 Then
    
12.             cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;hdr=no';Data Source=" & MyPath & MyFile
    
13.            SQL = "SELECT * FROM [设计评审表$A17:BO17] WHERE F1 IS NOT NULL"
    
14.         Else
    
15.            SQL = SQL & " UNION ALL SELECT * FROM [Excel 12.0;HDR=NO;Database=" & MyPath & MyFile & "].[设计评审表$A17:BO17] "
    
16.         End If
    
17.      End If
    
18.     MyFile = Dir()
    
19.   Loop
    
20.   Range("A4").CopyFromRecordset cnn.Execute(SQL)
    
21.   cnn.Close
    
22.   Set cnn = Nothing
    
23. End Sub

复制代码