이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
글 수 113
구글에서 검색하다가 한글 제외라는 VBA 코드를 발견했습니다저는 영어만 지우려고 하는데원래 코드가
Option ExplicitFunction 한글제외(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 ExplicitFunction 한글제외(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
로 바꾸면 될 것 같았는데 안되네요 ㅜㅜ한글 제외 코드도 그냥 복사해서 붙여넣기 했는데 안되네요 ㅜㅜ 아시는분들께서 가르쳐주시면 감사하겠습니다!!
Option ExplicitFunction 한글제외(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 ExplicitFunction 한글제외(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
로 바꾸면 될 것 같았는데 안되네요 ㅜㅜ한글 제외 코드도 그냥 복사해서 붙여넣기 했는데 안되네요 ㅜㅜ 아시는분들께서 가르쳐주시면 감사하겠습니다!!
초보배움님..
영어를 제외시키려면 코드를 그렇게 수정하시면 되긴 하는데요..
저건 엑셀 시트에 있는 모든 셀을 대상으로 하는 것이 아니라..
사용자 정의 함수라고.. 특정 셀의 내용을 참조해서 원하는 값을 계산해주는 함수를 작성한 것입니다.
아래 이미지처럼 사용하시면 되는 코드입니다.
도움이 되셨기를..