From f2dbf774ea818b6cf65ba41cfb044626b1b2e2bc Mon Sep 17 00:00:00 2001 From: kaa Date: Thu, 26 Jun 2025 03:04:30 -0700 Subject: outlier --- outlier.vba | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100644 outlier.vba 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 -- cgit v1.2.3