땡큐엑셀vba & 엑셀매크로

 

 

사용자 정의함수(땡큐점수로)를 사용하여 점수로 변환

 

 

[module]

'Module소스
'
'http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=277604236

'백분율에 해당하는 점수로 변환하는 사용자 정의 함수
'예를 들어 12%이면 10점
'          10%이면 10점
'           7%이면 8점
'         0.02%이면 3점


'
'source by 땡큐엑셀vba & 엑셀매크로
'
'case A to B를 사용하면 쉽게 점수로 변환할수 있습니다.

Function 땡큐점수로(rng As Range)

    'select case문을 사용하여 해당범위의 점수로 변환
    'case A To B  : A부터 B사이일 경우
    Select Case rng
        Case 0.00001 To 0.0000999 '0.001%이상 ~ 0.01%미만
            땡큐점수로 = 2
            
        Case 0.0001 To 0.0004999 '0.01%이상 ~ 0.05%미만
            땡큐점수로 = 3
            
        Case 0.0005 To 0.0019999 '0.05%이상 ~ 0.02%미만
            땡큐점수로 = 4
            
        Case 0.002 To 0.0099999  '0.02%이상 ~ 1%미만
            땡큐점수로 = 5
            
        Case 0.01 To 0.0199999 '1%이상 ~ 2%미만
            땡큐점수로 = 6
            
        Case 0.02 To 0.0499999 '2%이상 ~ 5%미만
            땡큐점수로 = 7
             
        Case 0.05 To 0.0999999 '5%이상 ~ 10%미만
            땡큐점수로 = 8
            
        Case 0.1 To 100  '10%이상
            땡큐점수로 = 10
    
        Case Else '기타
            땡큐점수로 = 1
    End Select
    

     MsgBox "완료되었습니다", vbInformation, "땡큐엑셀vba & 엑셀매크로"


End Function

 

 

점수로변환-사용자정의함수-땡큐엑셀vba.xlsm
0.08MB