كيفية البحث عن النص واستبداله داخل التعليقات (الملاحظات) في إكسيل؟

تعد وظيفة البحث والاستبدال في Excel أداة قوية لتحديث المحتوى بسرعة داخل الخلايا، ولكنها لا تنطبق مباشرة على Notes - وهو الاسم الجديد للتعليقات التقليدية قبل Excel 2019. يتساءل العديد من المستخدمين عما إذا كان من الممكن تطبيق نفس الوظيفة على النص داخل ملاحظات Excel. سيوضح لك هذا الدليل كيفية البحث عن النص واستبداله بشكل فعال في تطبيق Notes، مما يزيد من قدرتك على إدارة وتحسين جميع جوانب جداول البيانات الخاصة بك.

استخدام كود VBA للبحث عن النص واستبداله داخل التعليقات (الملاحظات)

أداة مفيدة للعثور على النص واستبداله ضمن التعليقات (الملاحظات) بسرعة وسهولة

استخدام كود VBA للبحث عن النص واستبداله داخل التعليقات (الملاحظات)

في Excel، يمكنك استخدام كود VBA التالي للبحث عن النص واستبداله في جميع الملاحظات. على سبيل المثال، سأستبدل النص "2011" بالنص "2012" في جميع الملاحظات في برنامج Excel.

1. انقر المطور >Visual Basic والجديد ميكروسوفت فيسوال باسيك للتطبيقات سيتم عرض النافذة ، انقر فوق إدراج > وحدة ثم أدخل كود فبا التالي في الوحدة النمطية:

كود 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 for Excel، فيمكنك بسهولة العثور على النص واستبداله في جميع الملاحظات في Excel.

1. انقر كوتولس > المزيد > البحث عن/استبدال نص الملاحظة. انظر لقطة الشاشة:

2. في البحث عن/استبدال نص الملاحظة صندوق المحادثة:

• (1.) حدد النطاق الذي تريد تطبيق هذه الأداة المساعدة ، يمكنك تحديده الورقة النشطة or كل الأوراق;
• (2.) أدخل النص (2011) الذي تريد استبداله في البحث عن النص في الملاحظات ، وأدخل النص المحدد (2012) الذي تريد استخدامه في ملف استبدال مربع.

3. ثم انقر فوق استبدل زر. سيتم استبدال عام 2011 بالكامل بعام 2012 ضمن التعليقات الموجودة في ورقة العمل النشطة. انظر لقطات الشاشة:

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

• قم بتغيير كل تنسيقات التعليقات في الخلايا
• تغيير اسم مؤلف كل التعليقات
• سرد كافة التعليقات في ورقة عمل أو مصنف جديد
• إظهار أو إخفاء كافة التعليقات ومؤشرات التعليقات في Excel
• تحويل محتويات الخلية إلى تعليقات في Excel
• تحويل التعليقات إلى محتويات الخلايا في Excel