作者：绿色风
分类：
时间：2022-08-18
浏览：105
楼主
yjzstar |
Q:如何求解滚动N小时的最大降水量问题，如现有1-5个月每个小时的降雨量数据，如何对这5个月的最大24小时降雨量（24小时不按天来计算，而是按照每个小时来滚动计算）进行求解？
A:运用较为简明的FOR循环语句的嵌套实现滚动N小时降水量最大值的求解！- Sub xx()
- Dim i As Integer, n As Double, n1 As Double
- Dim x As Integer, j As Integer, i1 As Integer
- x = Application.InputBox("请输入需要求的小时数：", "小时数", , , , , , 1)
- For i = 3 To Cells(Rows.Count, 1).End(xlUp).Row
- For j = 0 To x - 1
- n = Cells(i + j, 2) + n
- Next
- If n > n1 Then
- n1 = n
- i1 = i
- End If
- n = 0
- Next
- MsgBox x & "小时最大降雨量为：" & n1
- Range("A:B").Interior.ColorIndex = xlColorIndexNone
- Range("A" & i1 & ":B" & i1 + x - 1).Interior.ColorIndex = 18
- Application.Goto reference:=Range("A" & i1 & ":B" & i1 + x - 1), scroll:=True
- End Sub
变量具体说明：
i为最外层的循环，值为数据开始计算行到最后有数据的行；
j为内层嵌套，主要实现对指定的N小时的计算，如计算24小时的最大降水量，者j循环24次，分别取值为0至23；
n记录每个滚动24小时的降水量；
n1也是降水量的存储变量，但其存储的是最大降水量的值，也就是求解值，它的位置在第二个循环语句之外，即每次与n比较，取两个中的最大值；
i1存储的则是n1的起始行，即最大24小时降水的开始时间。
两个FOR语句的嵌套最终实现了滚动的计算！
本方法思路较为简单，清晰明了，易于初学者理解及学习！
该实例也可以运用到其他类似的问题！
 降雨数据.rar
|
2楼
liwei20062010 |
好的 学习下 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一