http://ocotal.iarc.uaf.edu/index.php?action=history&feed=atom&title=Excel_Macro_Cheap_Windrose 2026-05-12T19:50:46Z Revision history for this page on the wiki MediaWiki 1.34.2 http://ocotal.iarc.uaf.edu/index.php?title=Excel_Macro_Cheap_Windrose&diff=3817&oldid=prev 2019-07-17T19:38:33Z

<p>Created page with &quot;&lt;pre&gt; Option Explicit Public Sub winddirectionbinning() Dim inputcol As Integer Dim outcol As Integer Dim inputworksheetz As Integer Dim startrow As Long...&quot;</p> <p><b>New page</b></p><div>&lt;pre&gt;<br /> Option Explicit<br /> Public Sub winddirectionbinning()<br /> <br /> Dim inputcol As Integer<br /> Dim outcol As Integer<br /> Dim inputworksheetz As Integer<br /> Dim startrow As Long<br /> Dim outputdate As Boolean<br /> Dim columnincr As Integer<br /> Dim startcol As Integer<br /> Dim row As Long<br /> Dim yearz<br /> Dim monthz<br /> Dim WR(0 To 16, 0 To 11), i, j<br /> Dim summmm<br /> Dim inWScol<br /> Dim inWDcol<br /> Dim datecol As Integer<br /> Dim thiswindspeed, thiswinddirec<br /> Dim hdirection, hwindspeed<br /> Dim calm<br /> For i = 0 To 16<br /> For j = 0 To 11<br /> WR(i, j) = 0<br /> Next<br /> Next<br /> ' get current wind velocity and direction<br /> <br /> <br /> ' stuff that should be set just initially<br /> datecol = 1<br /> inputworksheetz = 1<br /> row = 5<br /> <br /> inputcol = startcol<br /> inWScol = 2<br /> inWDcol = 3<br /> outcol = 10<br /> outputdate = True<br /> summmm = 0<br /> <br /> Do While Worksheets(inputworksheetz).Cells(row, datecol).Value &lt;&gt; &quot;&quot;<br /> monthz = Format(Worksheets(inputworksheetz).Cells(row, datecol).Value, &quot;mm&quot;)<br /> thiswinddirec = Worksheets(1).Cells(row, inWDcol).Value<br /> thiswindspeed = Worksheets(1).Cells(row, inWScol).Value<br /> If monthz &gt;= 6 And monthz &lt;= 8 Then<br /> If Abs(thiswinddirec) &lt; 361 And Abs(thiswindspeed) &lt; 50 Then ' the units here are degrees<br /> Select Case thiswinddirec<br /> Case 0 To 22.5 ' 0 to 22.5 degrees<br /> hdirection = 1<br /> Case 22.5 To 45 ' 22.5 to 45 degrees<br /> hdirection = 2<br /> Case 45 To 67.5 ' 45 to 67.5 degrees<br /> hdirection = 3<br /> Case 67.5 To 90 ' etc.<br /> hdirection = 4<br /> Case 90 To 112.5<br /> hdirection = 5<br /> Case 112.5 To 135<br /> hdirection = 6<br /> Case 135 To 157.5<br /> hdirection = 7<br /> Case 157.5 To 180<br /> hdirection = 8<br /> Case 180 To 202.5<br /> hdirection = 9<br /> Case 202.5 To 225<br /> hdirection = 10<br /> Case 225 To 247.5<br /> hdirection = 11<br /> Case 247.5 To 270<br /> hdirection = 12<br /> Case 270 To 292.5<br /> hdirection = 13<br /> Case 292.5 To 315<br /> hdirection = 14<br /> Case 315 To 337.5<br /> hdirection = 15<br /> Case 337.5 To 360<br /> hdirection = 16<br /> End Select<br /> Select Case thiswindspeed<br /> Case 0 To 0.15 ' 0 to 0.6 meters / second<br /> hwindspeed = 0<br /> Case 0.15 To 2.7<br /> hwindspeed = 1<br /> Case 2.7 To 3.6<br /> hwindspeed = 2<br /> Case 3.6 To 7.2<br /> hwindspeed = 3<br /> Case 7.2 To 8.9<br /> hwindspeed = 4<br /> Case 8.9 To 12.5<br /> hwindspeed = 5<br /> Case 12.5 To 14.5<br /> hwindspeed = 6<br /> Case 14.5 To 20<br /> hwindspeed = 7<br /> Case 20 To 22<br /> hwindspeed = 8<br /> Case 22 To 28<br /> hwindspeed = 9<br /> Case 28 To 31<br /> hwindspeed = 10<br /> Case 31 To 37<br /> hwindspeed = 11<br /> Case Is &gt;= 37<br /> hwindspeed = 9<br /> End Select<br /> If hwindspeed = 0 Then<br /> calm = calm + 1<br /> End If<br /> WR(hdirection, hwindspeed) = WR(hdirection, hwindspeed) + 1<br /> summmm = summmm + 1<br /> End If<br /> <br /> End If<br /> row = row + 1<br /> Loop<br /> For i = 1 To 16<br /> For j = 1 To 11<br /> Worksheets(1).Cells(5 + i, outcol + j).Value = WR(i, j) / summmm * 100<br /> Next<br /> Next<br /> Worksheets(1).Cells(22, outcol).Value = calm / summmm * 100<br /> End Sub<br /> <br /> &lt;/pre&gt;</div>

172.18.0.1