Worksheet Method Part-1

Worksheet Method

أشهر الأساليب للكائن ورقة العمل
Activate Worksheet method
Copy Worksheet method
Delete Worksheet Method
Move Worksheet Method
Select Worksheet method
Protect Worksheet method
UnProtect Worksheet Method

Activate Worksheet method

تنشيط ورقة العمل

عندما نعمل مع أوراق متعددة في مصنف ، إذا أردنا نقل أو الانتقال إلى ورقة أخرى في نفس المصنف أو إلى مصنف آخر ، فإننا نستخدم طريقة تنشيط ورقة العمل ، ولها طريقتين فى بناء الجملة الخاصة بها

Syntax

Worksheets("Your Workbook Name").Activate

Worksheets([Workbook Number]).Activate

'https://elshriefacademy.blogspot.com

Sub Activate_Sheetby_WorksheetNeam()

     Worksheets("Sheet1").Activate
     'OR You Can Use
     'Sheets("Sheet1").Activate

End Sub

'Next Syntax

Sub Activate_Sheetby_WorksheetNeam()
      Worksheets(2).Activate
      'OR You Can Use
      'Sheets(2).Activate
End Sub

Copy Worksheet method

نسخ ورقة عمل موجودة

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

Syntax

      ([Sheets("Worksheet Number").Copy([Before], [After

Before سيتم نسخ ورقة العمل قبل ورقة العمل المحددة.
After سيتم نسخ ورقة العمل بعد ورقة العمل المحددة.
Copy تمثل اسلوب كائن ورقة العمل.

'https://elshriefacademy.blogspot.com

Sub Copy_To_Beginning_ByNeam()

     Worksheets("Sheet3").Copy Before:=Worksheets(1)

End Sub

'-----------------------

Sub Copy_To_Beginning_ByNum()

      ActiveSheet.Copy Before:=Worksheets(1)

End Sub

'-----------------------

Sub Copy_To__End_ByNeam()

      Worksheets("Sheet3").Copy After:=Worksheets(Worksheets.Count)

End Sub

'-----------------------

Sub Copy_To__End_ByNum()

      ActiveSheet.Copy After:=Worksheets(Worksheets.Count)

End Sub

Delete Worksheet Method

حذف ورقة عمل

عند استخدامك اسلوب الحذف يظهر لك مربع حوار ويعرض عليك اما التأكيد على الحذف أو التراجع.
تذكر أنه عند تأكيد حذف ورقة العمل لا يمكنك التراجع عن ذلك.

Syntax   

 Worksheets("YourSheetName").Delete

Delete تمثل اسلوب كائن ورقة العمل.

أمثلة :

Sheets("Sheet2").Delete

Or

Sheet2.Delete

لحذف الورقة النشطة استخدم

ActiveSheet.Delete

فى حالة أردت حذف ورقة العمل بدون اظهار رسالة التنبيه يمكنك استخدام الشفرة التالية

'https://elshriefacademy.blogspot.com

Sub WithoutWarningMessage()

    Application.DisplayAlerts =False
    Sheets("Sheet2").Delete
    Application.DisplayAlerts =True

End Sub

Move Worksheet Method

نقل ورقة العمل من موقع واحد إلى موقع آخر في نفس المصنف أو مصنف جديد أو مصنف آخر.

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

Syntax

([Sheets("Worksheet Number").Move([Before], [After

Before سيتم نقل ورقة العمل قبل ورقة العمل المحددة.
After سيتم نقل ورقة العمل بعد ورقة العمل المحددة.
Move تمثل اسلوب كائن ورقة العمل.

'https://elshriefacademy.blogspot.com

Sub MoveBeginningByNum()

     'Move the active sheet to the beginning
     ActiveSheet.Move Before:=Worksheets(1)

End Sub

'-----------------------

Sub MoveEnd()

     'Move the active sheet to the end
     ActiveSheet.Move After:=Worksheets(Worksheets.Count)

End Sub

'-----------------------

Sub MoveBefore()

     'Move Sheet 1 before Sheet 3
     Sheets("Sheet1").Move Before:=Sheets("Sheet3")

End Sub

'-----------------------

Sub MoveToSpecificWorkbook()

     'Move the active sheet to the beginning of named Workbook.
     'Replace YourWorkbook.xls with the full name of the target workbook you want.
     ActiveSheet.Move Before:=Workbooks("YourWorkbook.xls").Sheets(1)

End Sub

'-----------------------

Sub MoveToNew()

     'Move the active sheet to a new Workbook.
     ActiveSheet.Move

End Sub