나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내
작성자:  

 황기성 (latinum)

추천:  2
파일:     조회:  3461
제목:   [RE]midb()함수에서...황기성님 파일 첨부했습니다.
　 　 　
　 첨부파일을 보면 그냥 midb()함수 적용한거 하고
매크로에서 midb()함수 적용한 2가지가 경우가 있습니다.
왜 차이가 나는지 모르겠습니다.
.....답변 부탁드립니다.
수고하세요.



==============[대롱이님 글에 대한 답변입니다]==============
안녕하세요? 대롱이 님!

VBA 도움말을 자세히 읽어보세요...

Sub midb함수적용()
Dim a As String
Dim b As String

a = Cells(2, 1).Value
b = MidB(a, 1, 20)
Cells(2, 3).Value = b
Cells(2, 4).Value = MidMbcs(a, 1, 20)

End Sub

Function MidMbcs(ByVal str As String, start, length)
    MidMbcs = StrConv(MidB(StrConv(str, vbFromUnicode), start, length), vbUnicode)
End Function

그럼...행운이 있으시길...! 		　
[불량 게시물 신고]  
대롱이황기성님 정말 감사합니다.
좋은 하루 되세요.		07-08 (11:17)
ⓧ삭제 ■신고
 　  　  　
  

작성일 : 2003-07-08(11:04)
최종수정일 : 2003-07-08(11:04)
　


 ◎ 관련글
  제 목   작성자   날짜
midb()함수에서...황기성님 파일 첨부했습니다. 대롱이 2003-07-08
◎ [RE]midb()함수에서...황기성님 파일 첨부했습니다. 황기성 2003-07-08