كيفية مسح محتويات مربع النص عند النقر فوقه في Excel؟

عادةً ، لمسح المحتويات القديمة لمربع نص (عنصر تحكم ActiveX) ، يجب عليك الدخول إلى مربع النص وتحديد المحتويات بالكامل ثم الضغط على مفتاح Backspace أو Delete. كيفية مسح كافة المحتويات بسرعة في مربع نص؟ ستوضح لك هذه المقالة طريقة VBA لمسح محتويات مربع نص بسرعة عند النقر فوقه نقرًا مزدوجًا.

امسح محتويات مربع النص عند النقر فوق رمز VBA

---

امسح محتويات مربع النص عند النقر فوق رمز VBA

يمكن أن تساعدك التعليمات البرمجية لـ VBA التالية في مسح محتويات مربع نص بسرعة عند النقر فوقه نقرًا مزدوجًا. الرجاء القيام بما يلي.

1. في حالة وجود مربع نص بالفعل في ورقة العمل ، يرجى تشغيل "وضع التصميم" بالنقر فوق المطور > وضع التصميم. انظر لقطة الشاشة:

أو يمكنك أيضًا إدراج مربع نص بالنقر فوق المطور > إدراج > مربع نص (عنصر تحكم ActiveX). انظر لقطة الشاشة:

2. انقر بزر الماوس الأيمن فوق مربع النص وانقر عرض الرمز من قائمة السياق. انظر لقطة الشاشة:

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

كود فبا: امسح محتويات مربع نص عند النقر المزدوج عليه

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  If Not iGblInhibitTextBoxEvents Then
    TextBox1.Value = ""
  End If
End Sub

ملاحظة: في الكود ، TextBox1 هو اسم مربع النص الذي ستقوم بمسح المحتويات منه. يرجى تغييره إلى خاصتك.

4. اضغط على قديم + Q مفاتيح للخروج من ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

5. قم بإيقاف تشغيل "وضع التصميم".

من الآن فصاعدًا ، عند النقر المزدوج على مربع نص ، سيتم مسح محتوياته على الفور.

---

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

• كيفية تحديد نص مربع نص تلقائيًا عند تحديده في Excel؟
• كيفية الإكمال التلقائي لمربع نص عند الكتابة في Excel؟
• كيف تسلسل نصوص خلايا متعددة في مربع نص في إكسيل؟
• كيفية تعطيل التحرير في مربع النص لمنع إدخال المستخدم في Excel؟
• كيفية تنسيق مربع نص كنسبة مئوية في Excel؟