كيفية إزالة جميع الأزرار أو أزرار الأوامر في إكسيل؟

تتناول هذه المقالة إزالة جميع أزرار التحكم في النموذج أو أزرار الأوامر من الورقة النشطة في Excel.

قم بإزالة جميع الأزرار بما في ذلك أزرار التحكم في النموذج وأزرار الأوامر عن طريق تحديدها جميعًا
قم بإزالة جميع الأزرار بما في ذلك أزرار التحكم في النموذج وأزرار الأوامر بواسطة رمز VBA
قم بإزالة جميع أزرار التحكم في النموذج أو أزرار الأوامر التي تحتوي على تعليمات برمجية لـ VBA

قم بإزالة جميع الأزرار بما في ذلك أزرار التحكم في النموذج وأزرار الأوامر عن طريق تحديدها جميعًا

مدهش! استخدام علامات التبويب الفعالة في Excel مثل Chrome وEdge وFirefox وSafari!
وفر 50٪ من وقتك ، وقلل آلاف النقرات بالماوس كل يوم!

يرجى القيام بما يلي لإزالة جميع الأزرار (بما في ذلك أزرار التحكم في النموذج وأزرار الأوامر) من ورقة العمل النشطة.

1. قم بتمكين وضع التصميم من خلال النقر فوق المطور > وضع التصميم. انظر لقطة الشاشة:

2. حدد أحد أزرار الأوامر واضغط على CTRL + A مفاتيح لتحديد جميع الأزرار في ورقة العمل الحالية.

3. اضغط على حذف مفتاح لحذف جميع الأزرار المحددة.

ملاحظات: إذا كانت هناك كائنات أخرى في ورقة العمل هذه ، فسيتم تحديدها أيضًا.

قم بإزالة جميع الأزرار بما في ذلك أزرار التحكم في النموذج وأزرار الأوامر بواسطة رمز VBA

بالإضافة إلى ذلك ، يمكنك تطبيق برنامج VBA النصي أدناه لإزالة جميع الأزرار من ورقة العمل الحالية في Excel.

1. افتح ورقة العمل التي تحتوي على الأزرار التي تريد إزالتها ، ثم اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة، ثم انسخ رمز 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 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة، ثم انسخ رمز VBA أدناه في نافذة التعليمات البرمجية.

رمز 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 مفتاح لتشغيل الكود.

ثم تتم إزالة كافة أزرار التحكم في النموذج أو كافة أزرار الأوامر من ورقة العمل الحالية على الفور.

مقالات ذات صلة:

• كيفية إدراج صف جديد فارغ تلقائيًا بواسطة زر الأمر في إكسيل؟
• كيفية استخدام زر الأمر لحفظ ورقة العمل النشطة كملف PDF في Excel؟
• كيفية تحديث أو إدراج التاريخ والوقت (الحالي) بواسطة زر الأمر في إكسيل؟
• كيفية استخدام زر الأمر لتغيير قيمة خلية محددة في إكسيل؟

أفضل أدوات إنتاجية المكتب

🤖	مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
	الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة
	سوبر بحث: معايير متعددة VLookup  |   VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
	قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
	مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة
	الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير   |  مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا   |  إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
	أفضل 15 مجموعة أدوات:  12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

اقرأ أكثر... تحميل مجاني ...

---

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

• تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
• فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
• يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!

اقرأ أكثر... تحميل مجاني ...