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

كيف تحسب عدد أوراق المصنف؟

هل فكرت يومًا في كيفية حساب عدد أوراق العمل في مصنف؟ يعد عدهم واحدًا تلو الآخر مهمة مملة ، إذا كان هناك الكثير من أوراق العمل. في الواقع ، لا توجد صيغة مباشرة لحساب عدد أوراق العمل. لكن ، هنا ، يمكنني أن أقدم لكم بعض الحيل المفيدة والسهلة للتعامل مع هذه المشكلة.

عد عدد الأوراق في دالة أوراق المصنف

عد عدد الأوراق في مصنف باستخدام الأمر Define Name

عد عدد الأوراق في مصنف برمز VBA

إظهار عدد الأوراق في مصنف بواسطة جزء التنقل فكرة جيدة 3

عد عدد الأوراق في مصنف عن طريق إنشاء قائمة بالأوراق فكرة جيدة 3


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

إذا كان إصدار Excel الخاص بك هو 2013 أو أحدث ، يمكنك استخدام الدالة SHEETS للحصول على العدد الإجمالي لأوراق المصنف الحالي.

حدد خلية فارغة من النوع = أوراق () بداخله ، اضغط على مفتاح Enter للحصول على عدد الأوراق.


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

في Excel ، يمكنك تطبيق صيغة في ميزة تعريف الاسم أولاً ، ثم حساب عدد أوراق العمل.

1. قم بتشغيل المصنف الذي تريد حساب عدد أوراق العمل.

2. انقر المعادلة > حدد الاسم، انظر لقطة الشاشة:

عدد الأوراق 1

3. وفي اسم جديد في مربع الحوار ، حدد اسمًا في ملف الاسم مربع النص ، ثم أدخل هذه الصيغة = GET.WORKBOOK (1) & T (NOW ()) إلى يعود الى مربع النص ، انظر لقطة الشاشة:

عدد الأوراق 1

4. ثم اضغط OK لإغلاق مربع الحوار هذا والعودة إلى ورقة العمل ، ثم اكتب هذه الصيغة = COUNTA (INDEX (CountSheets، 0))(الكونت في هذه الصيغة هو الاسم الذي حددته في الخطوة 3 ، يمكنك تغييره كما تريد.) إلى خلية فارغة ، انظر لقطة الشاشة:

عدد الأوراق 1

5. و اضغط أدخل المفتاح ، ستحصل على عدد أوراق العمل الخاصة بك في المصنف الحالي.

عدد الأوراق 1


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

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

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

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

كود فبا: عد عدد الأوراق في مصنف

Public Sub CountWorkSheets()
'Update 20140326
MsgBox "The total number sheets of this workbook: " & Application.Sheets.Count
End Sub

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

عدد الأوراق 1


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

إذا كان لديك كوتولس ل إكسيل مثبتًا ، يمكنك بوضوح عرض عدد الأوراق في مصنف باستخدام ملحق قائمة الإختيارات الجزء.

كوتولس ل إكسيل, مع أكثر من 300 وظائف يدوية ، تجعل مهامك أكثر سهولة. 

بعد تركيب مجاني Kutools for Excel ، يرجى القيام بما يلي:

1. انقر كوتولس > قائمة الإختيارات لتمكين جزء التنقل في يسار ورقة العمل. انظر لقطة الشاشة:
ملاحة doc 1

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

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

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


السهم الأزرق الحق فقاعة عد عدد الأوراق في مصنف عن طريق إنشاء قائمة بالأوراق

إذا كنت تعتقد أن الأساليب المذكورة أعلاه ليست مريحة ، يمكنني تقديم طريقة مستديرة لك.

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

بعد تركيب مجاني Kutools for Excel ، يرجى القيام بما يلي:

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

2. ثم في مربع حوار الفرقعة ، تحقق يحتوي على قائمة بالارتباطات التشعبية الخيار ، ولتحديد أسماء الأوراق بشكل ملائم ، يمكنك عرض فهرس الورقة في 3 أو 4 أعمدة. انظر لقطة الشاشة:
أوراق عد المستندات 2

3. انقر Ok، ثم يتم إنشاء ورقة عمل بأسماء جميع الأوراق قبل كل الأوراق ، وتحتاج فقط إلى تحديد أسماء هذه الأوراق ، وعرض نتيجة الجرد في الحالة بكالوريوسr.
doc kutools إنشاء قائمة بأسماء الأوراق 3

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

السهم الأزرق الحق فقاعة قم بإنشاء قائمة بأسماء الأوراق



Kutools for Excel: 300 + وظائف يجب أن تكون لديك في Excel ، نسخة تجريبية مجانية لمدة 30 يومًا من هنا

خيرجزء التنقل - بحث واستبدال

كوتولس ل إكسيلمتقدم بحث واستبدال وظيفة ، يمكن أن تساعدك في العثور على و
استبدل قيمة عبر أوراق ومصنفات متعددة.
ابحث عن المستند واستبدله

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

🤖 مساعد 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 (16)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Thanks!
=Sheets() worked just fine!
Before I thought I must use VBA.
Saved a lot of trouble!
Rated 5 out of 5
This comment was minimized by the moderator on the site
Save the entire workbook in single pdf then u can find easily count the total no of pages.
This comment was minimized by the moderator on the site
I upgraded to Office 365 and now=COUNTA(INDEX(CountSheets,0)) always returns 1. Is there a fix for Excel 365 to get this to work?Thanks,
Jim...
This comment was minimized by the moderator on the site
=SHEETS() in Excel 365 returns 0.
=SHEETS(reference) - so what goes in "reference"?
This comment was minimized by the moderator on the site
Hi, gerland, in my office 365, the defined name method work as well. You can try the SHEETS function, I have updated it as the first one method in this tutorial.
This comment was minimized by the moderator on the site
=Sheets()  gives the answer. 
This comment was minimized by the moderator on the site
=sheets() works great
This comment was minimized by the moderator on the site
It Works only 2010 & Higher Version of Excel. Not Working In Excel 2007
This comment was minimized by the moderator on the site
Tried it on my 2007 version.
=COUNTA(countsheets)
works for me.
This comment was minimized by the moderator on the site
I like it. Thanks too much
This comment was minimized by the moderator on the site
Thank you so much for posting these directions!! I have a workbook with over 700 sheets and never knew there was a way for excel to count them for me. I used the first method and it worked absolutely perfectly!!
This comment was minimized by the moderator on the site
Great! Saved so much of my time!!
This comment was minimized by the moderator on the site
Hi, Thanks! This worked for me great in excel 2013 to count the number of sheets. Crazy that a formula is required to do this.
This comment was minimized by the moderator on the site
Sorry Freddy. Your first method using Formula > Define Name doesn't work. You got a typo somewhere or something
This comment was minimized by the moderator on the site
[quote]Sorry Freddy. Your first method using Formula > Define Name doesn't work. You got a typo somewhere or somethingBy smith[/quote] yes, instead of =COUNTA(INDEX(CountSheets,0)) You should write =COUNTA(INDEX(CountSheets;0))
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations