mwultong Blog ... 프로그래밍 / 계산기

컴퓨터 엑셀 워드 포토샵 구글어스 WINDOWS JAVASCRIPT JAVA C++

 
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개의 함수입니다.


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("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 매크로 | 오피스

0 Comments:

<< Home RSS 2.0 feed

구글 Google 에서 제공하는 무료 블로그 서비스인 블로거 Blogger 의 인터넷 주소는 www.blogger.com 입니다. Blogger 에 블로그를 만들면, blogspot.com 이라는 주소에 블로그가 생성됩니다.
블로그를 직접 방문하지 않고도 최신 게시물을 구독하려면 RSS 2.0 feed 주소를 리더기에 등록하시면 됩니다.
Previous Posts
Monthly Archives
Top