diff options
| -rw-r--r-- | outlier.vba | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/outlier.vba b/outlier.vba new file mode 100644 index 0000000..0dbfe7c --- /dev/null +++ b/outlier.vba @@ -0,0 +1,20 @@ +Option VBASupport 1 +Option Compatible +Function OUTLIER(range As Variant, value As Double) As Boolean + Dim q1 As Double + Dim q3 As Double + Dim iqr As Double + Dim max As Double + Dim min As Double + + q1 = WorksheetFunction.QUARTILE(range, 1) + q3 = WorksheetFunction.QUARTILE(range, 3) + iqr = q3 - q1 + max = iqr*1.5 + q3 + min = q1 - iqr*1.5 + If (value < min) Or (value > max) Then + OUTLIER = 1 + Else + OUTLIER = 0 + End If +End Function |