دالة لحساب عدد اوراق العمل فى الملف

[معتصم محمد]

بسم الله الرحمن الرحيم

الإخوة الأعزاء فى هذا المنتدى

هذه الدالة تقوم بحساب عدد أوراق العمل Worksheets فى ملف العمل workbook

Function CountSheets()


CountSheets = ActiveWorkbook.Sheets.Count


End Function

هذه هى الدالة الأولى التى اقوم بكتابتها

منتظر ارائكم

[معتصم محمد]

بالنسبة للذين لا يعرفون كيفية إستخدام الكود السابق يمكنهم إتباع الخطوات التالية

1. فى ملف عمل مفتوح إضغط على Alt+F11 بذلك ستكون فى نافذة الVisual Basic Editor
2. من القائمة Insert نختار Module وبذلك نكون أدرجنا Module جديد
3. نقوم بنسخ الكود السابق ثم نقوم بلصقه فى ال Module
4. نعود للإكسل مرة أخرى من خلال الضغط على Alt+F11
5. قم بإضافة عدة صفحات جديدة
6. فى إحدى الخلايا الخالية نكتب الدالة التالية

 =countsheets()

اتمنى أن يكون الشرح واضح

تم تعديل يناير 9, 2010 بواسطه al m3tasem

[ياسر خليل أبو البراء]

تسلم الأيادي يا معتصم

إلى الأمام دائما

على فكرة المدونة الخاصة بيك رائعة

أخوك أبو البراء

[احمد فضيله]

بارك الله فيك

ممتاز يا اخي

ازادك الله علما و اياي و المسلمين

[زياد علي]

السلام عليكم

اخي المعتصم بالله

حياك الله ،،،،

منذ ان رايت اسم الظهور الخاص بك في المنتدى ،،

خطر ببالي مباشرة مدونتك التعليمية المشهورة ،،، على مشهورة بالنسبة لي ،،،

فأهلاً بك في وسط أهلك واحبابك ،،

مودتي وتقديري

[معتصم محمد]

الإخوة الأعزاء

• ziad ali
• HaNcOcK
• YasserKhalil

شكراً على هذا الإطراء

جزاكم الله خيرا وبارك الله فيكم