Excel VBA) 선택값에 따라 결과값 전달하기 CASE문

data를 입력받아 data값에 따라 결과를 전달하는 함수이다.

Function 구간(점수)

    Select Case 점수

        Case 0

            구간 = 100

        Case 1

            구간 = 50

        Case 2

            구간 = 25

        Case 3

            구간 = 12.5

        Case 4

            구간 = 6.25

        Case 5

            구간 = 3.125

        Case 점수 > 5

            구간 = 0

    End Select

End Function