특정구간 제외하고 석차 계산하기

팁&서식

특정구간 제외하고 석차 계산하기

1e5589569c160f8fee05a1bc200a0892_1594212788_5263.png

뭔가 기준점이 필요해서  항목에  "합계" 라고 적힌줄은 석차 계산에서 제외하는 함수....


이건 뭐.... 엑셀 기능보다는 


간단한 석차계산 알고리즘만 알고 있으면 누구나 가능한거,,,,
 


Function Krank(a, b As Range, c As Range, d, Optional order As Boolean = True)

Dim su

su = 1


For i = 1 To b.Count


   If c(i).Value = d And c(i).Row = a.Row Then

     Krank = "XXXXX"

     Exit Function

   End If

   If c(i).Value <> d Then

      If order = True Then

       If a < b(i).Value Then

          su = su + 1

        End If

       Else

       If a > b(i).Value Then

          su = su + 1

        End If

       End If

    End If

Next

Krank = su

End Function


Comments

Category
State
  • 현재 접속자 4 명
  • 오늘 방문자 83 명
  • 어제 방문자 111 명
  • 최대 방문자 491 명
  • 전체 방문자 378,395 명
  • 전체 게시물 2,708 개
  • 전체 댓글수 105 개
  • 전체 회원수 113 명
Facebook Twitter GooglePlus KakaoStory NaverBand