0

エクセルで、絶対値で並べた時の順位を求めようとしています。以下のマクロを製作したのですが、上手く行きません。どこが間違っているのでしょうか？Public Function TEST5(xr As Range) Dim n As Integer, d() As Double, i As Integer, j As Integer, p() As Integer, q() As Integer, r() As Integer n = xr.Rows.Count ReDim d(n, 2), p(n), q(n), r(n) For i = 1 To n d(i, 1) = xr(i) If d(i, 1) < 0 Then d(i, 2) = -1 * d(i, 1) ElseIf d(i, 1) > 0 Then d(i, 2) = d(i, 1) Else d(i, 2) = 0 End If Next i For i = 1 To n For j = 1 To n If d(i, 2) > d(j, 2) Then p(i) = p(i) + 1 ElseIf d(i, 2) < d(j, 2) Then q(i) = q(i) + 1 ElseIf d(i, 2) = d(j, 2) Then r(i) = r(i) + 1 End If Next j Next i TEST5 = r(5)End Function000112の時は上手く行くのですが、0001-12になると、５番目の同順位の数が１になってしまいます。どうも正負が別々に比較されているようですが、対象となるｄ（4,2）もｄ（5,2）も共に0.1と出ます。よろしくお願いします。

質問者が選んだベストソリューション

Yahoo!知恵袋 5675日前