[VBA] normscore functiom

## 套用在模組中

Function normscore(inde_num As Double, ref_leng As range)

X = Application.WorksheetFunction.Rank(inde_num, ref_leng, 1)

Y = Application.WorksheetFunction.Count(ref_leng) + 1

Z = Application.WorksheetFunction.NormSInv(X / Y)

normscore = Z

End Function