كيف يمكنني البحث عن نص محدد واستبداله داخل مربع نص في Excel؟
أداة البحث والاستبدال هي ميزة أساسية لتحديث محتويات الخلايا أو الصيغ بسرعة داخل ورقة العمل. ومع ذلك، قد يصبح إدارة النصوص داخل عدة مربعات نصية أمرًا صعبًا إذا اقتصرت على التعديل اليدوي. فإذا كنت بحاجة إلى العثور على نص معيّن داخل مربعات النص واستبداله بكفاءة، فسيأخذك هذا البرنامج التعليمي خطوة بخطوة لاستخدام كود VBA لإتمام هذه المهمة في بضع خطوات فقط.
البحث والاستبدال نصًا محددًا في عدة مربع النص
البحث والاستبدال نصًا محددًا في عدة مربع النص
يمكنك البحث عن النص واستبداله يدويًّا واحدًا تلو الآخر، لكن هذه العملية تصبح مملة وتستغرق وقتًا طويلاً عند التعامل مع عدة مربعات نص. ويوفّر كود VBA التالي طريقة فعّالة لإتمام هذه المهمة دفعة واحدة.
1. فعّل ورقة العمل الخاصة بك، ثم اضغط مع الاستمرار على مفتاحَيALT + F11 لفتح نافذةMicrosoft Visual Basic for Applications.
2. انقر فوقInsert > Module، ثم الصق الكود التالي فينافذة الوحدة (Module Window).
كود VBA: البحث والاستبدال نصًا محددًا في مربع النص من ورقة العمل الحالية
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 لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل