ازاحة الخلايا و النطاقات


https://vimeo.com/719207488

ملاحظة
يجب العودة الى درس تحديد الخلايا حتى تستطيع عمل ازاحة لخلايا فى اوراق عمل مختلفة او كتب عمل مختلفة او غير مفتوحة



ازاحة خلية
Range("A1").Offset(2, 1).Select
هنا تم ازاحة الخلية A1 بمقدار صفين و عمود 1 ليتم تحديد الخلية B3



ازاحة خلية
Cells(4, 4).Offset(-1, -1).Select
هنا يتم ازاحة الخلية D4 بمقدار -1 صف و -1 عمود ليتم تحديد الخلية C3



ازاحة نطاق
Range("A1:A5").Offset(7, 3).Select
هنا سيتم ازاحة النطاق (A1:A5) بمقدار 7 صفوف و 3 اعمدة ليصبح (D8:D12)



ازاحة متغيير
Dim rng1 As Range
Set rng1 = Range("A1:A2")
rng1.Offset(3, 2).Select
فى السطر الاول تم الاعلان عن متغير rng1 و فى السطر الثانى تم تعيين قيمة له و هى النطاق A1:A2
ثم فى السطر الاخير تم عمل ازحة 3 صفوف و 2 عمود ليتم تحديد النطاق C4:C5