Excel에서 셀 내 체크박스를 자동으로 가운데 정렬하는 방법은 무엇입니까?

Excel에서 셀에 체크박스를 삽입할 때 아래 스크린샷에 표시된 것처럼 모든 체크박스를 깔끔하게 배열하기 어렵다는 것을 알 수 있습니다. 실제로, 체크박스를 모두 셀의 가운데로 이동하여 깔끔하게 정리할 수 있습니다. 이 문서의 방법이 도움이 될 것입니다.

VBA 코드를 사용하여 셀 내 체크박스 자동 가운데 정렬

VBA 코드를 사용하여 셀 내 체크박스 자동 가운데 정렬

현재 워크시트의 모든 셀에 있는 체크박스를 자동으로 가운데 정렬하려면 다음 단계를 따르세요.

1. 체크박스를 자동으로 가운데 정렬해야 하는 워크시트에서 Alt + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. Microsoft Visual Basic for Applications 창에서 삽입 > 모듈을 클릭하세요. 그런 다음 VBA 코드를 복사하여 코드 창에 붙여넣으세요.

VBA 코드: 모든 체크박스를 셀 중앙에 자동으로 정렬

Sub CenterCheckbox ()
    Dim xRg As Range
    Dim chkBox As OLEObject
    Dim chkFBox As CheckBox
    On Error Resume Next
    Application.ScreenUpdating = False
    For Each chkBox In ActiveSheet.OLEObjects
        If TypeName(chkBox.Object) = "CheckBox" Then
            Set xRg = chkBox.TopLeftCell
            chkBox.Width = xRg.Width * 2 / 3
            chkBox.Height = xRg.Height
            chkBox.Left = xRg.Left + (xRg.Width - chkBox.Width) / 2
            chkBox.Top = xRg.Top + (xRg.Height - chkBox.Height) / 2
        End If
    Next
    For Each chkFBox In ActiveSheet.CheckBoxes
        Set xRg = chkFBox.TopLeftCell
        chkFBox.Width = xRg.Width * 2 / 3
        chkFBox.Height = xRg.Height
        chkFBox.Left = xRg.Left + (xRg.Width - chkFBox.Width) / 2
        chkFBox.Top = xRg.Top + (xRg.Height - chkFBox.Height) / 2
    Next
    Application.ScreenUpdating = True
End Sub

3. F5 키를 누릅니다. 그러면 아래 스크린샷에 표시된 대로 모든 체크박스가 즉시 셀의 중앙으로 이동합니다.

참고: 이 VBA 코드는 CheckBox (ActiveX 컨트롤)과 CheckBox (폼 컨트롤) 모두에 적용할 수 있습니다.

관련 문서:

• Excel에서 여러 체크박스가 포함된 드롭다운 목록을 생성하는 방법은 무엇입니까?
• Excel에서 체크박스가 선택되었을 때 특정 셀 값이나 색상을 변경하려면 어떻게 해야 합니까?
• Excel에서 체크박스로 셀이나 행을 강조 표시하려면 어떻게 해야 합니까?
• Excel에서 셀 값에 따라 체크박스를 선택하도록 하려면 어떻게 해야 합니까?