outlierHEADmaster

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