انتقل إلى المحتوى الرئيسي

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

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

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


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

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

doc-replace-text-مربعات 1

4. استمر في النقر OK، وفي مربع المطالبة هذا ، اكتب القيمة النصية الجديدة التي تريدها ، انظر لقطة الشاشة:

doc-replace-text-مربعات 1

5. ثم انقر فوق OK زر ، تم استبدال القيم القديمة بالقيم الجديدة التي أدخلتها في ورقة العمل الحالية. انظر لقطات الشاشة:

doc-replace-text-مربعات 3
-1
doc-replace-text-مربعات 4

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

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

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

كيفية تغيير مسارات الارتباط التشعبي المتعددة مرة واحدة في Excel؟

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

الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

علامة تبويب kte 201905


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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Doesn't work if its a formula (only text). Anyone know how to do this with textbox formulas?
This comment was minimized by the moderator on the site
Great, thanks! This was VERY handy to adapt for my specific use.
This comment was minimized by the moderator on the site
Great, thanks! This was VERY handy to adapt for my specific use.
This comment was minimized by the moderator on the site
How can I do the same in Kutool for Word
This comment was minimized by the moderator on the site
I am still not sure how to do find and replaced, to know how to use the VBA codes needs to be more clear
This comment was minimized by the moderator on the site
Hello, it works great on a single sheet. I wanted to know how can I have this work for the workbook having multiple sheets. Thanks
This comment was minimized by the moderator on the site
How can one find modifications done in text boxes of an Excel file, please? The utility "Spreadsheet Compare" shows many types of modifications between two versions of the same file but not when the changes concern text boxes. Thank you.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations