วิธีทำเครื่องหมายในช่องตรงกลางอัตโนมัติในเซลล์ใน 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 Kutools for Excel. หรือแบทช์ใส่ปุ่มตัวเลือกหลายปุ่มด้วย ปุ่มตัวเลือกแทรกแบทช์ ยูทิลิตี้ นอกจากนี้คุณสามารถลบกล่องกาเครื่องหมายทั้งหมดพร้อมกันด้วยไฟล์ Batch Delete กล่องกาเครื่องหมาย ยูทิลิตี้ดังภาพหน้าจอด้านล่างที่แสดง คุณสามารถไปที่ ดาวน์โหลดซอฟต์แวร์ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน.
บทความที่เกี่ยวข้อง:
- วิธีสร้างรายการแบบหล่นลงพร้อมช่องทำเครื่องหมายหลายช่องใน Excel
- วิธีเปลี่ยนค่าหรือสีของเซลล์ที่ระบุเมื่อเลือกช่องทำเครื่องหมายใน Excel
- วิธีการเน้นเซลล์หรือแถวด้วยช่องทำเครื่องหมายใน Excel
- จะตรวจสอบช่องทำเครื่องหมายตามค่าเซลล์ใน Excel ได้อย่างไร
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เสริมทักษะ Excel ของคุณด้วย Kutools for Excelและสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools for Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
Office Tab นำอินเทอร์เฟซแบบแท็บมาสู่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!









