مجموعه اكواد بسيطه لتحديد نطاق العمل على الشيت - Scroll_Area_Alsqr
الكود الاول لتحديد نطاق طبقا للبيانات المدخله

Sub Scroll_Area_Alsqr()
Worksheets("ورقة1").ScrollArea = Worksheets("ورقة1").UsedRange.Address
End Sub

الكود الثانى لتحديد نطاق العمل لخلايا محدده

Sub Scroll_Area_Alsqrr()
ActiveWorkbook.Worksheets("ورقة1").ScrollArea = "A1:f10"
End Sub

الكود الثالث لالغاء التحديد نهائيا

Sub Cancel_Scroll_Area_Alsqrrr()
Worksheets("ورقة1").ScrollArea = Worksheets("ورقة1").Cells.Address
End Sub

حمل ملف التطبيق من هنا تحديد نطاق العمل Scroll_Area_Alsqr.zip

تحياتى حسام خطاب