วิธีทำเครื่องหมายในช่องตรงกลางอัตโนมัติในเซลล์ใน 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 ได้อย่างไร