كيفية إزالة جميع الأزرار أو أزرار الأوامر في إكسيل؟
تتناول هذه المقالة إزالة جميع أزرار التحكم في النموذج أو أزرار الأوامر من الورقة النشطة في Excel.
قم بإزالة جميع الأزرار بما في ذلك أزرار التحكم في النموذج وأزرار الأوامر عن طريق تحديدها جميعًا
قم بإزالة جميع الأزرار بما في ذلك أزرار التحكم في النموذج وأزرار الأوامر بواسطة رمز VBA
قم بإزالة جميع أزرار التحكم في النموذج أو أزرار الأوامر التي تحتوي على تعليمات برمجية لـ VBA
قم بإزالة جميع الأزرار بما في ذلك أزرار التحكم في النموذج وأزرار الأوامر عن طريق تحديدها جميعًا
يرجى القيام بما يلي لإزالة جميع الأزرار (بما في ذلك أزرار التحكم في النموذج وأزرار الأوامر) من ورقة العمل النشطة.
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؟
- كيفية تحديث أو إدراج التاريخ والوقت (الحالي) بواسطة زر الأمر في إكسيل؟
- كيفية استخدام زر الأمر لتغيير قيمة خلية محددة في إكسيل؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!