엑셀

요즘 자동차나 화학 계통의 일을 하시는 분은 자사의 제품내에 포함된 물질이 EU나 일본 수출,
아니면 국내 자동차 등의 유해한 물질로 등록된 것이 있는지 메일을 많이 받아 보실 것입니다.
자료로 오는 것이 몇 백개로 자사에 등록된 물질과 비교하는 것이 정말 하나 하나 단순비교를
하게된다면 눈에 핏발이 서고 눈물이 나올 정도입니다.

대부분 제품명과 CAS NO로 처리된 첨부화일이 올텐데요. 자사도 마찬가지로 MSDS 자료를 통한
CAS NO를 리스트로 보관하고 있을 것입니다. 이것을 자동으로 비교하는 루틴을 만들어 사용하면
바로 규제물질과 현 사용물질을 리스트화 시킬 수 있을 것으로 보여 간단하게 만들어 보았습니다.

첨부 파일 : 20160622-규제물질 비교 방법

업무를 진행하다 보면 참 애매한 경우가 많습니다. 갑님이 보내오신 메일의
양식을 바꾸어 달라고 할 수가 없어 을님들이 하지 않아도 될 일들을 해야할
경우인데요. 아래의 질문처럼 그냥 주문서를 엑셀로 받아서 처리하면 될 것
같은데 그냥 메일 내용속에 Text를 그냥 붙여서 오는 경우입니다.

http://www.clien.net/cs2/bbs/board.php?bo_table=kin&wr_id=3740799
——————————————————————————————
아웃룩메일로 들어온 데이터를 엑셀로 옮기고 싶은데요.

품번 수량
X4567890 20개
X4567891 20개
X4567892 20개
X4567893 30개
X4567894 20개

이런식으로 데이터가 들어오는데요.
——————————————————————————————

참 이런 것을 몇 백개씩 하루에 지속적으로 하고 계시는 것 같습니다.
시작합니다.

개발도구 > VBA Editor 열고 Module하나 삽입하시고 아래 코드를
붙여 넣습니다. 그리고 ActiveX 명령 버튼 하나 삽입하시고 매크로를
연결 시킵니다. 물론 제 블로그에 원본 자료 올려 놓으니 오셔서
내려 받고 그냥 사용하시면 됩니다.

첨부 화일 : 불 특정한 스페이스로 분리된 셀을 스페이스 앞 뒤로 문자열 분리-20160602

너무 간단해서 올리기기 뭐 하지만 나중의 기록을 위해서… 필요한 사람이 있을 것 같아서요.

Option Explicit

Sub Cal_Data()

Dim ValArray() As String
Dim src_txt As String, mrg_txt As String
Dim i As Integer, cal_value As Integer

Dim rng As Range, SelRng As Range

Set SelRng = Application.InputBox(“분리할 참조 영역 선택”, Type:=8)

For Each rng In SelRng

ValArray() = Split(rng.Value2, “,”)

For i = LBound(ValArray) To UBound(ValArray)
cal_value = (Val(ValArray(i) + 1)) / 2
mrg_txt = mrg_txt & cal_value & “,”

Next i

rng.Offset(0, 1) = Left(mrg_txt, Len(mrg_txt) – 1)

mrg_txt = “”

Next rng

MsgBox “분리 완료”

End Sub

첨부 화일 : 20160401-분할계산 후 합침