[땡큐엑셀vba & 엑셀매크로] 점수로 변환하는 사용자정의함수
엑셀vba예제2020. 7. 14. 00:00
[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예제' 카테고리의 다른 글
[땡큐엑셀vba & 엑셀매크로] 다중조건의 합 (0) | 2020.07.16 |
---|---|
[땡큐엑셀vba & 엑셀매크로] 한글을 제외하고 모든 문자를 삭제하는 매크로가 알고 싶습니다. (0) | 2020.07.15 |
[땡큐엑셀vba & 엑셀매크로] 사용자 정의 함수로 글자수를 파악하고자 합니다. (공백 포함, 공백 비포함으로 구분) (0) | 2020.07.13 |
[땡큐엑셀vba & 엑셀매크로] Sheet1의 코드번호와 일치하는 값을 Sheet2에서 찾고 해당 바탕색으로 칠하기 (0) | 2020.07.12 |
[땡큐엑셀vba & 엑셀매크로] 선택영역의 행의 합, 열의 합 (0) | 2020.07.11 |