كيفية حساب الأوراق باستخدام vba؟

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

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

إليك الرمز الذي تحتاج إلى استخدامه لحساب ورقة المصنف النشطة.

 ThisWorkbook.Sheets.Count

في هذا الكود، قمت أولاً بالإشارة إلى المصنف النشط باستخدام “ThisWorkbook” والإشارة إلى جميع الأوراق، وفي النهاية استخدم طريقة العد لحساب جميع الأوراق. وإذا كنت تريد عد أوراق العمل بدلاً من الأوراق، فاستخدم الكود التالي.

 ThisWorkbook.Worksheets.Count

روابط مفيدة: تشغيل ماكرو – مسجل الماكرو – محرر Visual Basic – دليل وحدات الماكرو الشخصية

عد الأوراق من مصنف آخر

يمكنك استخدام اسم المصنف للإشارة إليه ثم عد الأوراق الموجودة فيه. افترض أنك تريد حساب الأوراق في المصنف “Book1”.

هنا هو الرمز.

 Workbooks("sample-file.xlsx").Sheets.Count

يمنحك هذا الرمز عدد الأوراق الموجودة في المصنف “sample-file.xlsx”. هناك شيء واحد عليك أن تأخذه، يجب أن يكون هذا الموثق مفتوحًا.

عد أوراق جميع المجلدات المفتوحة

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

 Sub vba_loop_all_sheets() Dim wb As Workbook Dim i As Long For Each wb In Application.Workbooks If wb.Name <> "PERSONAL.XLSB" Then i = i + wb.Sheets.Count End If Next wb MsgBox "Total sheets in all the open workbooks: " & i End Sub

عد أوراق الموثق المغلق

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

 Sub vba_count_sheets() Dim wb As Workbook Application.DisplayAlerts = False Set wb = Workbooks.Open("C:UsersDellDesktopsample-file.xlsx") ThisWorkbook.Sheets(1).Range("A1").Value _ = wb.Sheets.Count wb.Close SaveChanges:=True Application.DisplayAlerts = True End Sub

لقد قمنا بتعطيل تنبيهات العرض لفتح الملف وإغلاقه في الواجهة الخلفية.