VBA-الدرس 3. العمل مع الأوراق (Worksheet)

هذه المجموعة عبارة عن مجموعة من الأوراق (Sheets) في مصنف (Workbooks). دعونا نرى ما هي الإجراءات التي يمكننا القيام بها على الملاءات.

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

أولاً ، دعنا نحاول معرفة عدد الأوراق التي يحتوي عليها كتابنا:

Sub Test() 'moonexcel.com.ua
	MsgBox (Str(Application.Workbooks.Item("Test.xls").Sheets.Count))
End Sub

باستخدام هذا الرمز ، استدعينا رسالة إلى الشاشة (MsgBox) تعرض عدد الأوراق (Sheets.Count) في المصنف (Workbooks) "Test.xls".

لا تتضمن الورقة الخلايا فحسب ، بل تشتمل أيضًا على الرسوم التخطيطية. أيضًا ، مثل ورقة الحساب ، سيتم تضمين المخطط في عدد الأوراق.

كيفية إضافة ورقة إلى كتاب

في مجموعة الأوراق ، من الممكن أيضًا إضافة الأوراق الخاصة بك ، لذلك توجد طريقة Add. تحتوي هذه الطريقة على 4 معلمات Add (Before، After، Count، Type). كل هذه المعلمات اختيارية. الأولين مسؤولان عن مكان إدخال الورقة. بعد ذلك ، عدد الأوراق المراد إدراجها Count ونوع الورقة Type. يمكن أن تكون الأنواع ، على سبيل المثال ، xlWorkSheet لجدول بيانات و xlChart للمخطط. إذا لم يتم تحديد الموقع ، فسيتم إدراج الورقة بالنسبة إلى الورقة الحالية.

Sub Test() 'moonexcel.com.ua
    Sheets.Add After:=Worksheets("Sheet3"), Count:=4
End Sub

بهذه الطريقة قمنا بإدراج 4 أوراق (Count: = 4) بعد الورقة "Sheet3". يمكنك أيضًا إدراج ورقة في نهاية الكتاب:

Sub Test() 'moonexcel.com.ua
	Worksheets.Add
	ActiveSheet.Move After:=Sheets(ActiveWorkbook.Sheets.Count)
End Sub

كيف تخفي ورقة

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

Sub Test() 'moonexcel.com.ua
	ActiveWorkbook.Sheets("Sheet3").Visible = False
End Sub