Bu məqalədə sizə Excel-də VBA -nin UsedRange xassəsindən necə istifadə edə biləcəyinizi göstərəcəyəm. Siz UsedRange xassəsindən qapalı diapazon, səpələnmiş diapazon, qeyri-aktiv iş vərəqi və həmçinin qeyri-aktiv iş kitabı üçün istifadə etməyi öyrənəcəksiniz.

Təcrübə İş Kitabını endirin

Bu məqaləni oxuyarkən məşq etmək üçün bu iş kitabını endirin.

UsedRange Xüsusiyyətinə Giriş Excel-də VBA

VBA -nin UsedRange xassəsi Range obyektini qaytarır. O, başlanğıcda boş cərgə daxil olmaqla, iş vərəqindəki bütün xanalardan ibarət diapazonu qaytarır.

VBA kodunda, UsedRange xassəsi iş vərəqi adı ilə birlikdə istifadə edilməlidir. Beləliklə, aktiv iş vərəqi üçün UsedRange xassəsindən istifadə etmək üçün ümumi sintaksis:

Dim Rng As Range

Set Rng = ActiveSheet.UsedRange

⧭ Qeydlər:

• Burada Rng UsedRange xassəsinin qaytardığı Range -nin adıdır. İstədiyiniz hər şeyi istifadə edə bilərsiniz.
• UsedRange xassəsini aktivdən başqa iş vərəqində istifadə etmək üçün əvəzinə iş vərəqinin adından istifadə edin.

Məsələn, onu Cədvəl1 adlı iş vərəqində tətbiq etmək üçün daxil edin:

4 Yol Excel-də VBA-nın UsedRange Xüsusiyyətindən İstifadə etmək

Budur ən çox yayılmış 4 VBA -də UsedRange xassəsindən istifadə yolları.

1. Qapalı diapazon üçün VBA UsedRange Xüsusiyyəti

İlk növbədə, biz qapalı diapazonlu iş vərəqi üçün VBA UsedRange xassəsindən istifadə edəcəyik.

Bu' başlanğıcda boş cərgə də daxil olmaqla bütün diapazonu qaytaracağıq.

Burada adlar, qoşulma tarixləri və maaşlardan ibarət qapalı diapazonu ehtiva edən Cədvəl1 adlı iş vərəqimiz var. şirkətin bəzi işçiləri.

İndi bu iş vərəqində UsedRange xassəsindən istifadə etsəniz, o B2:C13 diapazonunu qaytaracaq. (Başlanğıcda boş cərgə daxil olmaqla).

Əgər Cədvəl1 aktivdirsə, istifadə edə bilərsiniz:

Dim Rng As Range

Set Rng = ActiveSheet.UsedRange

Və ya istifadə edə bilərsiniz:

Dim Rng As Range

Set Rng = Worksheets("Sheet1").UsedRange

⧭ Çıxış :

Biz kod daxilində Dərzi -nin Seç xassəsindən istifadə etdik. Beləliklə, kodu işə salsaq, o Cədvəl1 -nin B2:D13 diapazonunu seçəcək.

Ətraflı oxuyun: Excel-də VBA diapazonunun obyektindən necə istifadə etməli (5 xüsusiyyət)

2. Səpələnmiş Aralıq üçün VBA UsedRange Xüsusiyyəti

Hər hansı bir iş vərəqində səpələnmiş diapazonunuz varsa, UsedRange xassəsi aralarındakı boş xanalar daxil olmaqla diapazonu qaytaracaq.

İndi Cədvəl1 -də B3 xanasından tutmuş müxtəlif yerlərə səpələnmiş ümumi əmək haqqı, ən yüksək maaş və ən aşağı maaşımız var. G3 ,  belə edin:

İndi UsedRange xassəsindən istifadə etmək üçün iki kod sətirindən hər hansı birini istifadə edin.

Dim Rng As Range

Set Rng = ActiveSheet.UsedRange

Və ya

Dim Rng As Range

Set Rng = Worksheets("Sheet1").UsedRange

⧭ Nəticə:

Boş xanalar daxil olmaqla, Cədvəl1 B2:G3 diapazonunda olan bütün xanaları qaytarır (O cümlədən əvvəlində boş bir sıra). Biz Seç xassəsindən istifadə etdiyimiz üçün Range , o, B2:G3 diapazonunu seçəcək.

Daha çox oxuyun: Excel-də VBA-dan istifadə edən diapazonun sonu (Nümunələr ilə)

Oxşar oxunuşlar

• Excel VBA Aralığını Başqa Vərəqə Kopyalayın (8 Ən Asan Yol)
• Excel VBA (Ultimate) ilə hər bir hüceyrə üçün diapazonda dövrə edin Bələdçi)
• VBA-da Excel Subscript-in əhatə dairəsindən kənar xətası (5 həll yolu ilə)

3. Qeyri-aktiv İş Vərəqi üçün VBA UsedRange Xüsusiyyəti

Əgər biz UsedRange xassəsini qeyri-aktiv iş vərəqində tətbiq etmək istəyiriksə, siz iş vərəqinin adını əvvəlində qeyd etməlisiniz.

Məsələn, burada mənim aktiv iş vərəqim Sheet1 -dir.

UsedRange xassəsindən Sheet2 -də istifadə etmək üçün istifadə etməliyik :

Dim Rng As Range

Set Rng = Worksheets("Sheet2").UsedRange

Bu' Cədvəl2 adlı iş vərəqində istifadə olunan bütün xanaları seçəcəm.

Daha çox oxuyun: VBA diapazonunu təyin etmək üçün Excel (7 Nümunə)

4.Qeyri-aktiv İş Kitabı üçün VBA UsedRange Xüsusiyyəti

Siz hətta aktiv olmayan iş kitabı üçün UsedRange xassəsindən istifadə edə bilərsiniz. Sadəcə iş kitabının adını qabağa qoyun.

Məsələn, burada mənim aktiv iş dəftərim İş dəftəri1 -dir. UsedRange xassəsini İş dəftəri2 -nin Cədvəl1 üzərində tətbiq etmək üçün biz istifadə etməliyik:

Dim Rng As Range

Set Rng = Workbooks("Workbook2.xlsm").Worksheets("Sheet1").UsedRange

O, <1-dən Cədvəl1 iş vərəqinin istifadə olunan diapazonunu seçəcək>İş dəftəri2 .

Ətraflı oxuyun: Excel-də diapazondakı hər bir hüceyrə üçün VBA (3 üsul)

Xatırlamalılar

VBA -nin UsedRange xassəsi Range obyektini qaytarır. Bu yazıda biz vizuallaşdırma üçün Range obyektinin Select xassəsindən istifadə etdik. Ancaq aydındır ki, siz öz rahatlığınıza uyğun olaraq a Aralığın hər hansı digər xassəsindən istifadə edə bilərsiniz.

Nəticə

Bu üsullardan istifadə edərək, siz Excel-də UsedRange xassəsi. Hər hansı bir sualınız var? Bizdən soruşmaqdan çekinmeyin.