1. FAQ
  2. 엑셀(Excel)
  3. AfterEffects
  4. Premiere
  5. Photoshop
  6. ETC

이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.

구글에서 검색하다가 한글 제외라는 VBA 코드를 발견했습니다

저는 영어만 지우려고 하는데

원래 코드가


 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


이렇게 되있고 제 생각에는 이 코드를


 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 "a" To "z", " "
            Case Else
                strTemp = strTemp & strX
        End Select
    Next i
    
    한글제외 = Application.WorksheetFunction.Trim(strTemp)

End Function


로 바꾸면 될 것 같았는데 안되네요 ㅜㅜ

한글 제외 코드도 그냥 복사해서 붙여넣기 했는데 안되네요 ㅜㅜ 

아시는분들께서 가르쳐주시면 감사하겠습니다!!


댓글 '1'

profile

[레벨:30]아별

2015.02.24 09:13:44
*.132.210.135

초보배움님..

영어를 제외시키려면 코드를 그렇게 수정하시면 되긴 하는데요..


저건 엑셀 시트에 있는 모든 셀을 대상으로 하는 것이 아니라..

사용자 정의 함수라고.. 특정 셀의 내용을 참조해서 원하는 값을 계산해주는 함수를 작성한 것입니다.


아래 이미지처럼 사용하시면 되는 코드입니다.

abyul.com_088.jpg


도움이 되셨기를..


첨부
문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜 조회 수
공지 공지 [공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요.. imagefile [레벨:30]아별 2015-04-23 16513
801 VBA 특정개체 수정 관련 [5] [레벨:4]고수가되고파 2015-04-02 2959
800 VBA 하이퍼링크셀 선택시 셀값을 오토필터 값으로 연결 file [레벨:1]speena 2015-03-11 2416
799 엑셀일반 안녕하세요? 엑셀 데이터 정렬 질문있습니다. file [2] [레벨:5]정화 2015-03-03 2443
798 엑셀수식 엑셀 수식 질문드립니다._ 2가지 조건을 만족하는 값 찾기(VLOOKUP, MATCH) secret [3] [레벨:0]대성 2015-02-26 8
797 엑셀일반 혹시 입력된 데이터숫자 사이에 - << 이걸 집어 넣을수 잇나요? [1] [레벨:1]월계몽키 2015-02-24 1458
» VBA 엑셀 내용에서 영어만 모두 제거할 수 있을까요?? [1] [레벨:1]초보배움 2015-02-20 2193
795 기타 엑셀 문의 드립니다. secret [2] [레벨:0]대성 2015-02-06 6
794 엑셀일반 최대값, 최소값 범위 지정 file [레벨:3]읍내꽃미남 2015-01-20 1586
793 VBA 오늘도 질문!^^있습니다. [레벨:2]정용규 2015-01-19 1267
792 엑셀일반 엑셀로 출력시 출력물이 깨지는 데에 대한 문의.... imagefile [레벨:1]하룽아비 2015-01-18 2120
791 엑셀수식 랭킹 구하는 함수 질문 file [레벨:5]눈물바다 2015-01-15 1090
790 엑셀일반 일련번호의 중간 값만 올리는 함수가 궁금합니다. file [2] [레벨:1]man날 2015-01-14 1107
789 VBA 몇가지 질문들 [8] [레벨:2]정용규 2015-01-13 1125
788 VBA 특정색 행 삭제 메크로 배워보고 싶습니다~ imagefile [2] [레벨:1]굿한넘 2015-01-12 1509
787 엑셀일반 한가지 질문요 [레벨:1]싸이킥 2015-01-10 1015
786 VBA 엑셀 메모의 배경으로 삽입한 이미지 추출하기 file [레벨:2]이런젬젬 2015-01-06 1629
785 엑셀일반 칸에 맞게 붙여넣기 하는법이 궁금해요! imagefile [1] [레벨:1]냠냠이 2015-01-04 1084
784 VBA vba로 서식정렬 [4] [레벨:2]정용규 2015-01-03 1661
783 엑셀일반 메크로 관련 질문입니다!! [1] [레벨:1]럭셔리홍 2014-12-05 1798
782 엑셀일반 셀안의 텍스트에....... imagefile [6] [레벨:1]월계몽키 2014-11-26 1565