วิธียกเลิกการเลือกหรือยกเลิกการเลือกช่องทำเครื่องหมายทั้งหมดพร้อมกันใน Excel

คุณจะยกเลิกการเลือกหรือยกเลิกการเลือกช่องทำเครื่องหมายทั้งหมดพร้อมกันในแผ่นงานได้อย่างไรตามภาพหน้าจอต่อไปนี้ ในบทความนี้ฉันจะพูดถึงรหัสด่วนเพื่อแก้ปัญหา

ยกเลิกการเลือกหรือยกเลิกการเลือกช่องทำเครื่องหมายที่ทำเครื่องหมายไว้ทั้งหมดด้วยรหัส VBA

ยกเลิกการเลือกหรือยกเลิกการเลือกช่องทำเครื่องหมายที่ทำเครื่องหมายไว้ทั้งหมดด้วยรหัส VBA

ยกเลิกการเลือกหรือยกเลิกการเลือกช่องทำเครื่องหมายที่เลือกไว้ทั้งหมด (Form Controls):

หากช่องทำเครื่องหมายของคุณเป็นตัวควบคุมแบบฟอร์มคุณสามารถยกเลิกการเลือกได้พร้อมกันด้วยรหัส VBA ต่อไปนี้:

1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.

รหัส VBA: ยกเลิกการเลือกหรือยกเลิกการเลือกช่องทำเครื่องหมายที่เลือกไว้ทั้งหมด (การควบคุมแบบฟอร์ม):

Sub ClearCheckBoxes()
'Updateby Extendoffice
    Dim chkBox As Excel.CheckBox
    Application.ScreenUpdating = False
    For Each chkBox In ActiveSheet.CheckBoxes
            chkBox.Value = xlOff
    Next chkBox
    Application.ScreenUpdating = True
End Sub

3. จากนั้นกด F5 คีย์เพื่อเรียกใช้รหัสนี้และช่องทำเครื่องหมายที่เลือกไว้ทั้งหมดจะถูกยกเลิกการเลือกพร้อมกันในแผ่นงานที่ใช้งานอยู่

ยกเลิกการเลือกหรือยกเลิกการเลือกช่องทำเครื่องหมายที่ทำเครื่องหมายไว้ทั้งหมด (ActiveX Controls):

หากช่องทำเครื่องหมายเป็น ActiveX Controls โปรดใช้รหัส VBA ด้านล่าง:

1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.

รหัส VBA: ยกเลิกการเลือกหรือยกเลิกการเลือกช่องทำเครื่องหมายที่เลือกไว้ทั้งหมด (ActiveX Controls):

Sub clearcheckbox()
'Updateby Extendoffcie
    Dim c As Object
    For Each c In ActiveSheet.OLEObjects
        If InStr(1, c.Name, "CheckBox") > 0 Then
            c.Object.Value = False
        End If
    Next
End Sub

3. จากนั้นกด F5 คีย์เพื่อเรียกใช้รหัสนี้และช่องทำเครื่องหมายที่เลือกไว้ทั้งหมดจะถูกยกเลิกการเลือกพร้อมกันในแผ่นงานที่ใช้งานอยู่

แทรกช่องทำเครื่องหมายหลายช่องในการเลือกพร้อมกัน

Kutools สำหรับ Excel's กล่องกาเครื่องหมายแทรกแบทช์ ยูทิลิตี้สามารถช่วยให้คุณแทรกช่องทำเครื่องหมายหลายช่องพร้อมกันได้อย่างรวดเร็ว คลิกเพื่อดาวน์โหลด Kutools for Excel!