我正在尝试使用 VBA 将标准误差函数添加到 excel 中,到目前为止我所拥有的只是标准偏差函数的变体。我在线获取了函数并对其进行了更改,因此在最后一行中将其除以总数据点的平方根。这似乎对我不起作用。
编辑:当我尝试在 Excel 电子表格上使用该函数时,无论数据集是什么,它都会显示为 0。
Function StdErr(numbers As Range) As Double
Dim i As Integer
Dim xbar As Double
Dim x As Double
xbar = WorksheetFunction.Average(numbers)
For i = 1 To numbers.Count
x = x + (numbers.Item(i).Value - xbar) ^ 2
Next i
SrdErr = (x / numbers.Count) / (Sqr(numbers.Count))
End Function