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

วิธีลบปุ่มหรือปุ่มคำสั่งทั้งหมดใน Excel

บทความนี้พูดถึงการลบปุ่มควบคุมฟอร์มหรือปุ่มคำสั่งทั้งหมดออกจากแผ่นงานที่ใช้งานอยู่ใน Excel

ลบปุ่มทั้งหมดรวมถึงปุ่มควบคุมแบบฟอร์มและปุ่มคำสั่งโดยเลือกทั้งหมด
ลบปุ่มทั้งหมดรวมถึงปุ่มควบคุมฟอร์มและปุ่มคำสั่งด้วยรหัส VBA
ลบปุ่มควบคุมฟอร์มหรือปุ่มคำสั่งทั้งหมดด้วยรหัส VBA


ลบปุ่มทั้งหมดรวมถึงปุ่มควบคุมแบบฟอร์มและปุ่มคำสั่งโดยเลือกทั้งหมด

โปรดทำดังนี้เพื่อลบปุ่มทั้งหมด (รวมถึงปุ่มควบคุมฟอร์มและปุ่มคำสั่ง) ออกจากแผ่นงานที่ใช้งานอยู่

1. เปิดใช้งานโหมดออกแบบโดยคลิก ผู้พัฒนา > โหมดการออกแบบ. ดูภาพหน้าจอ:

2. เลือกปุ่มคำสั่งปุ่มใดปุ่มหนึ่งแล้วกดปุ่ม Ctrl + A ปุ่มเพื่อเลือกปุ่มทั้งหมดในแผ่นงานปัจจุบัน

3 กด ลบ ปุ่มเพื่อลบปุ่มที่เลือกทั้งหมด

หมายเหตุ: หากมีวัตถุอื่นในแผ่นงานนี้พวกเขาจะถูกเลือกด้วย


ลบปุ่มทั้งหมดรวมถึงปุ่มควบคุมฟอร์มและปุ่มคำสั่งด้วยรหัส VBA

นอกจากนี้คุณสามารถใช้สคริปต์ VBA ด้านล่างเพื่อลบปุ่มทั้งหมดออกจากแผ่นงานปัจจุบันใน Excel

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

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูลจากนั้นคัดลอกโค้ด VBA ด้านล่างลงในหน้าต่าง Code

รหัส VBA: ลบปุ่มทั้งหมดออกจากแผ่นงานที่ใช้งานอยู่

Sub Clear_ButtonsActiveSheet()
    Dim I As Long
    Dim xOLE As Object
    On Error Resume Next
    ActiveSheet.Buttons.Delete
    For Each xOLE In ActiveSheet.OLEObjects
        If TypeName(xOLE.Object) = "CommandButton" Then
            xOLE.Delete
        End If
    Next
End Sub

3 กด F5 กุญแจสำคัญในการรันโค้ด จากนั้นปุ่มทั้งหมดรวมทั้งปุ่มควบคุมแบบฟอร์มและปุ่มคำสั่งจะถูกลบออกจากแผ่นงานปัจจุบันทันที


ลบปุ่มควบคุมฟอร์มหรือปุ่มคำสั่งทั้งหมดด้วยรหัส VBA

หากคุณต้องการลบปุ่มควบคุมฟอร์มทั้งหมดหรือปุ่มคำสั่งทั้งหมดออกจากแผ่นงานที่ใช้งานอยู่ คุณสามารถลองใช้โค้ด VBA ด้านล่างเพื่อให้บรรลุผลได้

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

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูลจากนั้นคัดลอกโค้ด VBA ด้านล่างลงในหน้าต่าง Code

รหัส VBA: ลบปุ่มควบคุมแบบฟอร์มทั้งหมดออกจากแผ่นงานที่ใช้งานอยู่

Sub Clear_ButtonsActiveSheet()
    ActiveSheet.Buttons.Delete
End Sub

รหัส VBA: ลบปุ่มคำสั่งทั้งหมดออกจากแผ่นงานที่ใช้งานอยู่

Sub Clear_ButtonsActiveSheet()
    Dim xOLE As Object
    On Error Resume Next
    For Each xOLE In ActiveSheet.OLEObjects
        If TypeName(xOLE.Object) = "CommandButton" Then
            xOLE.Delete
        End If
    Next
End Sub

3 กด F5 กุญแจสำคัญในการเรียกใช้รหัส

จากนั้นปุ่มควบคุมแบบฟอร์มหรือปุ่มคำสั่งทั้งหมดจะถูกลบออกจากแผ่นงานปัจจุบันทันที


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

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

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

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

รายละเอียด


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

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
how about if it is in userform? what is the code
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations