Note: The other languages of the website are Google-translated. Back to English
English 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 Kutools สำหรับ Excel. หรือแบทช์ใส่ปุ่มตัวเลือกหลายปุ่มด้วย ปุ่มตัวเลือกแทรกแบทช์ ยูทิลิตี้ นอกจากนี้คุณสามารถลบกล่องกาเครื่องหมายทั้งหมดพร้อมกันด้วยไฟล์ Batch Delete กล่องกาเครื่องหมาย ยูทิลิตี้ดังภาพหน้าจอด้านล่างที่แสดง คุณสามารถไปที่ ดาวน์โหลดซอฟต์แวร์ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน.


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


เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office / Excel 2007-2019 และ 365 รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ ทดลองใช้ฟรี 30 วันเต็ม รับประกันคืนเงิน 60 วัน
kte แท็บ 201905

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

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (9)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สคริปต์ VDA ของคุณทำงานบางส่วน เพราะเมื่อฉันนำไปใช้ เซลล์ที่ลิงก์ถัดจากช่องทำเครื่องหมายจะเปลี่ยนไปและเชื่อมโยงกับเซลล์ที่อยู่ข้างใต้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
วิธีนี้ใช้ได้ผลดีสำหรับฉัน ยกเว้นว่าไม่จัดแนวกับข้อความในเซลล์ถัดไปซึ่งจัดชิดด้านล่าง มีวิธีจัดตำแหน่งช่องทำเครื่องหมายสำหรับการจัดตำแหน่งด้านล่างเพื่อให้จัดแนวกับข้อความในเซลล์ถัดไปหรือไม่ ขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
VBA ไม่ทำงานเลยสำหรับฉัน เมื่อฉันกด F5 ดูเหมือนว่าโมดูลจะทำงาน แต่ช่องทำเครื่องหมายไม่ย้าย
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
หลังจากทำการทดลองเพิ่มเติม ฉันพบว่า VBA ทำงานสำหรับการแทรกช่องทำเครื่องหมายด้วยตนเอง แต่ถ้าฉันใช้การแทรกแบทช์ของ Kutools มันจะไม่ทำงาน ฉันจะจัดช่องทำเครื่องหมายทั้งหมดที่แทรกไว้ด้วย Kutools ได้อย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีควอดมา
รหัสนี้ใช้ได้กับช่องทำเครื่องหมายที่ Kutools แทรกไว้ คุณใช้ Excel เวอร์ชันใดอยู่
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันใช้ office 360 ​​ฉันคิดว่าปัญหาที่ฉันมีคือเมื่อฉันใช้การแทรกแบทช์ Kutools ขนาดของวัตถุช่องทำเครื่องหมายจะกว้างเท่ากับคอลัมน์ที่แทรกเข้าไป (เช่นความกว้างของวัตถุช่องทำเครื่องหมายคือ มากกว่าความสูง) โดยช่องทำเครื่องหมายที่มองเห็นได้นั้นถูกปล่อยให้อยู่ในวัตถุ ถ้าฉันเลือกออบเจ็กต์ช่องทำเครื่องหมายทั้งหมดแล้วปรับขนาดเพื่อให้ความสูงและความยาวเท่ากัน จากนั้นเรียกใช้ VBA จะทำให้ช่องกาเครื่องหมายตรงกลางคอลัมน์ภายในคอลัมน์





ดูเหมือนว่าจะเป็นขั้นตอนที่ไม่จำเป็น เนื่องจากช่องทำเครื่องหมายเป็นสี่เหลี่ยม ทำไม Kultools จึงไม่ทำให้ช่องทำเครื่องหมายวัตถุเป็นสี่เหลี่ยม
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีควอดมา
กล่องกาเครื่องหมายที่แทรกโดย Kutools จะเหมือนกับช่อง กล่องกาเครื่องหมาย (การควบคุมแบบฟอร์ม) ซึ่งแทรกโดย Excel
ฉันไม่เข้าใจจริงๆ ที่คุณพูดว่า "ทำให้ช่องทำเครื่องหมายวัตถุเป็นสี่เหลี่ยม" โดยปกติกล่องกาเครื่องหมายจะประกอบด้วยช่องกล่องและช่องค่า Kutools เก็บค่าของช่องกาเครื่องหมายว่างไว้หากเซลล์ที่เลือกว่างเปล่า และถ้ามีค่าในเซลล์ที่เลือก ค่าของเซลล์จะถูกนำมาเป็นค่ากล่องกาเครื่องหมาย
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันได้อัปโหลดรูปภาพเพื่อแสดงสิ่งที่ฉันหมายถึง หวังว่าจะช่วยได้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี quadma ฉันมีประเด็นของคุณ เราจะคิดเกี่ยวกับมันและขอขอบคุณสำหรับความอดทนของคุณ
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ