Note: The other languages of the website are Google-translated. Back to English
English English

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

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

doc ยกเลิกการเลือกช่องทำเครื่องหมาย 1

ยกเลิกการเลือกหรือยกเลิกการเลือกช่องทำเครื่องหมายที่ทำเครื่องหมายไว้ทั้งหมดด้วยรหัส 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!


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

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
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (11)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณมากสำหรับรหัส vba นี้ช่วยได้มาก

FYI สำหรับผู้ที่ไม่ทำงานโดยกด F5 เพียง:

แท็บนักพัฒนาซอฟต์แวร์ > มาโคร > เลือกโมดูลที่เพิ่งสร้าง แล้วคลิกตัวเลือก > พิมพ์อักขระสำหรับทางลัด เช่น ctrl+j หรือ ctrl+k
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณสำหรับความช่วยเหลือของคุณเกี่ยวกับเรื่องนี้ เป็นที่ชื่นชมอย่างมาก อย่างไรก็ตาม โปรดทราบ: การสะกดผิดในรหัสสำหรับขั้นตอนที่ #2 รหัส VBA: ยกเลิกการเลือกหรือยกเลิกการเลือกช่องทำเครื่องหมายทั้งหมด (ตัวควบคุม ActiveX):
ช่องทำเครื่องหมายย่อย ()
'Updateโดย Extendoffcie
Dim c เป็นวัตถุ
สำหรับแต่ละ c ใน ActiveSheet.OLEObjects
ถ้า InStr(1, c.Name, "CheckBox") > 0 แล้ว
c.Object.Value = เท็จ
End If
ต่อไป
ย่อยสิ้นสุด

โปรดทราบว่าคำว่า "Extendoffcie" นั้นสะกดไม่ถูกต้อง ไม่ควรจะเป็น "Extendoffice"?? ยังไงก็เถอะ แค่อยากเอามันออกไป
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
จะทำอย่างไรถ้าฉันต้องการใช้ปุ่มเพื่อเปิดใช้งานมาโครเพื่อล้างกล่อง
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีแอเรียล
ในการใช้ปุ่มเพื่อเปิดใช้งานมาโคร อันดับแรก คุณควรแทรกปุ่มจากรายการดรอปดาวน์ Shapes จากนั้นคลิกขวาที่ปุ่ม เลือก Assign Macro จากเมนูบริบท จากนั้นเลือกชื่อแมโครในกล่องโต้ตอบ Assign Macro . จากนั้นคลิกตกลงและโค้ดแมโครจะเชื่อมโยงกับปุ่ม
โปรดลอง หวังว่าจะช่วยคุณได้!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันจะยกเลิกการเลือกเฉพาะช่องในช่วงเซลล์ที่ระบุในแผ่นงานที่ใช้งานอยู่ได้อย่างไร ฉันมี 3 รายการในแผ่นเดียว (งานรายวัน/รายสัปดาห์/รายเดือน) และต้องการสร้างปุ่ม "ล้างทั้งหมด" สำหรับแต่ละรายการ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ช่วยได้มาก! ขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
OMG ขอบคุณ เว็บไซต์นี้ช่วยชีวิต :)
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Merci beaucoup d'avoir partagé le code pour décocher des éléments "CheckBox", cela m'a sauvé ! :o)En effet, en codant un formulaire de saisie fait dans une feuille, je cherchais à trouver un moyen de décocher les case (en guise de réinitialisation du formulaire) et je ne trouvais pas (à part thavec la m ") est, comme nous le savons tous, à bannir), tout simplement car :=> la propriété ".CheckBoxes" n'existe pas en propriété d'une "Worksheet" !=> l'Objet "CheckBoxes" ne figure pas non plus dans l'explorateur d'objets !C'est lunaire cette histoire...Alors merci énormément.Bien à vous. ที่ซ่อน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
บองชูร์ ลินดาส,
เฌอ วอ ออง ปรี. Heureux que cela ผู้ช่วย เทคำถาม toute, n'hésitez pas à nous contacter. ผ่าน une bonne journée
ขอแสดงความนับถือ
แมนดี้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี
beim öffnen der datei sollten zwei voneinander abhängige ช่องทำเครื่องหมาย1 u. CheckBox2 nicht aktiviert sein

ช่องทำเครื่องหมายย่อยส่วนตัว2_Click()
ถ้า CheckBox2 = True แล้ว
ช่องทำเครื่องหมาย 1 = เท็จ
End If
ย่อยสิ้นสุด
ช่องทำเครื่องหมายย่อยส่วนตัว1_Click()
ถ้า CheckBox1 = True แล้ว
ช่องทำเครื่องหมาย 2 = เท็จ
End If
ย่อยสิ้นสุด

ขอบคุณสำหรับความช่วยเหลือของคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีซิกฟรีด
หากคุณต้องการตรวจสอบและปิดการใช้งานรายการอื่น โปรดใช้รหัสด้านล่าง:
หมายเหตุ: ช่องทำเครื่องหมายที่นี่ คุณควรใช้ช่องทำเครื่องหมาย ActiveX Control
Private Sub CheckBox2_Click()
If CheckBox2 = True Then
CheckBox1.Enabled = False
Else
CheckBox1.Enabled = True
End If
End Sub
Private Sub CheckBox1_Click()
If CheckBox1 = True Then
CheckBox2.Enabled = False
Else
CheckBox2.Enabled = True
End If
End Sub

โปรดลอง หวังว่าจะช่วยคุณได้!
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ