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

يعد البحث والاستبدال أداة مفيدة بالنسبة لنا للعثور على محتويات الخلايا أو الصيغ واستبدالها بسرعة وسهولة في ورقة العمل. ولكن الآن ، لدي عدة مربعات نصية في ورقة العمل الخاصة بي ، وأريد العثور على النص المحدد واستبداله بقيمة أخرى في مربعات النص هذه فقط. هل لديك طرق جيدة للتعامل مع هذه المشكلة؟

البحث عن نص معين واستبداله في مربعات نص متعددة

البحث عن نص معين واستبداله في مربعات نص متعددة

رائعة حقا! استخدام علامات تبويب فعالة في Excel مثل Chrome و Firefox و Safari!

وفر 50٪ من وقتك ، وقلل آلاف النقرات بالماوس كل يوم!

---

يمكنك البحث عن النص الذي تحتاجه واستبداله يدويًا واحدًا تلو الآخر ، ولكن إذا كانت هناك عدة مربعات نصية ، فسيكون ذلك مملًا ومتعبًا. لذلك يمكن أن يساعدك رمز 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؟

---

أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

• إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
• سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
• دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
• حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
• نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
• استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
• سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
• اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
• أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.

اقرأ أكثر... تحميل مجاني ... شراء... 

---

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

• تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
• فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
• يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!

اقرأ أكثر... تحميل مجاني ... شراء...