Sadržaj
U ovom članku ću vam pokazati kako možete koristiti svojstvo UsedRange VBA u Excelu. Naučit ćete koristiti svojstvo UsedRange za zatvoreni raspon, za raštrkani raspon, za neaktivan radni list, kao i za neaktivnu radnu svesku.
Preuzmite radnu svesku za vježbu
Preuzmite ovu radnu svesku da biste vježbali dok čitate ovaj članak.
Excel VBA UsedRange.xlsm
Uvod u svojstvo UsedRange za VBA u Excel
Svojstvo UsedRange VBA vraća objekat Range . Vraća raspon koji se sastoji od svih ćelija u radnom listu koji je korišten uključujući prazan red na početku.
U VBA kodu, svojstvo UsedRange treba koristiti zajedno s nazivom radnog lista. Dakle, uobičajena sintaksa za korištenje svojstva UsedRange za aktivni radni list je:
Dim Rng As Range
Set Rng = ActiveSheet.UsedRange
⧭ Napomene:
- Ovdje Rng je ime Range koje vraća svojstvo UsedRange . Možete koristiti sve što želite.
- Da biste iskoristili svojstvo UsedRange na radnom listu koji nije aktivan, umjesto toga koristite naziv radnog lista.
Na primjer, da biste ga primijenili na radnom listu pod nazivom Sheet1 , umetnite:
Set Rng = Worksheets("Sheet1").UsedRange
4 načina da koristite UsedRange svojstvo VBA u Excelu
Evo 4 najčešćihnačini korištenja svojstva UsedRange u VBA .
1. Svojstvo VBA UsedRange za zatvoreni raspon
Pre svega, koristićemo svojstvo VBA UsedRange za radni list sa zatvorenim opsegom.
To' Vratit ću cijeli raspon uključujući prazan red na početku.
Ovdje imamo radni list pod nazivom Sheet1 koji sadrži zatvoreni raspon koji se sastoji od imena, datuma pridruživanja i plata neki zaposlenici kompanije.
Sada ako koristite svojstvo UsedRange na ovom radnom listu, vratit će raspon B2:C13 (Uključujući prazan red na početku).
Ako je Sheet1 aktivan, možete koristiti:
Dim Rng As Range
Set Rng = ActiveSheet.UsedRange
Ili možete koristiti:
Dim Rng As Range
Set Rng = Worksheets("Sheet1").UsedRange
⧭ Izlaz :
Koristili smo svojstvo Select Raspon unutar koda. Dakle, ako pokrenemo kod, on će odabrati raspon B2:D13 od Sheet1 .
Pročitajte više: Kako koristiti VBA objekt Range u Excel-u (5 svojstava)
2. Svojstvo VBA UsedRange za raštrkani raspon
Ako imate raštrkani raspon na bilo kojem radnom listu, svojstvo UsedRange će vratiti raspon uključujući prazne ćelije između.
Sada, u Stabu1 , imamo ukupnu platu, najvišu platu i najnižu platu raštrkanu na raznim mjestima, od ćelije B3 do G3 , ovako:
Sada koristite bilo koju od dvije linije kodova da koristite svojstvo UsedRange .
Dim Rng As Range
Set Rng = ActiveSheet.UsedRange
Ili
Dim Rng As Range
Set Rng = Worksheets("Sheet1").UsedRange
⧭ Izlaz:
Vraća sve ćelije unutar raspona B2:G3 od Sheet1 uključujući prazne ćelije (uključujući prazan red na početku). Kako smo koristili svojstvo Select Range , ono će odabrati raspon B2:G3.
Pročitajte više: Kraj raspona pomoću VBA u Excelu (sa primjerima)
Slična očitanja
- Excel VBA Opseg kopiranja na drugi list (8 najlakših načina)
- Peča kroz raspon za svaku ćeliju s Excel VBA (Ultimate Vodič)
- Excel Subscript Greška izvan dometa u VBA (sa 5 rješenja)
3. Svojstvo VBA UsedRange za neaktivni radni list
Ako želimo iskoristiti svojstvo UsedRange na neaktivnom radnom listu, morate spomenuti ime radnog lista na početku.
Na primjer, ovdje je moj aktivni radni list Sheet1 .
Da bismo koristili svojstvo UsedRange u Sheet2 , moramo koristiti :
Dim Rng As Range
Set Rng = Worksheets("Sheet2").UsedRange
To je Odabrat ću sve korištene ćelije na radnom listu pod nazivom Sheet2 .
Pročitajte više: VBA za postavljanje raspona u Excel (7 primjera)
4.Svojstvo VBA UsedRange za neaktivnu radnu svesku
Možete čak koristiti svojstvo UsedRange za radnu svesku koja nije aktivna. Samo stavite ime radne knjige ispred.
Na primjer, ovdje je moja aktivna radna sveska Radna sveska1 . Da bismo iskoristili svojstvo UsedRange nad Sheet1 od Workbook2 , moramo koristiti:
Dim Rng As Range
Set Rng = Workbooks("Workbook2.xlsm").Worksheets("Sheet1").UsedRange
Odabrat će korišteni raspon radnog lista Sheet1 od Radna sveska2 .
Pročitajte više: VBA za svaku ćeliju u rasponu u Excelu (3 metode)
Stvari koje treba zapamtiti
Svojstvo UsedRange VBA vraća objekt Range . Ovdje, u ovom članku, koristili smo svojstvo Select Range object radi vizualizacije. Ali očito, možete koristiti bilo koje drugo svojstvo Opseg kako vam odgovara.
Zaključak
Koristeći ove metode, možete koristiti Svojstvo UsedRange u Excelu. Imate bilo kakvih pitanja? Slobodno nas pitajte.
