كيفية إنشاء كود ماكرو لتحقيق البحث عن النص واستبداله في Excel؟
عادةً ما نستخدم وظيفة البحث والاستبدال المدمجة للبحث عن القيم واستبدالها في Excel. في الواقع ، يمكنك البحث عن نص واستبداله في Excel مباشرة برمز الماكرو. في هذه المقالة ، ستتعلم كيفية إنشاء رمز ماكرو لتحقيق البحث عن النص واستبداله في Excel.
قم بإنشاء رمز ماكرو لتحقيق البحث عن النص واستبداله في Excel
قم بإنشاء رمز ماكرو لتحقيق البحث عن النص واستبداله في Excel
يرجى القيام بما يلي لإنشاء رمز ماكرو لتحقيق البحث عن النص واستبداله في Excel.
1. اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة. ثم انسخ رمز VBA أدناه في نافذة الكود.
كود فبا: أنشئ كود ماكرو لتحقيق البحث عن النص واستبداله في إكسيل
Sub FindandReplaceText()
'Update by Extendoffice 2018/5/24
Dim xFind As String
Dim xRep As String
Dim xRg As Range
On Error Resume Next
Set xRg =Cells
xFind = Application.InputBox("word to search:", "Kutools for Excel", , , , , 2)
xRep = Application.InputBox("word to replace:", "Kutools for Excel", , , , , 2)
If xFind = "False" Or xRep = "False" Then Exit Sub
xRg.Replace xFind, xRep, xlPart, xlByRows, False, False, False, False
End Sub3. اضغط على F5 مفتاح لتشغيل الكود.
4. في الأول كوتولس ل إكسيل في مربع الحوار ، أدخل النص أو القيمة التي ستبحث عنها ثم انقر فوق OK زر. انظر لقطة الشاشة:
5. في الثانية كوتولس ل إكسيل في مربع الحوار ، أدخل النص أو القيمة التي ستستبدلها وانقر فوق OK .
ثم يتم استبدال جميع النصوص المحددة بالنص الذي تريده على الفور.
ملاحظات: يتم تطبيق هذا الرمز على ورقة العمل النشطة.
مقالات ذات صلة:
- كيفية البحث عن واستبدال جميع الخلايا الفارغة برقم أو نص معين في إكسيل؟
- كيف تستبدل الفواصل بأسطر جديدة (Alt + Enter) في الخلايا في Excel؟
- كيفية البحث عن أسماء علامات تبويب الأوراق واستبدالها في Excel؟
- كيف تجد قيمة في خلية بقائمة مفصولة بفواصل في إكسيل؟
- كيف تجد تقاطع قائمتين في Excel؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
