Tuesday, January 23, 2007
Excel/엑셀] 16진수 10진수 변환 VBA 함수로, 십육진수/십진수를 추가 기능 없이; hexToDec decToHex
엑셀에는 16진수를 10진수로, 그리고 10진수를 16진수로 변환하는
=HEX2DEC()
=DEC2HEX()
이런 함수 2개가 있긴 있는데 기본적으로 지원되지 않고, "추가 기능" 속에 있습니다: ▶▶ [엑셀] 10진수/16진수 변환 함수, HEX2DEC / DEC2HEX - 십진수 십육진수 상호 변환 - Excel Hex Dec
그래서 불편하기에, 추가 기능이 없어도 실행되는 VBA함수를 만들면 편리합니다. 다음의
hexToDec() <- 16진수 문자열을, 10진수 숫자로 변환
decToHex() <- 10진수 숫자를, 16진수 문자열로 변환
라는 2개의 함수입니다.
(엑셀에서 Alt+F11키를 눌러, 비베 에디터를 실행하고, 비베 에디터 메뉴의, "삽입 > 모듈"을 선택한 후, 다음 코드를 붙여 넣습니다.)
이제 엑셀의 셀에서 예를 들어
=hexToDec("6EAE9")
이렇게 하면, 453353 이라는 결과가 나옵니다. 십육진수인 6EAE9 가, 십진수 453353 으로 변환된 것입니다. 반드시 16진수 파라미터를 큰따옴표로 둘러싸 주어야 합니다.
그리고
=decToHex(453353)
이렇게 하면 6EAE9 라는 결과가 나옵니다. 십진수 453353 이, 십육진수인 6EAE9 로 변환된 것입니다. 참고로, 여기서 6EAE9 는 숫자가 아닌 문자열입니다.
2진수 변환 방법: ▶▶ Excel/엑셀 VBA] 2진수 10진수 변환 함수; 이진수 십진수; Dec To Bin / Bin To Dec
16진법 2진법 10진수 상호 변환기 (온라인 버전): ▶▶ 16진수 헥사, 2진수, 10진수, 8진법 변환 계산기; Hex Calc
=HEX2DEC()
=DEC2HEX()
이런 함수 2개가 있긴 있는데 기본적으로 지원되지 않고, "추가 기능" 속에 있습니다: ▶▶ [엑셀] 10진수/16진수 변환 함수, HEX2DEC / DEC2HEX - 십진수 십육진수 상호 변환 - Excel Hex Dec
그래서 불편하기에, 추가 기능이 없어도 실행되는 VBA함수를 만들면 편리합니다. 다음의
hexToDec() <- 16진수 문자열을, 10진수 숫자로 변환
decToHex() <- 10진수 숫자를, 16진수 문자열로 변환
라는 2개의 함수입니다.
VBA로, 십육진수<->십진수 상호 변환 함수 만들기
(엑셀에서 Alt+F11키를 눌러, 비베 에디터를 실행하고, 비베 에디터 메뉴의, "삽입 > 모듈"을 선택한 후, 다음 코드를 붙여 넣습니다.)
Function hexToDec(Hex As String) As Long
hexToDec = Val("&H" & Hex)
End Function
Function decToHex(Dec As Long) As String
decToHex = Hex(Dec)
End Function
hexToDec = Val("&H" & Hex)
End Function
Function decToHex(Dec As Long) As String
decToHex = Hex(Dec)
End Function
이제 엑셀의 셀에서 예를 들어
=hexToDec("6EAE9")
이렇게 하면, 453353 이라는 결과가 나옵니다. 십육진수인 6EAE9 가, 십진수 453353 으로 변환된 것입니다. 반드시 16진수 파라미터를 큰따옴표로 둘러싸 주어야 합니다.
그리고
=decToHex(453353)
이렇게 하면 6EAE9 라는 결과가 나옵니다. 십진수 453353 이, 십육진수인 6EAE9 로 변환된 것입니다. 참고로, 여기서 6EAE9 는 숫자가 아닌 문자열입니다.
2진수 변환 방법: ▶▶ Excel/엑셀 VBA] 2진수 10진수 변환 함수; 이진수 십진수; Dec To Bin / Bin To Dec
16진법 2진법 10진수 상호 변환기 (온라인 버전): ▶▶ 16진수 헥사, 2진수, 10진수, 8진법 변환 계산기; Hex Calc
tag: office
엑셀 Excel | 워드 Word | VBA 매크로 | 오피스
<< Home