ML089

FN = Arr.Count

     For x = 1 To FN
        ReDim Crr(x)
        Crr(x) = Arr(x) - Brr(x)
     Next

ML089

3#¤£¹ï REDIM ¤£¯à¦b°j°é¸Ì

    FN = Arr.Count

     ReDim Crr(x)
    For x = 1 To FN
        Crr(x) = Arr(x) - Brr(x)
     Next

ML089

Function TrkErr(Arr As Range, Brr As Range, FN As Integer) As Double

    Dim avg As Single, SumSq As Single    ', Crr As Range
    Dim i As Range
    'FN ¬Oloopªº¦¸¼Æ ¤]¬O¾ã­Ó¸ê®Æªºrows -1 ;
    '¦]¬°§Ú¨S¦³§ó¦nªº¤èªk¥i¥Hª½±µ¦bfunction¸Ì¨D ©Ò¥H§ï¬°input
    '¦pªG¦³§ó¦nªº¤èªk¤]½Ð§iª¾  ÁÂÁ­ò

    FN = Arr.Count
    ReDim Crr(FN)
    For x = 1 To Arr.Count
        Crr(x) = Arr(x) - Brr(x)
    Next

    ' Brr¬O©T©wªº  Arr¬O¤£¦Pªº¤½¥q

    avg = WorksheetFunction.Average(Crr)


    For Each i In Arr
        SumSq = SumSq + (i - avg) ^ 2
    Next i

    FN = Arr.Count
    TrkErr = Sqr(SumSq / (FN - 1))

End Function

ML089

³o¬O¥t¤@ºØ½m²ß¼gªk¡A½Ð°Ñ¦Ò

Function TrkErr(Arr As Range, Brr As Range, FN As Integer) As Double
    Dim avg As Single, SumSq As Single
    FN = Arr.Count
    Crr = Application.Evaluate(Arr.Address & "-" & Brr.Address)
    avg = WorksheetFunction.Average(Crr)

    For Each i In Arr
        SumSq = SumSq + (i - avg) ^ 2
    Next i
    TrkErr = Sqr(SumSq / (FN - 1))
End Function

ML089

¦^´_ 8# ldneye


    »yªk¨S¦³¿ù»~
À³¸Ó¬O k ¨S¦³­È©Î¬°0©Ò­P¡A½Ð³]¤¤Â_ÂI¤Î«öF8³v±ø¬d¬Ý k ªºÅܤÆ