كيفية البحث عن النص واستبداله داخل التعليقات (الملاحظات) في 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