Note: The other languages of the website are Google-translated. Back to English

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

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

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

عد عدد الأوراق في مصنف باستخدام الأمر 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 for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (15)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لحساب إجمالي الأوراق في نفس المصنف ، ما عليك سوى الانتقال إلى Formula> Define Name وإنشاء صيغة مثل CountSheets = GET.WORKBOOK (4). Type_Num 4 = عدد الأوراق في المصنف.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
آسف فريدي. طريقتك الأولى باستخدام الصيغة> تعريف الاسم لا تعمل. لديك خطأ مطبعي في مكان ما أو شيء من هذا القبيل
تم تصغير هذا التعليق بواسطة المشرف على الموقع
[اقتباس] آسف فريدي. طريقتك الأولى باستخدام الصيغة> تعريف الاسم لا تعمل. لديك خطأ مطبعي في مكان ما أو شيء من هذا القبيلبواسطة سميث[/ quote] نعم ، بدلاً من = COUNTA (INDEX (CountSheets، 0)) يجب أن تكتب = COUNTA (INDEX (CountSheets؛ 0))
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا شكرا! لقد عمل هذا بالنسبة لي بشكل رائع في Excel 2013 لحساب عدد الأوراق. من الجنون أن هناك حاجة إلى صيغة للقيام بذلك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عظيم! أنقذت الكثير من وقتي !!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا جزيلا لنشر هذه التوجيهات !! لدي كتاب عمل يحتوي على أكثر من 700 ورقة ولم أعلم أبدًا أن هناك طريقة يمكن من خلالها التفوق لحسابها من أجلي. لقد استخدمت الطريقة الأولى وعملت على أكمل وجه !!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أحبها. بفضل الكثير
تم تصغير هذا التعليق بواسطة المشرف على الموقع
= Sheet () يعمل بشكل رائع
تم تصغير هذا التعليق بواسطة المشرف على الموقع
إنه يعمل فقط 2010 والإصدار الأعلى من Excel. لا يعمل في Excel 2007
تم تصغير هذا التعليق بواسطة المشرف على الموقع
حاولت ذلك في نسخة 2007 الخاصة بي.
= COUNTA (أوراق العداد)
يعمل لدي.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
= Sheets () يعطي الإجابة. 
تم تصغير هذا التعليق بواسطة المشرف على الموقع
قمت بالترقية إلى Office 365 والآن = COUNTA (INDEX (CountSheets، 0)) ترجع دائمًا 1. هل يوجد إصلاح لبرنامج Excel 365 لتشغيل هذا؟ شكرًا ،
جيم ...
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، جيرلاند ، في مكتبي 365 ، تعمل طريقة الاسم المحدد أيضًا. يمكنك تجربة وظيفة SHEETS ، لقد قمت بتحديثها كأول طريقة في هذا البرنامج التعليمي.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
= SHEETS () في Excel 365 تُرجع 0.
= أوراق (مرجع) - إذن ما الذي يدخل في "المرجع"؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
احفظ المصنف بأكمله في ملف pdf واحد ، ثم يمكنك بسهولة حساب العدد الإجمالي للصفحات.
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL