6월 22 2016
엑셀(EXCEL) – 회사 사용 물질과 협력사 규제 물질 리스트 비교하여 추출
요즘 자동차나 화학 계통의 일을 하시는 분은 자사의 제품내에 포함된 물질이 EU나 일본 수출,
아니면 국내 자동차 등의 유해한 물질로 등록된 것이 있는지 메일을 많이 받아 보실 것입니다.
자료로 오는 것이 몇 백개로 자사에 등록된 물질과 비교하는 것이 정말 하나 하나 단순비교를
하게된다면 눈에 핏발이 서고 눈물이 나올 정도입니다.
대부분 제품명과 CAS NO로 처리된 첨부화일이 올텐데요. 자사도 마찬가지로 MSDS 자료를 통한
CAS NO를 리스트로 보관하고 있을 것입니다. 이것을 자동으로 비교하는 루틴을 만들어 사용하면
바로 규제물질과 현 사용물질을 리스트화 시킬 수 있을 것으로 보여 간단하게 만들어 보았습니다.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 |
Option Explicit Sub Harmful_Material_Check() Dim i As Integer Dim oCel As Range, cCel As Range Dim OurMat As Range, ChkMat As Range ' 우리회사와 체크할 물질의 범위 선정 Set OurMat = Range("C2", Range("C65536").End(xlUp)) Set ChkMat = Range("G2", Range("G65536").End(xlUp)) ' 속도를 위해 화면 갱신 중지 Application.ScreenUpdating = False ' 기존 자료 삭제 Range("I1", Range("K65536").End(xlUp)).ClearContents ' 제목항 삽입 Cells(1, 9) = Cells(1, 5) Cells(1, 10) = Cells(1, 6) Cells(1, 11) = Cells(1, 7) ' 각 물질을 하나씩 비교해서 같으면 특정위치로 옮김 ' Trim함수를 쓴 것은 우리 자료나 체크할 자료에 ' 혹시 스페이스가 앞뒤로 있을 경우가 있으므로 For Each oCel In OurMat For Each cCel In ChkMat If Trim(oCel) = Trim(cCel) Then Cells(i + 2, 9) = i + 1 Cells(i + 2, 10) = oCel.Offset(0, -1) Cells(i + 2, 11) = oCel i = i + 1 Exit For End If Next cCel Next oCel ' 비교된 자료의 컬럼을 글자수에 따라 자동 맞춤 Columns("I:K").AutoFit Set OurMat = Nothing Set ChkMat = Nothing ' 화면 갱신 Application.ScreenUpdating = True End Sub |
첨부 파일 : 20160622-규제물질 비교 방법
7월 11 2016
Macbook Pro Retina 13″ 구입
중고로 구입해서 잘 사용하던 Macbook Air가 갑자기 고장나는 바람에
몇 달 동안 중고사이트를 보면서 탐내던 Macbook Pro Retina를
신형으로 구입했다. 이상하게 빈이엄마가 아무소리도 안한다?
By vinipapa • 굳은모 • 0 • Tags: Macbook Pro Retina, 맥북프로레티나