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

كيف تسرد جميع التعليقات على ورقة عمل أو مصنف جديد في Excel؟

إذا كان لديك مصنف به عدد كبير جدًا من التعليقات ، وتريد سرد كافة التعليقات في ورقة عمل أو مصنف جديد لمراجعة جميع التعليقات ، كيف يمكنك القيام بذلك؟ يمكن أن تساعدك الطرق التالية في سرد ​​كافة تعليقات ورقة العمل / المصنف بسرعة في ورقة عمل أو مصنف جديد في Excel.

قم بسرد كافة التعليقات في ورقة عمل جديدة باستخدام رمز VBA

ضع قائمة بجميع التعليقات على ورقة عمل أو كتاب عمل جديد باستخدام Kutools for Excel


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

سوف يسرد رمز VBA التالي جميع التعليقات على ورقة عمل جديدة في المصنف الحالي. في ورقة العمل الجديدة ، ستدرج جميع تعليقات المصنف بأكمله في قائمة باسم الورقة وعنوان الخلية ومحتويات التعليق واسم الخلية. الرجاء استخدام هذه الطريقة على النحو التالي:

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

فبا: يسرد جميع التعليقات في ورقة عمل جديدة.

Sub ShowCommentsAllSheets()
'Update 20140508
Dim commrange As Range
Dim rng As Range
Dim ws As Worksheet
Dim newWs As Worksheet
Set newWs = Application.Worksheets.Add
newWs.Range("A1").Resize(1, 4).Value = Array("Sheet", "Address", "Value", "Comment")
Application.ScreenUpdating = False
On Error Resume Next
For Each ws In Application.ActiveWorkbook.Worksheets
    Set commrange = ws.Cells.SpecialCells(xlCellTypeComments)
    If Not commrange Is Nothing Then
        i = newWs.Cells(Rows.Count, 1).End(xlUp).Row
        For Each rng In commrange
            i = i + 1
            newWs.Cells(i, 1).Resize(1, 4).Value = Array(ws.Name, rng.Address, rng.Value, rng.Comment.Text)
        Next
    End If
    Set commrange = Nothing
Next
newWs.Cells.WrapText = False
Application.ScreenUpdating = True
End Sub

2. ثم اضغط قائمة التعليقات 1 زر لتشغيل الكود ، وستحصل على ورقة عمل جديدة بها جميع التعليقات الموجودة في المصنف الحالي. انظر لقطة الشاشة:

قائمة التعليقات 2


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

مع إنشاء قائمة التعليقات of كوتولس ل إكسيل، يمكنك سرد كافة التعليقات بسرعة على ورقة عمل جديدة أو مصنف جديد.

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

1. إذا قمت بتثبيت كوتولس ل إكسيل ، انقر فوق كوتولس > المزيد > إنشاء قائمة التعليقات، انظر لقطة الشاشة:

تعليقات قائمة الوثائق 3-3

2. في إنشاء قائمة التعليقات صندوق المحادثة:

  • حدد النطاق الذي تريده لإدراج التعليق ، يمكنك اختياره الورقة النشطة or كل الأوراق.
  • ثم حدد الموقع الذي تريد وضع قائمة التعليقات فيه ، يمكنك سرد التعليقات في مصنف جديد أو ورقة جديدة ، انظر لقطة الشاشة:

تعليقات قائمة الوثائق 4-4

3. ثم انقر فوق إنشاءزر. ستتم إضافة ورقة عمل جديدة لسرد كافة تعليقات ورقة العمل النشطة بسماتها مثل اسم الورقة ومراجع الخلايا والصف والعمود. انظر لقطة الشاشة:

للحصول على معلومات أكثر تفصيلا حول إنشاء قائمة التعليقات، يرجى زيارة وصف ميزة إنشاء قائمة التعليقات.


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

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

🤖 مساعد 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 (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
In the Create Comment List dialog, select the scope you want to list the comment, Active sheet or All sheets, then choose to place the comments in a new workbook or a new sheet of current workbook https://www.myloweslife.us/
This comment was minimized by the moderator on the site
Ahoj lidi. Jmenuji se Helena Karas z Praha 8. V pondelí 07/01/19 dostal jsem úver ve výši 15.000.000 Kc od Peter Krajcovic za nemovitost v Praze 2. Správný e-mail pana Krajcovic je . Jeho úver je 100% garantován. Kontaktujte jej, pokud stále hledáte pujcku.
This comment was minimized by the moderator on the site
Ahoj lidi. Jmenuji se Helena Karas z Praha 8. V pondelí 07/01/19 dostal jsem úver ve výši 15.000.000 Kc od Peter Krajcovic za nemovitost v Praze 2. Správný e-mail pana Krajcovic je . Jeho úver je 100% garantován. Kontaktujte jej, pokud stále hledáte pujcku.
This comment was minimized by the moderator on the site
But what if you are just commencing? Anyone could have to investigate on particular topic,
anyone start writing on out. This data was
required to rank web web pages

Almillat
Maninerd
hitscorner
maniwebify
This comment was minimized by the moderator on the site
I found it useful to add the following line after line 8 in the VBA code; it renames the sheet to the comments and the date created.

ActiveSheet.Name = "Comments " & Format(Now(), "DD-MMM-YY")
This comment was minimized by the moderator on the site
Oh, and one more thing. Each time I hit "Run", it opens a New Sheet with the list of comments. How can I make it add to the existing sheet without duplicating teh entries then? Thanks :)
This comment was minimized by the moderator on the site
Thank you for the VBA Code! This really helps. Is there a way in which I can see all new comments or responded to comments in the sheet in realtime? It only updates each time the workbook is opened. But not while I am working in it.
Best regards,
Loki
This comment was minimized by the moderator on the site
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations