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