공지 |
공지
[공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요..
|
아별 |
2015-04-23 |
86356 |
엑셀수식 sumproduct 관련 질문이 있습니다.
[2]
|
차트 엑셀에서 라인 차트 질문입니다.
[2]
|
엑셀수식 셀에 있는 주소에서 국가만 남기고 지우는 방법좀 알려주세요
[1]
|
기타 이 질문이 엑셀에 관련된건지 모르겠지만 혹시나 해서 질문드립니다
|
엑셀수식 엑셀 여러가지 만족하는 수식
[3]
|
엑셀2007 자동필터 문의
[2]
|
VBA 데이터가 있을 경우 수식 넣기??
[4]
|
VBA 동적 데이터 교환 질문
[1]
|
엑셀수식 어떤 함수를 써야할 지 모르겠어요, 도와주세요!
[1]
|
피벗테이블 sumproduct 질문
[1]
|
VBA .Find Find 함수를 이용한 검색 관련 질문
[1]
|
도형회전각도 메크로 조정
[3]
|
MATCH 2가지 조건을 만족하는 값을 찾는 식
[4]
|
엑셀수식 엑셀공백 질문드려요
[1]
|
엑셀일반 아별님! 안녕하세요
[1]
|
재미난 엑셀 기능구연 가능??
[1]
|
피벗테이블 피벗 통합 문의 드려요~~
[11]
|
엑셀일반 ㅠ-ㅠ
[1]
|
VBA 질문있습니다. 아뵬님. ㅠ _ 텍스트 박스 회전시키는 VBA 코드
[1]
|
엑셀일반 데이터 유효성 검사질문입니다.
[4]
|
엑셀의 기본기능으로 해결하자면.. 미친짓이구요..
사용자 정의 함수를 만들어서 사용하시는게 좋을 것 같습니다.
사용자 정의함수라함은.. 엑셀의 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