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

تنشيط ورقة عمل معينة و عمل حسابات عليها



تنشيط و اختيار ورقة العمل المسماه Customers
Worksheets("Customers").Activate



تنشيط و اختيار ورقة العمل بالاسم الكودى الخاص بها Sheet1
Sheet1.Activate



رسالة نصية بأسم ورقة العمل النشطة
msgbox ActiveSheet.name



تحديد ورقة العمل بالاسم الخاص بها
Sheets("Customers").Select



حدد ورقة العمل حسب رقم الفهرس
Worksheets(1).Select



حدد ورقة العمل الحالية
ActiveSheet.Select



قم بتعيين متغير الى ورقة العمل النشطة
Dim ws As Worksheet
Set ws = ActiveSheet



قم بتغيير اسم ورقة العمل النشطة
ActiveSheet.Name = "NewName"



قم بتغيير خواص ورقة العمل النشطة
With ActiveSheet
.Name = "StartFresh"
.Cells.Clear
.Range("A1").Value = .Name
End With



اسماء اوراق العمل فى كتاب العمل
Sub GetSelectedSheetsName()
Dim ws As Worksheet
For Each ws In ActiveWindow.SelectedSheets
MsgBox ws.Name
Next ws
End Sub



الذهاب الى ورقة العمل التالية
If ActiveSheet.Index = Worksheets.Count Then
Worksheets(1).Activate
Else
ActiveSheet.Next.Activate
End If