请选择 进入手机版 | 继续访问电脑版
爱气象,爱气象家园! 

气象家园

 找回密码
 立即注册

QQ登录

只需一步,快速开始

新浪微博登陆

只需一步, 快速开始

搜索
查看: 3621|回复: 0

一个风向频率统计的宏代码

[复制链接]

新浪微博达人勋

发表于 2021-3-1 14:01:02 | 显示全部楼层 |阅读模式

登录后查看更多精彩内容~

您需要 登录 才可以下载或查看,没有帐号?立即注册 新浪微博登陆

x
Sub 风向风速()
Dim A(16, 7) As Integer
Dim I, J, X As Integer
X = Range("C1").End(xlDown).Row
For I = 2 To 17
For J = 2 To X
   If Cells(I, 6) = Cells(J, 4) Then
       If Cells(J, 3) < 30 Then
           A(I - 2, 0) = A(I - 2, 0) + 1
       ElseIf Cells(J, 3) < 65 Then
           A(I - 2, 1) = A(I - 2, 1) + 1
       ElseIf Cells(J, 3) < 100 Then
           A(I - 2, 2) = A(I - 2, 2) + 1
       ElseIf Cells(J, 3) < 130 Then
           A(I - 2, 3) = A(I - 2, 3) + 1
      ElseIf Cells(J, 3) < 150 Then
           A(I - 2, 4) = A(I - 2, 4) +1
       ElseIf Cells(J, 3) < 180 Then
           A(I - 2, 5) = A(I - 2, 5) + 1
        ElseIf Cells(J, 3) >= 180 Then
           A(I - 2, 6) = A(I - 2, 6) + 1
       End If
   End If
Next J
Next I
For I = 2 To 17
   Cells(I, 7) = A(I - 2, 0)
   Cells(I, 8) = A(I - 2, 1)
   Cells(I, 9) = A(I - 2, 2)

Cells(I, 10) =A(I - 2, 3)

Cells(I, 11) =A(I - 2, 4)

Cells(I, 12) =A(I - 2, 5)

Cells(I, 13) =A(I - 2, 6)

Next I
End Sub


统计多风向的频率的宏

统计多风向的频率的宏
密码修改失败请联系微信:mofangbao
您需要登录后才可以回帖 登录 | 立即注册 新浪微博登陆

本版积分规则

Copyright ©2011-2014 bbs.06climate.com All Rights Reserved.  Powered by Discuz! (京ICP-10201084)

本站信息均由会员发表,不代表气象家园立场,禁止在本站发表与国家法律相抵触言论

快速回复 返回顶部 返回列表