كيفية مسح محتويات مربع التحرير والسرد برمز 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؟