엑셀 VBA 기초 - UserForm을 활용하여 입력과 조회하기 - 3편

모두가 칼퇴하는 그날까지~

 

지난 글에서는 

UserForm을 만들어

데이터를 입력하는

방법에 대해 

알려드렸는데요.

 

만일 저번 내용을 모르시거나

기억이 나질 않으신다면

밑에 글을 참고해주세요.

red-s.tistory.com/2460

엑셀 VBA 기초 - UserForm을 활용하여 입력과 조회하기 - 2편

 

이번 글에서는

UserForm을 활용하여

입력과 조회를

둘 다 할 수 있도록

만들어 보겠습니다.

 

이번에도 크게 어렵지 않으니

하나씩 잘 따라와 주세요.

 

그럼 엑셀을 실행해주세요.

 

먼저 이런 식의 데이터 표를

만들고 이를 조회하는 

매크로를 만들 것입니다.

 

저번 글에서 알려드린 

데이터 입력을 통해 

굳이 표를 내가 만들지

않아도 데이터가 하나씩

입력될수록 알아서 

실선의 표가 생성되도록

설정하였습니다.

 

그래서 이번엔 조회 버튼으로

미리 입력한 데이터에

성명만 검색하여 

나이와 성별을 알아낼 수 

있도록 매크로를 설정하겠습니다.

 

그럼 ALT +F11 버튼을

눌러주세요.

 

먼저 지난 1편에서 

알려드린 UserForm

만드는 방법을 통해 

저번과 크게 다르지 않지만

조회 버튼과 수정, 삭제

버튼까지 만들어 주었습니다.

 

똑같이 직접 만들어주시고

엑셀 시트 창으로 돌아오세요.

 

 

 

그다음 A열에 

찾아야 하는 성명을

하나 적어주세요

 

그리고 두 번째 행에

=MATCH(A1, D:D,0)

으로 몇 번째 행에

있는지 찾아주고

 

 

세 번째 행에

=INDEX(E:E, A2)

을 적어 성별을

무엇인지 찾아준 후

 

네 번째 행도

동일하게 

=INDEX(F:F, A2)

을 적어 나이가

무엇인지 찾아주세요.

 

그다음 A열에

마우스 오른쪽 버튼을

클릭해 숨겨주세요.

 

그다음 다시 

ALT + F11을 누르고 

UserForm도 더블클릭해주세요.

 

 

그다음 이렇게 

적어주시면 조회를

할 수 있습니다.

 

바로 설명해드리면

 

Private Sub CommandButton1_Click()
조회 버튼을 클릭했을 때  

 
Range("A1") = Me.TextBox1

내가 조회하고자 하는

성명이 A1셀로 들어갑니다.

 

Me.ComboBox1 = Range("A3")

A3셀의 데이터를 

콤보 박스의 칸에

표시하며

 

Me.TextBox3 = Range("A4")

A4셀의 데이터를

텍스트 3박스에 

표시해주세요
        
End Sub

 

그리고 실행하면

 

이렇게 성명만 

입력하면 성별과 

나이를 조회할 수 있도록

UserForm을 만들 수 있습니다.

 

데이터가 많아지면 

많아질수록 찾기가 

어려워지기에 

보통은 CTRL + F를

눌러 찾곤 하는데요

 

성명 옆에 성별과 나이가

아닌 수많은 데이터가 있다면

내가 찾아야 하는 데이터만

유저 폼에 설정하여

조회한다면 더욱 빠르게

원하는 값을 조회할 수 

있을 거라고 생각합니다.

 

당연히 이는 칼퇴를 위해

필요하다고 생각하고요.

 

그럼 여기까지 궁금하신 점은

댓글에 남겨주시고

공감과 구독도 부탁드립니다.