Mündəricat
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.
Excel VBA UsedRange.xlsm
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:
Set Rng = Worksheets("Sheet1").UsedRange
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.
