Note: The other languages of the website are Google-translated. Back to English

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) 모두에 적용 할 수 있습니다.

팁 : 선택한 범위에 여러 개의 확인란을 일괄 적으로 삽입하려면 일괄 삽입 확인란 유틸리티 pf Excel 용 Kutools. 또는 여러 옵션 버튼을 일괄 삽입 일괄 삽입 옵션 버튼 유용. 또한 모든 확인란을 한 번에 삭제할 수 있습니다. 일괄 삭제 확인란 아래 스크린 샷과 같이 유틸리티. 당신은 갈 수 있습니다 제한없이 소프트웨어를 무료로 다운로드하십시오. 30.


관련 기사 :


최고의 사무 생산성 도구

Excel용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 증가시킵니다.

  • 재사용: 빠르게 삽입 복잡한 공식, 차트 그리고 이전에 사용한 모든 것; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
  • 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
  • 셀 / 행 / 열 병합 데이터 손실없이; 셀 내용 분할; 중복 행 / 열 결합... 중복 셀 방지; 범위 비교...
  • 중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
  • 정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
  • 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
  • 슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
  • 통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
  • 300개 이상의 강력한 기능. Office / Excel 2007-2021 및 365를 지원합니다. 모든 언어를 지원합니다. 기업 또는 조직에서 쉽게 배포할 수 있습니다. 전체 기능은 30일 무료 평가판입니다. 60일 환불 보장.
kte 탭 201905

Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
officetab 하단
코멘트 (9)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
VDA 스크립트가 부분적으로 작동하고 있습니다. 적용하면 체크박스 옆에 연결된 셀이 변경되어 그 아래에 있는 셀과 연결되기 때문입니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이것은 아래쪽 정렬 된 다음 셀의 텍스트와 정렬되지 않는다는 점을 제외하고는 저에게 효과적이었습니다. 다음 셀의 텍스트와 정렬되도록 하기 위해 하단 정렬에 대한 확인란을 정렬하는 방법이 있습니까? 감사해요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
VBA는 나를 위해 전혀 작동하지 않습니다. F5 키를 누르면 모듈이 실행되는 것처럼 보이지만 체크박스는 움직이지 않습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
좀 더 실험한 후 VBA가 수동으로 삽입된 체크박스에 대해 작동한다는 것을 알아냈지만 Kutools 일괄 삽입을 사용하면 작동하지 않습니다. Kutools로 삽입된 모든 확인란을 가운데에 맞추려면 어떻게 합니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 쿼드마입니다.
코드는 Kutools가 삽입한 체크박스에서도 작동합니다. 어떤 Excel 버전을 사용하고 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
나는 Office 360을 사용하고 있습니다. 내가 겪고 있는 문제는 Kutools 일괄 삽입을 사용할 때 확인란 개체의 크기가 삽입되는 열만큼 넓다는 것입니다(즉, 확인란 개체 너비는 높이보다 큼), 표시되는 확인란 자체가 개체 내에서 왼쪽 정렬됩니다. 모든 확인란 개체를 선택한 다음 높이와 길이가 같도록 크기를 조정한 다음 VBA를 실행하면 확인란이 열 내 중앙에 배치됩니다.





체크박스가 정사각형이라는 점을 고려할 때 이것은 불필요한 단계처럼 보입니다. 왜 Kultools는 체크박스 개체를 정사각형으로 만들지 않습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요 쿼드마입니다.
Kutools에 의해 삽입된 확인란은 다음과 동일합니다. 확인란 (양식 컨트롤) Excel에서 삽입한 것입니다.
나는 당신이 "체크박스 객체를 정사각형으로 만들기"라고 말한 것을 정말로 이해하지 못합니다. 일반적으로 확인란에는 상자 필드와 값 필드가 포함됩니다. Kutools는 선택한 셀이 비어 있으면 확인란의 값을 비워 둡니다. 그리고 선택한 셀에 값이 있으면 해당 셀의 값을 체크박스 값으로 사용합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
무슨 말인지 보여드리기 위해 사진을 올렸습니다. 도움이 되기를 바랍니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕 quadma, 나는 당신의 요점을 알았습니다. 우리는 그것에 대해 생각하고 당신의 인내에 감사드립니다.
아직 코멘트가 없습니다
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0   등장 인물
추천 위치

Follow Us

저작권 © 2009 - WWW.extendoffice.com. | 판권 소유. 에 의해 구동 ExtendOffice. | | 사이트 맵
Microsoft 및 Office 로고는 미국 및 / 또는 기타 국가에서 Microsoft Corporation의 상표 또는 등록 상표입니다.
Sectigo SSL로 보호