용어집: 보험


매경 보험용어집 다운로드 (약 1천 단어)

+ 동영상 (엑셀 쿨팁: 한 셀에 들어 있는 한글, 영어 추출하기)

용어가 좀처럼 적응이 안 되는 분야여서 내렸습니다. 소스는 매경입니다. 링크를 잃었네요. 전에 번역하다 나와서 찍어 놨다가 한 번 내려봤습니다.


한글 추출법
영어 한글이 한 셀 안에 들어와서 어떻게 자르지 하다가 매크로 뒤지니 나오길래, 써봤더니 완벽하지는 않았지만 잘 발라지더군요. 엑셀은 늘 영어로 검색하는 버릇이 있었는데(솔직히 엑셀 도움말보다 빠름) 잘 안 나오길래, 한글로 검색했더니 바로 꼭대기에 뜨더군요


아래 두 페이지에서 코드 따옴. 1번으로 낙찰 (2번은 친절한 설명). 2번 보고 하니 이렇게 쉬운 걸... 여태 몰랐다니!


1) http://www.officetutor.co.kr/board/faq_lib/frm_vba_content.asp?page=2&idx=704

2) http://jsk005.blogspot.kr/2013/06/blog-post_14.html

알쓸신잡...


관련 동영상
-------
 













동영상에 나온 작업 설명서 및 실제 코드

인터넷에서 용어집을 만들기 위해 데이터를 가져오니 한글과 영어가 한 셀에 들어가 있어서
용어집으로 가져오기 쉽게 분리하는 코드를 찾음.
1. Alt+F11을 치면 코드 치는 창이 나옴
2. 빈 창에 미리 쳐온 코드를 붙여넣음
3. 다시 alt+F11을 치면 열렸던 코드 창이 닫힘
4. 엑셀 메뉴에서 [보기]로 이동하여 [매크로]를 누르고 [매크로 보기 선택]
5. 나오는 화면에서 실행하면 완료
6. 아래 영어가 잘못 분리된 부분은 기호 때문임.쉼표라든지 부호를 미리 CTRL+H로
   찾아서 한꺼번에 다 빈칸으로 교체해주고 작업하면 일일이 손 볼 필요 없음.

이상입니다. 이 코드는 웹에서 다양한 형태가 있어서 비교적 쉽게 찾을 수 있음.

내용을 복사한 후, 빈 칸에 코드를 붙여 넣고 다시 alt+f11을 누르면 창에서 나감
보기에 가서 매크로를 누르면 바로 한글과 영어가 분리됨




Sub 이름분리()
Dim i As Integer
Dim word As Integer
Dim rng As Range
Dim 행수 As Integer

행수 = Range("A1").CurrentRegion.Rows.Count
For Each rng In Range("a1").CurrentRegion.Offset(1, 0).Resize(행수 - 1, 1)
For i = 1 To Len(rng)
word = Asc(Mid(rng, i, 1))
If ((word >= 65 And word <= 122) Or word = 32) Then
Else
rng.Offset(0, 1) = Left(rng, i - 1)
rng.Offset(0, 2) = Right(rng, Len(rng) - i + 1)
Exit For
End If
Next
Next
Columns("b:c").AutoFit
End Sub

Recent