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

لحذف النصوص في مربع نص (عنصر تحكم ActiveX) ، أولاً ، تحتاج إلى تحديد جميع النصوص الموجودة داخل مربع النص. تتحدث هذه المقالة عن التحديد التلقائي لجميع نصوص مربع النص عند النقر فوق مربع النص في Excel.

تحديد تلقائي لنص مربع نص عند تحديده برمز VBA

تحديد تلقائي لنص مربع نص عند تحديده برمز VBA

يرجى تطبيق رمز VBA أدناه لتحديد جميع نصوص مربع النص تلقائيًا عند تحديد مربع النص في Excel.

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

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

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

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

رمز فبا: حدد نصوص مربع النص تلقائيًا عند النقر فوقه

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
    Call SelTextBox(Me.TextBox1.Object)
End Sub

Sub SelTextBox(xTextBox As Object)
    With xTextBox
        .SelStart = 0
        .SelLength = Len(.Text)
    End With
End Sub

ملاحظة:

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

2. لاختيار نصوص مربعات نصية متعددة تلقائيًا عند النقر عليها ، يرجى إضافة رمز VBA أدناه بين القسمين في الكود أعلاه. وقم بتغيير TextBox2 إلى اسم مربع النص المطلوب.

Private Sub TextBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Call SelTextBox(Me.TextBox2.Object)
End Sub

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

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

من الآن فصاعدًا ، عند النقر فوق مربع النص ، سيتم تحديد جميع النصوص الموجودة داخل مربع النص تلقائيًا.

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

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