공지 |
공지
[공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요..
|
아별 |
2015-04-23 |
51511 |
셀서식(표시형식) 아별님 다시 질문드려요,
[2]
|
엑셀일반 데이터 유효성 검사질문입니다.
[4]
|
엑셀탭에 대한 질문입니다.
[3]
|
날짜/시간 수식 엑셀질문입니다
[2]
|
엑셀수식 직급, 차수별 교육일정을 자동으로 만드는 방법을 알고 싶네요
[5]
|
안녕하세요^^ 아별님 책은 언제쯤 볼 수 있을까요?
[3]
|
버젼이 만료 되었네요.ㅡㅡ
[1]
|
VBA 셀병합 효과
[2]
|
엑셀수식 어떤 함수를 써야할 지 모르겠어요, 도와주세요!
[1]
|
VBA 빠른실행도구모음 외
[2]
|
피벗테이블 기능
[4]
|
엑셀수식 데이터 통합에 대한 질문 드려요ㅜㅜ
[4]
|
엑셀수식 안녕하세요. 아별님~
[4]
|
셀서식(표시형식) 아별님 복사관련해서 문의 사항이 있습니다
[7]
|
안녕하세요?
[1]
|
VBA 개체와 컬렉션
[2]
|
엑셀일반 아별님 큰일 났습니다.ㅠㅠ
[1]
|
엑셀일반 안녕하세요 아별님 질문 드립니다
[2]
|
엑셀일반 아별님! 안녕하세요
[1]
|
갑자기 아별 단축키가 안되네요.ㅡㅡ;;
[2]
|
엑셀의 기본기능으로 해결하자면.. 미친짓이구요..
사용자 정의 함수를 만들어서 사용하시는게 좋을 것 같습니다.
사용자 정의함수라함은.. 엑셀의 VBA를 이용해서 사용자가 함수를 정의해서 사용하는 것입니다.
첨부파일을 참고하시기 바랍니다.
abyul_20091230_removeKorean.xls
첨부파일에서는 한글제외()라는 함수를 이용했습니다.
한글제외()라는 함수는 아래의 코드로 정의되었구요.
Option Explicit
Function 한글제외(strData As String)
Dim i As Integer
Dim intLen As Integer
Dim strX As String
Dim strTemp As String
intLen = Len(strData)
For i = 1 To intLen
strX = Mid$(strData, i, 1)
Select Case strX
Case "ㄱ" To "ㅎ", "가" To "힣", " "
Case Else
strTemp = strTemp & strX
End Select
Next i
한글제외 = Application.WorksheetFunction.Trim(strTemp)
End Function