공지 |
공지
[공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요..
![image image](http://abyul.com/zbxe/modules/document/tpl/icons/image.gif)
|
아별 |
2015-04-23 |
93918 |
102 |
엑셀 웹커리에서 URL 바꾸기 매크로 질문
[1]
|
밥사마 |
2009-09-01 |
15780 |
101 |
피벗테이블사용시 항목수 초과 메세지
[1]
|
샤우트 |
2009-08-27 |
5753 |
100 |
sum 함수 관련 질문있습니다~
[3]
|
모래요정 |
2009-08-27 |
5703 |
99 |
VBA
엑셀 열 추가 _ 엑셀의 마지막 셀 재 인식시키는 팁 ActiveSheet.UsedRange.Select
![image image](http://abyul.com/zbxe/modules/document/tpl/icons/image.gif)
[1]
|
눈물바다 |
2009-08-27 |
12776 |
98 |
아별 엑셀 툴에 대해 여쭙니다.
[1]
|
그린티라떼 |
2009-08-26 |
5822 |
97 |
풀리지 않는 궁금증에 도움 부탁드립니다.
[1]
|
그린티라떼 |
2009-08-26 |
4883 |
96 |
엑셀 함수와 차트에대해서 질문 좀 드리겠습니다ㅜ
[1]
|
뿌꾸빰뿌꾸빰 |
2009-08-24 |
5440 |
95 |
엑셀 차트 관련 질문인데요..
![image image](http://abyul.com/zbxe/modules/document/tpl/icons/image.gif)
[1]
|
홍승 |
2009-08-24 |
6649 |
94 |
작업 완료일 구하는 함수 중 일요일만 제외할 수 있나요?
[2]
|
rusl1 |
2009-08-23 |
6956 |
93 |
아별툴 중..엑셀 테두리..
[1]
|
이라이 |
2009-08-22 |
6237 |
92 |
엑셀값 자동산출하고 싶은데 순환참조가 걸리네여...
|
돌연변이 |
2009-08-20 |
6449 |
91 |
서식을 복사하는데 있어서 질문입니다.
[2]
|
sun |
2009-08-20 |
5839 |
90 |
텍스트 나누기 단축키는 만들 수 없을까요
[1]
|
cosy |
2009-08-19 |
9600 |
89 |
피벗에서 질문
[1]
|
shawn |
2009-08-18 |
5561 |
88 |
엑셀 주식형 차트
|
민 |
2009-08-17 |
11250 |
87 |
엑셀 관련 책 추천 부탁드려요
[1]
|
shawn |
2009-08-17 |
5492 |
86 |
부분합 혹은 피벗에서...
[2]
|
shawn |
2009-08-14 |
5322 |
85 |
엑셀 문의사항 올립니다.
[1]
|
플스 |
2009-08-13 |
5814 |
84 |
ISERROR 건 입니다.
[4]
|
리자딘 |
2009-08-11 |
6886 |
83 |
여러가지 품목을 2가지 이상 부분합 하는 방법이 있나요?
[2]
|
민준파파 |
2009-08-11 |
5926 |
엑셀의 기본기능으로 해결하자면.. 미친짓이구요..
사용자 정의 함수를 만들어서 사용하시는게 좋을 것 같습니다.
사용자 정의함수라함은.. 엑셀의 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