كيفية مسح محتويات مربع التحرير والسرد برمز VBA في Excel؟
عادة ، يمكنك مسح محتويات مربع التحرير والسرد عن طريق مسح بيانات قائمة نطاق الإدخال. ولكن ماذا عن مسح محتويات كافة مربعات التحرير والسرد في ورقة عمل Excel؟ تقوم هذه المقالة بإعداد أكواد VBA لمساعدتك ليس فقط في مسح محتويات مربع التحرير والسرد ولكن أيضًا في مسح محتويات كافة مربعات التحرير والسرد في نفس الوقت في ورقة عمل Excel.
امسح محتويات مربع التحرير والسرد بسهولة عن طريق كود فبا
امسح محتويات مربع التحرير والسرد بسهولة عن طريق كود فبا
يمكن أن تساعدك أكواد VBA أدناه في مسح محتويات مربع التحرير والسرد أو كافة مربعات التحرير والسرد في ورقة العمل النشطة. الرجاء القيام بما يلي.
1. في ورقة العمل تحتاج إلى مسح محتويات مربع التحرير والسرد ، يرجى الضغط على قديم + F11 مفاتيح في نفس الوقت لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة. ثم انسخ رمز VBA أدناه في نافذة التعليمات البرمجية.
فبا 1: مسح محتويات مربع التحرير والسرد في ورقة العمل
Sub ClearAComboBox()
ActiveSheet.Shapes.Range(Array("Drop Down 2")).Select
With Selection
.ListFillRange = ""
End With
End Sub
ملاحظات: في الكود ، "Drop Down 2" هو اسم مربع التحرير والسرد الذي ستقوم بمسح المحتويات منه. يرجى تغييره إلى خاصتك.
VBA 2: مسح محتويات كافة مربعات التحرير والسرد في ورقة العمل النشطة
Sub ClearComboBox()
Dim xOle As OLEObject
Dim xDrop As DropDown
Application.ScreenUpdating = False
For Each xOle In ActiveSheet.OLEObjects
If TypeName(xOle.Object) = "ComboBox" Then
xOle.ListFillRange = ""
End If
Next
For Each xDrop In ActiveSheet.DropDowns
xDrop.ListFillRange = ""
Next
Application.ScreenUpdating = True
End Sub
3. اضغط على F5 مفتاح أو انقر فوق الزر "تشغيل" لتشغيل التعليمات البرمجية.
ثم يمكنك رؤية المحتويات تم مسحها في مربع التحرير والسرد المحدد أو جميع مربعات التحرير والسرد في ورقة العمل النشطة كما هو موضح أدناه لقطة الشاشة:
ملاحظات: يمكن تطبيق رموز VBA على كل من Combo Box (التحكم في النموذج) و Combo Box (عنصر تحكم ActiveX).
مقالات ذات صلة:
- كيفية مسح المحتويات والتنسيق في نفس الوقت في الخلايا في Excel؟
- كيفية مسح محتويات النطاق المسمى في Excel؟
- كيفية مسح القيم المقيدة في الخلايا في Excel؟
- كيفية مسح محتويات الخلية المحددة إذا تغيرت قيمة خلية أخرى في إكسيل؟
- كيفية مسح محتويات الخلية المحددة عند الفتح والخروج في مصنف Excel؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!