로그인 유지
이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
2009.12.30 13:35:02 *.107.204.56
엑셀의 기본기능으로 해결하자면.. 미친짓이구요..
사용자 정의 함수를 만들어서 사용하시는게 좋을 것 같습니다.
사용자 정의함수라함은.. 엑셀의 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
2011.01.29 10:44:39 *.177.116.40
2011.01.29 11:55:08 *.130.73.75
지지님..
안녕하세요? ^^
위 코드에서 아래 코드를 저 아래 코드로 바꾸시면 됩니다.
- 아래 -
Case "ㄱ" To "ㅎ", "가" To "힣", " "
- 저 아래 -
Case "ㄱ" To "ㅎ", "가" To "힣"
," "만 코드에서 제외시켜버린겁니다.
2011.01.30 11:15:34 *.177.116.40
2011.12.06 17:45:02 *.241.165.253
2014.12.07 22:57:30 *.41.32.125
새 창으로
선택한 기호
102
101
100
99
98
97
96
95
94
93
92
91
90
89
88
87
86
85
84
83
엑셀의 기본기능으로 해결하자면.. 미친짓이구요..
사용자 정의 함수를 만들어서 사용하시는게 좋을 것 같습니다.
사용자 정의함수라함은.. 엑셀의 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