## 套用在模組中
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