엑셀 VBA 기초 - 셀을 변수로 사용해보자 - 1편

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

지난 글에서는 

 

셀. end.(xlup). row

셀. end(xltoleft). column

 

을 통해 마지막행과 열의

데이터를 찾아 자동화하는

방법에 대해 알려드렸는데요.

 

혹시 기억나지 않으신다면 

1편부터 다시 봐주시면 되고요.

red-s.tistory.com/2409

엑셀 VBA 기초 - 진정한 자동화를 원하다면 - 1편

그럼 이번 글에서는

셀을 변수로 활용해서 

셀에 조건 기준에 따라 

자동으로 연동되도록

만들어 볼 텐데요.

 

어렵지 않게 설명해드릴 테니

천천히 따라 해 보세요.

 

 

 

가장 먼저 이런 데이터의 표가

있다고 가정해볼게요.

 

그럼 해당 표 위로 또 다른

표를 하나 만들어볼게요.

 

 

이렇게 위쪽에 표를 하나

더 만들어 주시고요.

 

마지막 행을 알기 위해

=counta(E:E)를 입력해주세요.

 

=counta는 카운트 올이라는

뜻으로 () 안에 들어가는

범위 안에서 값이 입력된 셀의

개수를 알 수 있어요 

 

그다음 데이터가 시작되기

바로 전행의 번호인 7을 

더해주면 마지막행 번호인

21을 구해줄 수 있죠.

 

그다음 종류는

엑셀의 데이터 유효성 검사로

구분시켜 시켜줄 건데요.

 

상단 탭의 데이터 유효성 검사를

클릭해주시고 설정에서 

제외대상을 목록으로 클릭,

원본에 본사 직영, 가맹점

이라고 적어주세요.

 

저는 데이터가 본사 직영, 가맹점

이라는 표로 되어있어 저렇게 

적었을 뿐이지 데이터의 내용이

변경되면 저것도 변경해주셔야

합니다.

 

 

그다음 매출 점수를 80으로

기준을 잡고 본사 직영인데

매출 점수가 80 이하인 셀을

빨간색 배경에 파란색 글씨로

변경하기 위해 서식 바탕을

빨간색으로 글씨 색을 파란색으로 

지정해주었어요.

 

그럼 이제 본격적으로 

Alt+ F11 누르고 시작해볼까요.

 

창이 나오면 오른쪽 버튼

누르고 삽입에서 모듈 

눌러주시면 되고요.

 

저는 오늘도 만들어지는

매크로의 이름은 test_1로

지정해 주었습니다.

 

 

그다음에 이렇게 적어주시면

되는데요.

 

조금 어려울 수도 있는

코딩이지만 하나씩 알려드릴게요.

 

Dim i As Long
변수 타입이 숫자인

i라는 변수를 만들 거야 

   
For i = 9 To Range("B2")
변수 i는 9부터 셀 B2에

적어놓은 마지막행의 값까지 

   
If Range("F" & i) = Range("B3") And Range("G" & i) <= Range("B4") Then

만약 f셀의 값 중에서 b3셀의 값과 같고

g셀의 값이 b4셀의 값보다 작거나 같다면

             
Range("b5"). Copy

b 5셀을 카피해

Range("E" & i). Resize(1, 3). PasteSpecial xlFormats

그리고 해당 E셀의 1행 3열까지

서식만 붙여 넣어  

 

이렇게 적어주시고 실행하면

 

 

이렇게 조건에 해당하는

데이터의 표만 체크되는 거죠.

 

당연히 종류가 달라지면 

데이터의 값도 변하겠죠.

 

이번 글은 여기까지만 설명드리고

다음 글에 이어서 설명드릴게요.

 

혹시 궁금한 점 있으시면 

댓글로 남겨주시고요.

 

공감과 구독도 부탁드릴게요.