Monday, December 05, 2005
Excel/엑셀 VBA : 유니코드 문자열 바이트 수 구하기 함수; Unicode String Size
엑셀 비베에서, 유니코드 문자열의 바이트 수를 구하려면 LenB() 함수를 사용합니다. 영문이든 한글이든 공백이든 모든 문자를 2바이트로 계산합니다.
(엑셀에서 Alt+F11키를 눌러, 비베 에디터를 실행하고, 비베 에디터 메뉴의, "삽입 > 모듈"을 선택한 후, 다음 코드를 붙여 넣습니다.)
비베 에디터에서 F5 키를 누르거나, 엑셀에서 Alt+F8 키를 누르면 VBA 매크로가 실행됩니다.
영문 1글자는 1바이트, 한글 1글자는 2바이트로 구하기, 즉 한글 완성형 문자열 바이트 개수 구하는 법:
▶▶ Excel/엑셀 VBA] LenMbcs, LenB, 한글 완성형 문자열 바이트 수 구하기 함수; ANSI String Size
Unicode 문자(문자열)의 바이트(Byte) 수 계산 예제
(엑셀에서 Alt+F11키를 눌러, 비베 에디터를 실행하고, 비베 에디터 메뉴의, "삽입 > 모듈"을 선택한 후, 다음 코드를 붙여 넣습니다.)
비베 에디터에서 F5 키를 누르거나, 엑셀에서 Alt+F8 키를 누르면 VBA 매크로가 실행됩니다.
Sub Unicode_String_Length_Example()
e = "ABC"
h = "가나다"
s = "A 가"
' 유니코드 바이트 수 구하기
result = LenB(e)
MsgBox result & "바이트(Unicode)"
' 출력 결과: 6바이트(Unicode)
result = LenB(h)
MsgBox result & "바이트(Unicode)"
' 출력 결과: 6바이트(Unicode)
result = LenB(s)
MsgBox result & "바이트(Unicode)"
' 출력 결과: 6바이트(Unicode)
End Sub
e = "ABC"
h = "가나다"
s = "A 가"
' 유니코드 바이트 수 구하기
result = LenB(e)
MsgBox result & "바이트(Unicode)"
' 출력 결과: 6바이트(Unicode)
result = LenB(h)
MsgBox result & "바이트(Unicode)"
' 출력 결과: 6바이트(Unicode)
result = LenB(s)
MsgBox result & "바이트(Unicode)"
' 출력 결과: 6바이트(Unicode)
End Sub
영문 1글자는 1바이트, 한글 1글자는 2바이트로 구하기, 즉 한글 완성형 문자열 바이트 개수 구하는 법:
▶▶ Excel/엑셀 VBA] LenMbcs, LenB, 한글 완성형 문자열 바이트 수 구하기 함수; ANSI String Size
tag: office
엑셀 Excel | 워드 Word | VBA 매크로 | 오피스
<< Home