Range Method Part 1

Range Method 

أشهر الأساليب لكائن النطاق

1. Activate
2. Add Comments 
3. Advanced Filter 
4. Clear
5. ClearComments
6. ClearContents
7. ClearFormats
8. ClearHyperlinks
9. Copy
10. Cut
11. Delete
12. Merge

Range Method part-1

Range Activate Method

تنشيط النطاق

Syntax

Range("YourRange").Activate

نطاق مكون من خلية

'https://elshriefacademy.blogspot.com

 Range("A2").Activate

 'OR You Can Use-----------------------

 'Cells(2, 1).Activate

نطاق مكون من أكثر من خلية

'https://elshriefacademy.blogspot.com

  Range("A2:C3").Activate

 'OR You Can Use-----------------------

 'Range(Cells(2, 1), Cells(3, 3)).Activate

Range Add Comments Method

اضافة تعليق

Syntax

"Range("YourRange").AddCommnet "Your Text

'https://elshriefacademy.blogspot.com

  Range("A1:C2").Cells(2, 2).AddComment "Hello World"

سيتم اضافة التعليق الى الخلية B2

'https://elshriefacademy.blogspot.com

  Range("A1").Cells(1, "a").AddComment "Hello World"

سيتم اضافة التعليق الى الخلية A1

Range Advanced Filter Method

خاصية التصفية المتقدمة

Syntax

Range("YourRange").AdvancedFilter(Action As xlFilterAction

([CriteriaRange], [CopyToRange], [Unique],

XlFilterAction يمكنك اختيار طريقة عرض التصفية المتقدمة من الاختياريين التاليين :
          xlFilterInPlace ستتم التصفية فى نفس بيان النطاق المراد تصفيته وهنا يتم 
                                    الاستغناء عن CopyToRange.
         xlFilterCopy ستتم التصفية ونسخ النتائج المطلوبة ولصقها بالنطاق الذى
                                ستحدده قد يكون بنفس ورقة العمل أو بورقة عمل أخري ، 
                                وهنا يلزم استخدام CopyToRange.
CriteriaRange النطاق الذى ستضع به معايير التصفية حتى ولو كانت صيغ .
Unique تعنى (فريد) هنا يمكنك تعيينها الى القيمة المنطقية True لو أردت تصفية بيانات فريدة طبقا لمعايير التصفية.
 ويمكنك تعيينها الى القيمة المنطقية False للحصول على جميع البيانات أو السجلات الفريدة طبقا لمعيار التصفية.
 والقيمة المنطقية الإفتراضية لها False .

'https://elshriefacademy.blogspot.com

Sub RangeAdvancedFilterInPlace()

    Range("B5:D15").AdvancedFilter Action:=xlFilterInPlace, _
         CriteriaRange:=Range("B2:D3"), Unique:=False

End Sub


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


Sub RangeAdvancedFilterCopy()

   Range("B5").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("B2:D3"), CopyToRange:=Range("F5:H5"), Unique:=False

End Sub