[엑셀]VBA-체크박스 사용법과 자동으로 셀에 연결하기

---

엑셀을 사용하실 때 개발 도구 → 삽입에 가시면 확인란이 있습니다. 이걸 삽입하시면

이와 같이 체크박스와 함께 확인란이 생성됩니다. 그럼 확인란이라고 적혀있는 곳은 지우거나 원하는 걸 적어 주시고

 

이 체크박스를 어떻게 이용하냐?

우클릭 → 컨트롤 서식에 가시면

컨트롤에 셀 연결이라는 것이 있습니다.

여기에 a1을 입력하면

체크 유무에 따라 TRUE와 FALSE를 표시하게 됩니다.

굳이 셀에 연결하지 않아도 CheckBox1.Value = True와 같은 형태로 체크를 확인할 수 있지만 셀에 연결함으로 편한 점이 많습니다.

 

활용하는 방법은 검색해보면 많이 나오니까 넘어가고 이번 주제인 체크박스 여러 개 한 번에 연결하기에 대해 알려드리겠습니다.

 

체크박스는 셀에 연결할때 하나씩 연결을 해야 되기 때문에 수가 많아질수록 매우 귀찮아지는데요.

이걸 VBA를 이용하여 한번에 연결해보겠습니다.

그럼 VBA창을 켜고 모듈을 삽입해주시고

 

Sub 자동연결()
    Dim CB As Object ' 체크박스
    Dim i As Long ' 열
    i = 1 '원하는 열 또는 행 시작 번호 입력
    For Each CB In ActiveSheet.CheckBoxes ' 현재 열린 시트의 체크박스
        CB.LinkedCell = "Sheet1!$C$" & i '선택한 체크박스 sheet1 C i 셀에 연결
        i = i + 1
    Next CB    '다음 CB
    ActiveSheet.CheckBoxes = True '모든 체크박스 ture
End Sub

 

여기서 Selection.LinkedCell = "$C$" & i 중 $C$ 부분을 바꿔서 열을 변경하거나 아니면 "다른 시트 이름!$A$"처럼 써서 다른 시트에도 셀을 연결할 수 있습니다.

 

이런 방법 말고 다양한 방법이 있으니 단순히 복붙 해서 사용하지 말고 직접 코드를 만들어 보면서 VBA실력을 키우시기 바랍니다.

 

그럼 VBA 열심히 공부하시고 이만