كيفية البحث عن نص معين واستبداله في مربعات النص؟
يعد البحث والاستبدال أداة مفيدة بالنسبة لنا للعثور على محتويات الخلايا أو الصيغ واستبدالها بسرعة وسهولة في ورقة العمل. ولكن الآن ، لدي عدة مربعات نصية في ورقة العمل الخاصة بي ، وأريد العثور على النص المحدد واستبداله بقيمة أخرى في مربعات النص هذه فقط. هل لديك طرق جيدة للتعامل مع هذه المشكلة؟
البحث عن نص معين واستبداله في مربعات نص متعددة
البحث عن نص معين واستبداله في مربعات نص متعددة
يمكنك البحث عن النص الذي تحتاجه واستبداله يدويًا واحدًا تلو الآخر ، ولكن إذا كانت هناك عدة مربعات نصية ، فسيكون ذلك مملًا ومتعبًا. لذلك يمكن أن يساعدك رمز VBA التالي في الانتهاء منه مرة واحدة.
1. قم بتنشيط ورقة العمل الخاصة بك ، واضغط باستمرار على ملف ALT + F11 مفاتيح لفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.
2. انقر إدراج > وحدة، والصق الكود التالي في ملف نافذة الوحدة.
كود فبا: ابحث عن نص معين واستبدله في مربعات نص ورقة العمل الحالية
Sub TextBoxReplace()
'Updateby20140603
Dim xWs As Worksheet
Dim shp As Shape
Dim xFindStr As String
Dim xReplace As String
xFindStr = Application.InputBox("Find:", xTitleId, "", Type:=2)
xReplace = Application.InputBox("Replace with:", xTitleId, "", Type:=2)
Set xWs = Application.ActiveSheet
On Error Resume Next
For Each shp In xWs.Shapes
xValue = shp.TextFrame.Characters.Text
shp.TextFrame.Characters.Text = VBA.Replace(xValue, xFindStr, xReplace, 1)
Next
End Sub
3. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، وسيظهر مربع موجه لتذكيرك بإدخال النص القديم الذي تريد استبداله. انظر لقطة الشاشة:
4. استمر في النقر OK، وفي مربع المطالبة هذا ، اكتب القيمة النصية الجديدة التي تريدها ، انظر لقطة الشاشة:
5. ثم انقر فوق OK زر ، تم استبدال القيم القديمة بالقيم الجديدة التي أدخلتها في ورقة العمل الحالية. انظر لقطات الشاشة:
مقالات ذات صلة:
كيفية البحث عن نص واستبداله في عناوين المخططات في Excel؟
كيفية البحث عن نص واستبداله داخل التعليقات في Excel؟
كيفية تغيير مسارات الارتباط التشعبي المتعددة مرة واحدة في Excel؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!