Standard Deviation with a macro tool
 

These macros produce numbers - whether they are the right onesor not
haven't a clue <<grin.


STANDARD DEVIATION (Worksheet Function STDEV)
Select your (maximum 30) numbers and run this macro :-
'----------------------------------
Sub Standard_Deviation()
'- maximum 30 numbers Excel limit
STD = Application.WorksheetFunction.StDev(Selection)
MsgBox (STD)
End Sub
'=======================================
STANDARD ERROR (worksheet function STEYX)
Assumes you have selected 2 equal length columns of numbers.
'----------------------------------
Option Base 1
Sub Standard_Error()
Dim MyArray1() ' dependant points 1st.column
Dim MyArray2() ' independant points 2nd. column
Dim RowCount As Long
'--------------------
RowCount = Selection.Rows.Count
ReDim MyArray1(RowCount)
ReDim MyArray2(RowCount)
'-----------------------------
For c = 1 To RowCount
MyArray1(c) = Selection.Cells(c, 1).Value
MyArray2(c) = Selection.Cells(c, 2).Value
Next
SE = Application.WorksheetFunction.StEyx(MyArray1, MyArray2)
MsgBox (SE)
End Sub
'------------------------------------

--
Message posted from http://www.ExcelForum.com