كيف تسرد جميع التعليقات على ورقة عمل أو مصنف جديد في 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. ثم اضغط زر لتشغيل الكود ، وستحصل على ورقة عمل جديدة بها جميع التعليقات الموجودة في المصنف الحالي. انظر لقطة الشاشة:
قم بسرد كافة التعليقات في ورقة عمل أو مصنف جديد بنقرة واحدة
مع إنشاء قائمة التعليقات of كوتولس ل إكسيل، يمكنك سرد كافة التعليقات بسرعة على ورقة عمل جديدة أو مصنف جديد.
كوتولس ل إكسيل: مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود خلال 30 يومًا. احصل عليه الآن.
1. إذا قمت بتثبيت كوتولس ل إكسيل ، انقر فوق كوتولس > المزيد > إنشاء قائمة التعليقات، انظر لقطة الشاشة:
2. في إنشاء قائمة التعليقات صندوق المحادثة:
- حدد النطاق الذي تريده لإدراج التعليق ، يمكنك اختياره الورقة النشطة or كل الأوراق.
- ثم حدد الموقع الذي تريد وضع قائمة التعليقات فيه ، يمكنك سرد التعليقات في مصنف جديد أو ورقة جديدة ، انظر لقطة الشاشة:
3. ثم انقر فوق إنشاءزر. ستتم إضافة ورقة عمل جديدة لسرد كافة تعليقات ورقة العمل النشطة بسماتها مثل اسم الورقة ومراجع الخلايا والصف والعمود. انظر لقطة الشاشة:
للحصول على معلومات أكثر تفصيلا حول إنشاء قائمة التعليقات، يرجى زيارة وصف ميزة إنشاء قائمة التعليقات.
مقالات ذات صلة:
- قم بتغيير كل تنسيقات التعليقات في الخلايا
- تغيير اسم مؤلف كل التعليقات
- البحث عن واستبدال النص داخل التعليقات
- إظهار أو إخفاء كافة التعليقات ومؤشرات التعليقات في Excel
- تحويل محتويات الخلية إلى تعليقات في Excel
- تحويل التعليقات إلى محتويات الخلايا في Excel
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!