كيفية البحث عن النص واستبداله داخل التعليقات (الملاحظات) في Excel؟
وظيفة البحث والاستبدال في Excel هي أداة قوية لتحديث المحتوى داخل الخلايا بسرعة، لكنها لا تطبق مباشرة على الملاحظات - الاسم الجديد للتعليقات التقليدية قبل Excel 2019. يتساءل العديد من المستخدمين عما إذا كان يمكن تطبيق نفس الوظائف على النص الموجود داخل ملاحظات Excel. سيرشدك هذا الدليل إلى كيفية العثور على النص واستبداله في الملاحظات بشكل فعال، مما يوسع قدرتك على إدارة وتحسين جميع جوانب جداول البيانات الخاصة بك.
استخدام كود VBA للبحث عن النص واستبداله داخل التعليقات (الملاحظات)
أداة عملية للعثور على النص واستبداله داخل التعليقات (الملاحظات) بسرعة وسهولة
استخدام كود VBA للبحث عن النص واستبداله داخل التعليقات (الملاحظات)
في Excel، يمكنك استخدام الكود التالي لـ VBA للعثور على النص واستبداله في جميع الملاحظات. على سبيل المثال، سأستبدل النص "2011" بالنص "2012" في جميع الملاحظات في Excel.
1. انقر فوق Developer > Visual Basic وسيتم عرض نافذة جديدة Microsoft Visual Basic for Applications، انقر فوق Insert > Module ثم أدخل الكود التالي لـ VBA في الوحدة:
كود VBA: البحث عن النص واستبداله في جميع الملاحظات في Excel
Sub ReplaceNotes()
'Updated by Extendoffice 2024/07/25
Dim cell As Range
Dim wks As Worksheet
Dim sFind As String
Dim sReplace As String
Dim sNote As String
' Define the text to find and replace
sFind = "2011"
sReplace = "2012"
' Loop through each worksheet in the active workbook
For Each wks In ActiveWorkbook.Worksheets
For Each cell In wks.Cells
If cell.NoteText <> "" Then
sNote = cell.NoteText
If InStr(sNote, sFind) > 0 Then
sNote = Replace(sNote, sFind, sReplace)
cell.NoteText Text:=sNote, Start:=1, Length:=Len(cell.NoteText)
End If
End If
Next cell
Next wks
End Sub
2. ثم انقر فوق الزر
لتشغيل الكود، وسيتم استبدال كل "2011" في جميع الملاحظات بـ "2012" في المصنف بأكمله.
أداة عملية للعثور على النص واستبداله داخل التعليقات (الملاحظات) بسرعة وسهولة
يمكننا العثور بسرعة واستبدال النص في جميع الملاحظات باستخدام Kutools لـ Excel الخاص بـ Find/Replace Note Text.
إذا كنت قد قمت بتثبيت Kutools لـ Excel، يمكنك بسهولة العثور على النص واستبداله في جميع الملاحظات في Excel.
1. انقر فوق Kutools > More > Find/Replace Note Text.
2. في مربع الحوار Find/Replace Note Text:
- (1.) حدد النطاق الذي تريد تطبيق هذه الأداة عليه، يمكنك تحديد ورقة العمل الحالية أو جميع الأوراق؛
- (2.) أدخل النص (2011) الذي تريد استبداله في مربع البحث عن النص في الملاحظات، وأدخل النص المحدد (2012) الذي تريد استخدامه في مربع الاستبدال به.
3. وبعد ذلك انقر فوق زر الاستبدال. سيتم استبدال كل 2011 بـ 2012 داخل التعليقات في ورقة العمل النشطة. شاهد لقطات الشاشة:
 |  |  |
مقالات ذات صلة:
- تغيير جميع تنسيقات التعليقات في الخلايا
- تغيير اسم مؤلف جميع التعليقات
- قائمة جميع التعليقات في ورقة عمل أو مصنف جديد
- إظهار أو إخفاء جميع التعليقات ومؤشرات التعليقات في 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 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد