Range Method Part 2

vba,Range Method,محمود زكى الشريف,أكاديميه محمود زكى الشريف

Range Method Part 2

الجزء الثاني لأشهر الأساليب لكائن النطاق
(يرجي مشاهدة الفيديو التوضيحي المرفق)


Range Clear Method
مسح نطاق معين أو ورقة عمل بأكملها باستخدام طريقة مسح كائن المدى. 
ستعمل Rang.Clear  على مسح النطاق بما في ذلك التنسيقات مثل الحدود وأنماط الخطوط وخلفية الخلية وتعيينها على الإعداد الافتراضي.

Syntax
Range("YourRange").Clear

مثال


'https://elshriefacademy.blogspot.com

  Range("F6:H25").Clear



Range ClearComments Method
لمسح تعليقات نطاق محدد أو خلايا أو ورقة عمل بأكملها فقط.
 يمكننا استخدام طريقة ClearComments  من نطاق الكائن.
ستقوم طريقة Rang.ClearComments  بمسح التعليقات فقط في نطاق معين.
 وستظل البيانات والتنسيقات مثل الحدود وأنماط الخطوط وخلفية الخلية كما هي .

Syntax
Range("YourRange"). ClearComments

مثال


'https://elshriefacademy.blogspot.com

  Range("F6:H25").ClearComments



Range ClearContents Method
مسح محتوى نطاق أو خلايا أو ورقة عمل بأكملها.
يمكننا استخدام أسلوب ClearContents  من نطاق الكائن.
ستقوم طريقة  Rang.ClearContents بمسح البيانات الموجودة في النطاق وستظل التنسيقات مثل الحدود وأنماط الخطوط وخلفية الخلية كما هي .

Syntax
Range("YourRange"). ClearContents

مثال

'https://elshriefacademy.blogspot.com

  Range("F6:H25").ClearContents



ملحوظة هامة :-
يمكنك استخدام CurrentRegion لتحديد كامل نطاق تقع به خليه محدده .
CurrentRegion تعنى المنطقة الحالية.
ستعمل CurrentRegion على تحديد كامل النطاق المحيط من نطاق محدد.


'https://elshriefacademy.blogspot.com

  ActiveCell.CurrentRegion.ClearContents


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


Range ClearFormats Method
مسح فقط تنسيقات نطاق محدد أو خلايا أو ورقة عمل بأكملها.
يمكننا استخدام أسلوب ClearFormats  من كائن المدى.
ستعمل طريقة Rang.ClearFormats  على مسح تنسيقات الخلايا أو النطاق فقط.
لن يتم حذف البيانات والتعليقات.

Syntax
Range("YourRange"). ClearFormats

مثال

'https://elshriefacademy.blogspot.com

  Range("F6:H25").ClearFormats



Range ClearHyperlinks Method
مسح فقط الارتباطات التشعبية بنطاق محدد أو خلايا أو ورقة عمل بأكملها.
لن يتم حذف البيانات والتعليقات و التنسيقات المختلفة.

Syntax
Range("YourRange"). ClearHyperlinks

مثال

'https://elshriefacademy.blogspot.com

  Range("F6:H25").ClearHyperlinks



Range Copy Method
نسخ نطاق إلى موقع أو نطاق آخر.
طريقة Range.Copy  تنسخ وتحفظ البيانات المنسوخة في الحافظة ، ثم يمكنك تحديد أي نطاق ولصقها.
يمكنك أيضًا تحديد نطاق أثناء النسخ للصق البيانات به عن طريق تغيير الأسلوب بواسطه معلمة.

Syntax
([Range("YourRange"). Copy([Destination

مثال

'https://elshriefacademy.blogspot.com

'بواسطه هذا السطر تم النسخ للنطاق المحدد وحفظه فى الحافظه 
  Range("B2:E10").Copy
'ثم تقوم بتحديد الواجهة التى ستلصق بها البيانات التى تم نسخها  
 Range("F2").Select
 ActiveSheet.Paste
 
'OR-----------------------
'أو يمكنك اختصار الثلاثة أسطر الى سطر واحد هكذا
'Range("B2:E10").Copy Range("F2")

'OR-----------------------
'يمكنك تغيير الأسلوب بإستخدام المعلمة الاختيارية 
'Destination 
'Range("B2:E10").Copy Destination:=Range("F2") 


Range Delete Method
حذف الخلايا أو النطاق المحدد وفقاً لخيارات الاتجاه المتاح .
طريقة Range. Delete  تقوم بحذف الخلايا (ازالة ) بكامل محتوياتها ، ثم يقوم الاكسل بتعويض تلك الخلايا التى تم إزالتها حسب الاتجاهين المتاحين فقط لاغير بإستخدام المعلمة  Shift ( إما للإتجاه الى اليسار وإما الاتجاه إلى الأعلي حسب اختيار المستخدم لهذا الاتجاه ).
إذا لم يقم المستخدم بتحديد الاتجاه الذى سيتم بناء عليه تعويض الخلايا التى تم ازالتها سيقوم الاكسل تلقائيا بإختيار الاتجاه استنادا إلى شكل النطاق .

Syntax
([Range("YourRange"). Delete([Shift

كما تستخدم طريقة أو اسلوب Delete فى حذف الأسطر
Syntax
Range("YourRange").EntireRow.Delete
EntireRow تعنى الصف بأكمله

كما تستخدم طريقة أو أسلوب Delete فى حذف الأعمدة
Syntax
Range("YourRange"). EntireColumn.Delete
EntireColumn تعنى العمود بأكمله


حذف النطاق المحدد وتحريك الخلايا الى الجانب الأيسر.

'https://elshriefacademy.blogspot.com

Range("B2:E10").Delete Shift:=xlToLeft


حذف النطاق المحدد وتحريك الخلايا الى الأعلي.

'https://elshriefacademy.blogspot.com

Range("B2:E10").Delete Shift:=xlToUp


حذف كامل الصفوف بدءا من الصف الثاني وحتى الصف العاشر.

'https://elshriefacademy.blogspot.com

Range("B2:E10").EntireRow.Delete


حذف كامل الأعمدة الأربعة (B,C,D,E  ) .

'https://elshriefacademy.blogspot.com

Range("B2:E10").EntireColumn.Delete



Range Merge Method
دمج نطاق أو صفوف أو أعمدة.

Syntax
([Range("YourRange"). Merge([Across

Across تعنى (عبر) وهي معلمة اختيارية، عندما نذكرها بالسطر البرمجى 
Across as True  يعني ذلك أنه سيتم دمج الخلايا في كل صف من النطاق المحدد كخلايا مدمجة منفصلة، القيمة الافتراضية هي False.


'https://elshriefacademy.blogspot.com

Range("B2:D5").Merge

بواسطه هذا السطر تم دمج الخلايا التى بالنطاق المحدد وأصبحت خلية واحدة مدمجة ، والقيمة الافتراضية هي False.


'https://elshriefacademy.blogspot.com

 Range("B2:D5").Merge (True)

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

يمكنك استخدام طريقة أو أسلوب الدمج مع الصفوف .

'https://elshriefacademy.blogspot.com

  Range("5:10").Merge


ويمكنك استخدام اسلوب الدمج مع الأعمدة .

'https://elshriefacademy.blogspot.com

   Range("B:E").Merge


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

Developer MS Office VBA Application, Data Analyst, Designer And Developer of Blogger Templates, Microfinance, HR Specialist, leading businesses, Front End Web Developer.

More About

إرسال تعليق