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

كيفية حساب عدد الخلايا مع التعليقات في إكسيل؟

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

عد عدد الخلايا التي تحتوي على تعليقات باستخدام Go To Special function

عد عدد الخلايا التي تحتوي على تعليقات بوظيفة محددة بواسطة المستخدم

عد عدد الخلايا التي تحتوي على تعليقات برمز VBA


السهم الأزرق الحق فقاعة عد عدد الخلايا التي تحتوي على تعليقات باستخدام Go To Special function

مع انتقل إلى خاص في Excel ، يمكنك تحديد جميع خلايا التعليق أولاً ، ثم عرض رقم العد في شريط الحالة.

1. اذهب للنقر الرئيسية > بحث وتحديد > انتقل إلى خاص، انظر لقطة الشاشة:

عدد المستندات-التعليقات-1

2. في انتقل إلى خاص مربع الحوار ، يرجى التحقق التعليقات الخيار تحت أختار القسم ، انظر لقطة الشاشة:

عدد المستندات-التعليقات-1

3. ثم اضغط OK زر لإغلاق مربع الحوار هذا ، وتم تحديد جميع الخلايا الموجودة في ورقة العمل النشطة والتي تحتوي على التعليق مرة واحدة. ويمكنك الحصول على عدد التعليقات في شريط الحالة. انظر لقطة الشاشة:

عدد المستندات-التعليقات-1

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

تلميح: يمكنك أيضًا الضغط على كترل + G الاختصارات لفتح إذهب إلى الحوار ، وانقر ملصقات خاصة زر للعرض انتقل إلى خاص الحوار.


السهم الأزرق الحق فقاعة عد عدد الخلايا التي تحتوي على تعليقات بوظيفة محددة بواسطة المستخدم

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

1. اضغط باستمرار على ALT + F11 مفاتيح ، ويفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.

2. انقر إدراج > وحدة، والصق الكود التالي في ملف نافذة الوحدة.

كود فبا: عد عدد الخلايا مع التعليق

Function CountComments(xCell As Range)
'Update 20140924
    Application.Volatile
    CountComments = xCell.Parent.Comments.Count
End Function

3. ثم احفظ وأغلق الكود ، عد إلى ورقة العمل ، في خلية فارغة ، يرجى إدخال هذه الصيغة: = عدد التعليقات (A1)، (A1 هو مرجع خلية ، يمكنك تغييره إلى أي عنوان خلية آخر) ، انظر الصورة:

عدد المستندات-التعليقات-1

4. ثم اضغط أدخل مفتاح ، وستحصل على عدد تعليقات الخلية.


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

يمكن أن يساعدك رمز VBA التالي أيضًا في عد جميع تعليقات الخلية بما في ذلك تعليقات الخلية الفارغة.

1. اضغط باستمرار على ALT + F11 مفاتيح ، ويفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.

2. انقر إدراج > وحدة، والصق الكود التالي في ملف نافذة الوحدة.

كود فبا: عد عدد الخلايا مع التعليق

Sub CountComments()
'Update 20140924
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeComments)
If VBA.Err > 0 Then
    MsgBox 0
Else
    MsgBox WorkRng.Count
End If
End Sub

3. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، وسيظهر مربع موجه لتذكيرك بتحديد نطاق البيانات الذي تريد حساب تعليقات الخلية. انظر لقطة الشاشة:

عدد المستندات-التعليقات-1

4. ثم انقر فوق OK، ستحصل على عدد تعليقات الخلية في التحديد.

عدد المستندات-التعليقات-1


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

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

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

كيفية إدراج تعليق بسرعة في خلايا متعددة في إكسيل؟

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

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

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

علامة تبويب kte 201905


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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Buenas tardes, me puede colaborar, que hacer para contar las celdas con comentarios dentro de un rango con Application.Volatile
This comment was minimized by the moderator on the site
sorry to say.. 9 of 10 times need the short 1 line answer. all this fancy dimm rap / buring the item need is just apita
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations