Excel/엑셀 VBA] 문자열 크기/길이, 글자 수/바이트 수 계산 함수; String Size Function

Sub String_Length_Example()

  e = "ABCD"
  h = "가나다라"


  '''''''''''''''''''''''''
  ' 단순히 글자 개수 구하기

  result = Len(e)
  MsgBox result & "글자"
  ' 출력 결과: 4글자


  result = Len(h)
  MsgBox result & "글자"
  ' 출력 결과: 4글자




  '''''''''''''''''''''''''
  ' 한글 완성형 바이트 수 구하기

  result = LenMbcs(e)
  MsgBox result & "바이트(ANSI)"
  ' 출력 결과: 4바이트(ANSI)


  result = LenMbcs(h)
  MsgBox result & "바이트(ANSI)"
  ' 출력 결과: 8바이트(ANSI)




  '''''''''''''''''''''''''
  ' 유니코드 바이트 수 구하기

  result = LenB(e)
  MsgBox result & "바이트(Unicode)"
  ' 출력 결과: 8바이트(Unicode)


  result = LenB(h)
  MsgBox result & "바이트(Unicode)"
  ' 출력 결과: 8바이트(Unicode)


End Sub




' 한글 완성형 문자열의 바이트 수 구하기 함수

Function LenMbcs(ByVal str As String)
  LenMbcs = LenB(StrConv(str, vbFromUnicode))
End Function