엑셀 VBA 매크로 배우기, 인사/재고 관리 실무 활용 배우기

오늘 엑셀 VBA 매크로 배우기는  인사/재고 관리에서 필요한 검색 및 색상변경에 대해 실습해 볼 거예요

그동안 배웠던 내용들을 활용해서 진행할 거라 저와 같이 공부했다면 충분히 가능할 거라고 생각합니다!

엑셀 VBA 매크로 배우기

엑셀 VBA 매크로 코딩 예제 확인하기

실습에 앞서 미리 강의 파일을 다운로드하셔서 확인해 보시면 공부하기 조금 더 편할 것 같아요

엑셀 버전은 2019로 작성이 되어 있으나 다른 버전도 가능합니다.

(비밀번호는 : 1111입니다.)

 

인사재고관리예제.xlsm

0.02MB

엑셀 VBA 매크로 배우기

🔎 예제 소스 확인하기

Sub RESET_COLOR()
'b4셀부터 b4에서 오른쪽 3칸으로가서 아래로 끝 드래그
Set aa = Range(Range("b4"), Range("b4").Offset(0, 3).End(xlDown))
aa.Interior.ColorIndex = 0
 
End Sub--------------------------------
Sub FIND_COMPANY()
 
'색상 초기화
Call RESET_COLOR
 
'b4부터 b4의 맨 아래범위까지 aa변수에 저장.
Set aa = Range(Range("b4"), Range("b4").Offset(0, 0).End(xlDown))
 
'인풋박스를 열어서 nation에 국적 변수 저장하시오
nation = InputBox("회사의 국적을 입력하시오")
 
'nation이 공란이 아니라면
If nation <> "" Then
 
'각각의 셀에 대해서
    For Each cell In aa
        
        'cell의 오른쪽 1칸 즉, C열의 값이 natio과 같다면 색상바꾸시오
        If cell.Offset(0, 1).Value = nation Then
        
            cell.Offset(0, 0).Interior.ColorIndex = 6
            cell.Offset(0, 1).Interior.ColorIndex = 6
            cell.Offset(0, 2).Interior.ColorIndex = 6
            cell.Offset(0, 3).Interior.ColorIndex = 6
        
        End If
    
    Next
 
End If
 
'i10셀에 선택 국가 입력
Range("i10").Value = nation
 
End Sub
 

엑셀 VBA 매크로 코딩 원리 살펴보기

✔️ RESET_COLOR() : B4부터 ~ 오른쪽 아래 끝까지 드래그한 셀의 색상을 제거하는 매크로

엑셀 VBA 매크로 배우기

엑셀 VBA 매크로 배우기

✔️ FIND_COMANY() : 원하는 회사를 찾아서 검색하는 매크로 코딩

엑셀 VBA 매크로 배우기

 

 

 

엑셀 매크로 IF조건문(IF, ELSEIF, ELSE) 사용하기