http://ocotal.iarc.uaf.edu/index.php?action=history&feed=atom&title=Excel_Macro_WindCheck
Excel Macro WindCheck - Revision history
2026-05-12T20:51:49Z
Revision history for this page on the wiki
MediaWiki 1.34.2
http://ocotal.iarc.uaf.edu/index.php?title=Excel_Macro_WindCheck&diff=3819&oldid=prev
172.18.0.1: Created page with "<pre> Option Explicit Private Sub windcheck_stddev() Dim inputrow As Long Dim outputrow As Long Dim datecol As Integer Dim outcol As Integer Dim stddevwd..."
2019-07-17T19:39:19Z
<p>Created page with "<pre> Option Explicit Private Sub windcheck_stddev() Dim inputrow As Long Dim outputrow As Long Dim datecol As Integer Dim outcol As Integer Dim stddevwd..."</p>
<p><b>New page</b></p><div><pre><br />
Option Explicit<br />
<br />
Private Sub windcheck_stddev()<br />
Dim inputrow As Long<br />
Dim outputrow As Long<br />
Dim datecol As Integer<br />
Dim outcol As Integer<br />
Dim stddevwd<br />
inputrow = 5<br />
outputrow = 5<br />
datecol = 1<br />
outcol = 4<br />
Do While Worksheets(1).Cells(inputrow, datecol).Value <> ""<br />
stddevwd = Worksheets(1).Cells(inputrow, datecol + 1).Value<br />
If stddevwd < 2 Then<br />
Worksheets(1).Cells(outputrow, outcol).Value = Worksheets(1).Cells(inputrow, datecol).Value<br />
Worksheets(1).Cells(outputrow, outcol + 1).Value = 6999<br />
outputrow = outputrow + 1<br />
End If<br />
inputrow = inputrow + 1<br />
Loop<br />
<br />
End Sub<br />
<br />
Private Sub windcheck_WD_Skookum()<br />
Dim inputrow As Long<br />
Dim outputrow As Long<br />
Dim datecol As Integer<br />
Dim outcol As Integer<br />
Dim wind_prev1<br />
Dim wind_prev2<br />
Dim wind_cur<br />
Dim monthz<br />
inputrow = 7<br />
outputrow = 5<br />
datecol = 1<br />
outcol = 4<br />
<br />
Do While Worksheets(1).Cells(inputrow, datecol).Value <> ""<br />
monthz = Format(Worksheets(1).Cells(inputrow, datecol).Value, "mm")<br />
If monthz <= 4 Or monthz >= 10 Then<br />
wind_prev2 = Worksheets(1).Cells(inputrow - 2, datecol + 1).Value<br />
wind_prev1 = Worksheets(1).Cells(inputrow - 1, datecol + 1).Value<br />
wind_cur = Worksheets(1).Cells(inputrow, datecol + 1).Value<br />
<br />
If wind_cur = wind_prev1 Then<br />
' date<br />
Worksheets(1).Cells(outputrow, outcol).Value = Worksheets(1).Cells(inputrow - 2, datecol).Value<br />
' nan<br />
Worksheets(1).Cells(outputrow, outcol + 1).Value = 6999<br />
outputrow = outputrow + 1<br />
End If<br />
End If<br />
inputrow = inputrow + 1<br />
Loop<br />
<br />
End Sub<br />
<br />
Private Sub windcheck_WSSSS_Skookum()<br />
Dim inputrow As Long<br />
Dim outputrow As Long<br />
Dim datecol As Integer<br />
Dim outcol As Integer<br />
Dim wind_prev1<br />
Dim wind_prev2<br />
Dim wind_cur<br />
Dim monthz<br />
inputrow = 7<br />
outputrow = 5<br />
datecol = 1<br />
outcol = 4<br />
<br />
Do While Worksheets(1).Cells(inputrow, datecol).Value <> ""<br />
monthz = Format(Worksheets(1).Cells(inputrow, datecol).Value, "mm")<br />
If monthz <= 4 Or monthz >= 10 Then<br />
wind_prev1 = Worksheets(1).Cells(inputrow - 1, datecol + 1).Value<br />
wind_cur = Worksheets(1).Cells(inputrow, datecol + 1).Value<br />
<br />
If wind_cur < 0.4 Then<br />
' date<br />
Worksheets(1).Cells(outputrow, outcol).Value = Worksheets(1).Cells(inputrow, datecol).Value<br />
' nan<br />
Worksheets(1).Cells(outputrow, outcol + 1).Value = 6999<br />
outputrow = outputrow + 1<br />
End If<br />
End If<br />
inputrow = inputrow + 1<br />
Loop<br />
<br />
End Sub<br />
<br />
<br />
</pre></div>
172.18.0.1