كيف يمكنني البحث عن نص واستبداله في عناوين الرسوم البيانية في Excel؟
تُعد المخططات أداةً بالغة الفائدة في Excel، وغالبًا ما نُرفقها بعناوين لتمييزها بوضوح. لكن، هل سبق أن حاولتَ البحث عن قيمة نصية معيّنة في عناوين الرسوم البيانية عبر عدة مخططات واستبدالها؟ اليوم، سأوضح لك كيفية العثور على نص معيّن في عناوين متعددة للمخططات واستبداله بقيمة أخرى في Excel.
البحث والاستبدال النص في عناوين الرسوم البيانية في Excel باستخدام كود VBA
البحث والاستبدال النص في عناوين الرسوم البيانية في Excel باستخدام كود VBA
افترض أن لديك ورقة عمل تحتوي على مخططات كما في لقطة الشاشة التالية، وتريد استبدال النص «يناير» بـ «فبراير» داخل عناوين الرسوم البيانية فقط. بالطبع، يمكنك تعديلها يدويًّا واحدة تلو الأخرى، لكن ذلك سيستغرق وقتًا طويلاً إذا كانت المخططات عديدة. لحسن الحظ، يمكن لكود VBA التالي أن يُنجز هذه المهمة لك بسرعة وسهولة.
1. فعِّل ورقة العمل التي تحتوي على المخططات التي تريد البحث عن نصوص عناوينها واستبدالها.
2. اضغط مع الاستمرار على مفتاحَيALT + F11، وسيؤدي ذلك إلى فتح نافذةMicrosoft Visual Basic for Applications.
3. انقر فوقInsert > Module، ثم الصق الكود التالي في نافذةModule Window.
كود VBA: البحث والاستبدال النص في عناوين الرسوم البيانية ضمن ورقة العمل النشطة
Sub ChartLabelReplace()
'Update 20140603
Dim xWs As Worksheet
Dim xFindStr As String
Dim xReplace As String
xFindStr = Application.InputBox("Find:", xTitleId, "", Type:=2)
xReplace = Application.InputBox("Replace:", xTitleId, "", Type:=2)
Set xWs = Application.ActiveSheet
For Each ch In xWs.ChartObjects
If ch.Chart.HasTitle Then
ch.Chart.ChartTitle.Text = VBA.Replace(ch.Chart.ChartTitle.Text, xFindStr, xReplace, 1)
End If
Next
End Sub
4. بعد ذلك، اضغط على مفتاحF5 لتشغيل هذا الكود، وستظهر نافذة منبثقة لتذكيرك بإدخال النص القديم الذي تريد استبداله، كما في لقطة الشاشة:
5. ثم انقر فوق زرOK، وستظهر نافذة منبثقة أخرى تحتاج فيها إلى كتابة النص الجديد (القيمة الجديدة) الذي تريد استبدال القيمة القديمة به، كما في لقطة الشاشة:
6. استمر في النقر فوق زرOK لإغلاق النافذة المنبثقة، وستُستبدل قيم النص القديم الخاصة بك بالقيم الجديدة دفعة واحدة في ورقة العمل الحالية، كما هو موضح في لقطة الشاشة التالية:
ملاحظة: إذا كنت بحاجة إلى البحث والاستبدال قيمة النص في عناوين الرسوم البيانية عبر جميع أوراق العمل في ملف العمل، فيجب تطبيق كود VBA التالي: (الإجراء هو نفسه المذكور أعلاه)
كود VBA: البحث والاستبدال النص في عناوين الرسوم البيانية ضمن جميع أوراق العمل
Sub ChartLabelReplaceAllWorksheet()
'Update 20140603
Dim xFindStr As String
Dim xReplace As String
xFindStr = Application.InputBox("Find:", xTitleId, "", Type:=2)
xReplace = Application.InputBox("Replace:", xTitleId, "", Type:=2)
For Each sh In Worksheets
For Each ch In sh.ChartObjects
If ch.Chart.HasTitle Then
ch.Chart.ChartTitle.Text = VBA.Replace(ch.Chart.ChartTitle.Text, xFindStr, xReplace, 1)
End If
Next
Next
End Sub
مقالات ذات صلة:
كيف يمكن البحث عن نص داخل التعليقات في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل