Advertisement
Guest User

Untitled

a guest
Jun 24th, 2017
393
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Sub CalcWeightedEst()
  2.     Dim i As Integer
  3.     For i = 5 To 50
  4.      Dim sum As Integer
  5.      Dim avg As Double
  6.      Dim distMeanOne As Double
  7.      Dim distMeanTwo As Double
  8.      Dim distMeanThree As Double
  9.      Dim deviation As Double
  10.      
  11.      sum = Cells(i, 2).Value + Cells(i, 3).Value + Cells(i, 4).Value
  12.      avg = sum / 3
  13.      If sum > 0 Then
  14.        distMeanOne = Abs(Cells(i, 2).Value - avg) ^ 2
  15.        distMeanTwo = Abs(Cells(i, 3).Value - avg) ^ 2
  16.        distMeanThree = Abs(Cells(i, 4).Value - avg) ^ 2
  17.        deviation = (distMeanOne + distMeanTwo + distMeanThree) / 3
  18.        deviation = Sqr(deviation)
  19.         If Cells(i, 5).Value = "Low" Then
  20.           Cells(i, 6).Value = avg
  21.         End If
  22.         If Cells(i, 5).Value = "Medium" Then
  23.           Cells(i, 6).Value = avg + (deviation * 1)
  24.         End If
  25.         If Cells(i, 5).Value = "High" Then
  26.           Cells(i, 6).Value = avg + (deviation * 2)
  27.         End If
  28.          
  29.      End If
  30.     Next i
  31. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement