[엑셀 실무 예제] Source에 있는 값 찾기 (VLOOKUP, IF, AND)

Source에 있는 값 찾기 엑셀 실무 예제입니다.

 

 

 이렇게 사용하고 있습니다. 

1. System상 출고를 기다리는 상품들이 몇 천개 있습니다. 

2. 상품별 Bar Cord 값을 확인하면 출고 가능 여부가 화면에 표시되도록 하였습니다.

3. 더불어 출고 가능 여부에 따라 원하는 음성이 출력됩니다.

 

여기에 사용된 엑셀 기능은 VLOOKUP, IF, AND, 조건부 서식 그리고 매크로가 유기적으로 사용되었습니다.

 

 

---

 만드는 순서 

1. A열 : Source를 입력합니다.

2. B열 : Bar Cord 값을 입력합니다.(찾고자 하는 값)

3. C열 : VLOOKUP 함수를 이용 찾은 값을 불러옵니다.

=IFERROR(VLOOKUP(B2,$A:$A,1,0),"")

 

IFERROR : #VALUE! 등의 ERROR 가 나오면 "" 보이지 않게 하라

VLOOKUP : B2에 있는 값을 A열($A:$A)에서 찾아서 그 값을 가져와라

 

4. D열 : 빈 공간 (디자인적 요소 ^^)

5. E열 : 결과 값에 따라 "GOOD" 또는 "NG"  출력

=IF(AND(C2<>"",B2<>""),"GOOD",IF(AND(C2="",B2<>""),"NG",""))

 

 

IF : 조건값이 참일 경우 "GOOD"를 출력, 거짓일 경우 또 다른 IF문 실행

=IF(AND(C2<>"",B2<>"")

 

조건문 IF와 AND를 조합하여 사용할 때는 위의 예제처럼 사용하시면 됩니다.

C2에 값이 있고 (값을 찾았을 경우: 찾는 값이 Source에 있는 경우), B2에 값이 있을 경우(빈칸이 아닐 경우) "GOOD" 출력

 

첫 번째 조건문이 아닐 경우 두 번째 조건문 실행

 

=IF(AND(C2<>"",B2<>""),"GOOD","NG"

 

주의: 여기서 첫 번째 조건문이 거짓일 경우 모두 "NG"로 설정하면, "GOOD" 아닐 (빈칸) 경우 모든 NG에 해당하는 매크로가 실행되는 문제가 발생합니다.

 

IF(AND(C2="",B2<>""),"NG",""))

 

C2가 빈칸이고, B2가 빈칸이 아닐 경우 (값을 찾았지만 없을 경우) "NG"를 출력합니다.

 

 

6. F열 : 셀 F1에 "GOOD"일 경우 음성 출력될 문자를 입력합니다. (영어/숫자만 가능)

=IFERROR(IF(E2="GOOD",BeepGOOD(),""),"")

 

E열의 값이 "GOOD" 일 경우 매크로 BeepGOOD 실행

 

 

7. G열 : 셀 G1에 "NG"일 경우 음성 출력될 문자를 입력합니다. (영어/숫자만 가능)

=IF(E2="NG",BeepNG(),"")

 

G열의 값이 "NG" 일 경우 매크로 BeepNG 실행

 

---

 

 

 매크로 BeepGOOD 

셀 F1에 입력된 영문자/숫자를 음성 출력합니다.

 

아래의 매크로는 인터넷을 검색하다 얻게 된 소스를 살짝 변경하여 사용한 것입니다. 처음 소스를 공개해 주신 매크로 고수님께 감사드립니다.~~

Sub BeepGOOD()
Dim Voc As SpeechLib.SpVoice
Set Voc = New SpVoice
With Voc
Set .Voice = .GetVoices.Item(1) 
Rate = 10 
End With
Application.Speech.Speak Range("F1").Cells
End Sub

 

1. Dim Voc As SpeechLib.SpVoice : 변수 Voc 선언
2. Set Voc = New SpVoice : 변수 Voc에 New SpVoice 
3, With ~  End With 
4. Set .Voice = .GetVoices.Item(1)  : Item(0) 기계음, Item(1) 목소리
5. Rate = 10 : 속도 0 보통, - 느리게, + 빠르게
6. Application.Speech.Speak Range("F1").Cells : 셀 F1의 값

 

엑셀 매크로 기록 및 실행 사용예제

 

모두 성공하셨나요? ^^ 

 

* 추가로 A열(Source)과 B열(Scan) 이외 함수를 변경하지 못하도록 "시트보호" 기능을 사용하고 있습니다.

 

 

공감과 댓글은 글쓴이에게 많은 힘이 됩니다.