ไปยังเนื้อหาหลัก

วิธีทำเครื่องหมายในช่องตรงกลางอัตโนมัติในเซลล์ใน Excel

ผู้เขียน : ซิลูเวีย แก้ไขล่าสุด: 2024-09-18

ขณะแทรกกล่องกาเครื่องหมายในเซลล์ของ 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 Kutools สำหรับ Excel. หรือแบทช์ใส่ปุ่มตัวเลือกหลายปุ่มด้วย ปุ่มตัวเลือกแทรกแบทช์ ยูทิลิตี้ นอกจากนี้คุณสามารถลบกล่องกาเครื่องหมายทั้งหมดพร้อมกันด้วยไฟล์ Batch Delete กล่องกาเครื่องหมาย ยูทิลิตี้ดังภาพหน้าจอด้านล่างที่แสดง คุณสามารถไปที่ ดาวน์โหลดซอฟต์แวร์ฟรีโดยไม่มีข้อจำกัดใน 30 วัน.

การแทรกหรือลบกล่องกาเครื่องหมายแบบแบตช์โดย Kutools


บทความที่เกี่ยวข้อง:

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

🤖 Kutools AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด   |  สร้างรหัส  |  สร้างสูตรที่กำหนดเอง  |  วิเคราะห์ข้อมูลและสร้างแผนภูมิ  |  เรียกใช้ฟังก์ชัน Kutools...
คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์    VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่    สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์    ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ
ใช้ Kutools ในภาษาที่คุณต้องการ – รองรับภาษาอังกฤษ สเปน เยอรมัน ฝรั่งเศส จีน และอื่นๆ อีกกว่า 40 ภาษา!

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...


แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!