انتقل إلى المحتوى الرئيسي

كيفية البحث عن نص واستبداله داخل التعليقات في Excel؟

كما نعلم ، هناك وظيفة بحث واستبدال في Excel ، وباستخدام هذه الوظيفة ، يمكننا العثور على المحتوى واستبداله في الخلايا بسرعة. ولكن هل يمكننا العثور على المحتويات واستبدالها في التعليقات في Excel؟

استخدام كود فبا للبحث عن النص واستبداله داخل التعليقات

للعثور على نص واستبداله في التعليقات بسرعة وسهولة


السهم الأزرق الحق فقاعة استخدام كود فبا للبحث عن النص واستبداله داخل التعليقات

في Excel ، يبدو أنه لا توجد طريقة أخرى لحل هذه المشكلة باستثناء استخدام رمز VBA ، يمكنك استخدام رمز VBA التالي للبحث عن النص واستبداله في جميع التعليقات. على سبيل المثال ، سأستبدل 2011 بـ 2012 في جميع التعليقات في Excel.

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

فبا: البحث عن النص واستبداله في جميع التعليقات في Excel.

استبدال فرعيالتعليقات ()
Dim cmt كتعليق
خافت أسابيع كورقة عمل
خافت sFind كسلسلة
خافت s استبدال كسلسلة
خافت sCmt كسلسلة
sFind = "2011"
sReplace = "2012"
لكل أسبوع في ActiveWorkbook.Worksheets
لكل cmt في الأسابيع
sCmt = نص cmt
إذا كان InStr (sCmt، sFind) <> 0 ثم
sCmt = Application.WorksheetFunction. _
البديل (sCmt ، sFind ، sReplace)
cmt نص نص: = sCmt
إنهاء حالة
التالى
التالى
تعيين الأسابيع = لا شيء
تعيين cmt = لا شيء
نهاية الفرعية

ملحوظة: في الكود أعلاه ، يمكنك ضبط ابحث عن و استبدل متغيرات لما تبحث عنه وما تريد استبداله.

2. ثم اضغط dpc-استبدال-تعليق-1 زر لتشغيل الكود ، وسيتم استبدال 2011 في جميع التعليقات بـ 2012 في المصنف بأكمله.


السهم الأزرق الحق فقاعة أداة يدوية للبحث عن النص واستبداله في التعليقات بسرعة وسهولة

يمكننا العثور بسرعة واستبدال النص في جميع التعليقات بـ كوتولس ل إكسيلالصورة أدوات تعليق الخلية.

كوتولس ل إكسيل: مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود خلال 30 يومًا. احصل عليه الآن

إذا قمت بتثبيت Kutools for Excel ، فيمكنك بسهولة العثور على النص واستبداله في جميع التعليقات في Excel.

1. انقر كوتولس > المزيد > أدوات تعليق الخلية. انظر لقطة الشاشة:

وثيقة-استبدال-تعليق-2

2. في أدوات تعليق الخلية صندوق المحادثة:

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

وثيقة-استبدال-تعليق-3

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

وثيقة-استبدال-تعليق-4 -2 وثيقة-استبدال-تعليق-5

ملاحظات: إذا راجعت إظهار الملخص، سيكون هناك مربع مطالبة لتذكيرك بعدد تعليقات الخلية التي تم تغييرها.

للحصول على معلومات أكثر تفصيلا حول أدوات تعليق الخلية، يرجى زيارة وصف ميزة أدوات التعليق الخلوي.


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

أفضل أدوات إنتاجية المكتب

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I did it, change these 3 lines of the code above like below, Chr(10) is the key change:

If InStr(sCmt, Chr(10)) <> 0 Then

sCmt = Application.WorksheetFunction. _

Substitute(sCmt, Chr(10), sReplace)
This comment was minimized by the moderator on the site
I did it, change these 3 lines of the code above as below, Chr(10) is the key change!

If InStr(sCmt, Chr(10)) <> 0 Then

sCmt = Application.WorksheetFunction. _

Substitute(sCmt, Chr(10), sReplace)
This comment was minimized by the moderator on the site
How to replace line break in comments?
This comment was minimized by the moderator on the site
The above code turns the whole comment to bold. Normally only the title is bold in an Excel comment by default. The below code fixes the problem. Sub ReplaceComments() Dim cmt As Comment Dim wks As Worksheet Dim sFind As String Dim sReplace As String Dim lTitleLength As Long Dim sCmt As String sFind = "2011" sReplace = "2014" For Each wks In ActiveWorkbook.Worksheets For Each cmt In wks.Comments sCmt = cmt.Text If InStr(sCmt, sFind) 0 Then sCmt = Application.WorksheetFunction. _ Substitute(sCmt, sFind, sReplace) cmt.Text Text:=sCmt End If lTitleLength = InStr(cmt.Text, ":") With cmt.Shape.TextFrame .Characters(1, lTitleLength).Font.Bold = True .Characters(lTitleLength + 1, Len(cmt.Text)).Font.Bold = False End With Next Next Set wks = Nothing Set cmt = Nothing End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations