Excel에서 셀의 확인란을 자동 중앙에 배치하는 방법은 무엇입니까?

Excel의 셀에 확인란을 삽입 할 때 왼쪽 스크린 샷과 같이 모든 확인란을 순서대로 정렬하기가 어렵다는 것을 알 수 있습니다. 실제로 모든 확인란을 셀 중앙으로 이동하여 깔끔하게 유지할 수 있습니다. 이 기사의 방법이 도움이 될 수 있습니다.

VBA 코드가있는 셀의 자동 가운데 확인란

VBA 코드가있는 셀의 자동 가운데 확인란

현재 워크 시트의 셀에있는 모든 확인란을 자동으로 가운데에 맞추려면 다음과 같이하십시오.

1. 워크 시트에서 모든 확인란을 자동 중앙에 배치해야합니다. 다른 + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

2. 에서 응용 프로그램 용 Microsoft Visual Basic 창을 클릭하십시오 끼워 넣다 > 모듈. 그런 다음 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 Control)와 CheckBox (Form Control) 모두에 적용 할 수 있습니다.

관련 기사 :

• Excel에서 여러 확인란이있는 드롭 다운 목록을 만드는 방법은 무엇입니까?
• Excel에서 확인란을 선택한 경우 지정된 셀 값 또는 색상을 변경하는 방법은 무엇입니까?
• Excel에서 확인란으로 셀 또는 행을 강조 표시하는 방법은 무엇입니까?
• Excel에서 셀 값을 기준으로 확인란을 선택하는 방법은 무엇입니까?