Ovaj vodič će objasniti kako koristiti Trenutnu regiju u VBA -i.
The CurrentRegion Svojstvo u VBA -u je način odabira svih ćelija koje se nalaze u rasponu s kojima biste možda htjeli raditi. Sve dok su stanice unutar raspona sve uzastopne ili se "dodiruju", CurrentRegion odabrat će svaku ćeliju u regiji.
Sintaksa CurrentRegion
Sintaksa je vrlo jednostavna:
| 1 | Raspon ("E11"). CurrentRegion. Odaberite |
gdje biste naveli ćeliju čiju trenutnu regiju želite odabrati, a zatim upotrijebiti CurrentRegion.Odaberi svojstvo za odabir raspona ćelija.
Dobivanje trenutne regije
Razmotrite sljedeći radni list.
sljedeća podpostupka odabrala bi sve ćelije unutar baze podataka
| 1234567 | Sub FindCurrentRegion ()Dim rng As Range'postavite raspon na Cell E11Postavite rng = raspon ("E11")'odaberite trenutno područjerng.Tekuća regija.OdaberiKraj podm |
Ako pokrenemo rutinu, sve ćelije u CurrentRegion ćelije E11.
Ako uklonimo sadržaj susjednih ćelija i ponovno pokrenemo rutinu, sljedeće će biti odabrano kao trenutno područje.
Međutim, ako uklonimo još više podataka, mogli bismo završiti s primjerom u nastavku za trenutnu regiju ćelije E11.
Stavljanjem informacija u D13 dobivamo sljedeće:
The CurrentRegion stoga vraća drugu domet objekt definiran najmanjom kombinacijom zauzetih stupaca i redaka koji okružuju raspon koji ste unijeli.
Brojanje redova i stupaca u trenutnoj regiji
Možemo koristiti CurrentRegion za brojanje redaka i stupaca.
| 12345678910111213 | Sub FindCurrentRegion ()Dim rng As RangePriguši iRw kao cijeli brojZatamnite iCol kao cijeli broj'postavite rasponPostavite rng = raspon ("E11")'broji redoveiRw = rng.Terrentna regija.Redovi.Broj'broji koloneiCol = rng.CurrentRegion.Columns.Count'prikazati rezultat u okviru za porukuMsgBox ("Imamo redove" & iRw & "i stupce" & iCol & "u našoj trenutnoj regiji")Kraj podm |
Ako pokrenemo postupak, pojavit će se sljedeći okvir s porukom.
Brisanje trenutne regije
Također možemo koristiti trenutno svojstvo regije za brisanje raspona ćelija.
| 123456 | Sub ClearCurrentRegion ()Dim rng As Range'postavite rasponPostavite rng = raspon ("E11")rng.Tekuća regija.JasnoKraj podm |
Dodjeljivanje trenutne regije varijabli
Također možemo dodijeliti cijelu trenutnu regiju varijabli raspona, a zatim koristiti tu varijablu raspona za manipulaciju ćelijama - bilo da se radi o oblikovanju ćelija, sortiranju ćelija itd …
| 12345678910 | Sub AssignCurrentRegionToVariable ()Dim rng As Range'postavite raspon kao trenutno područje E11Postavite rng = raspon ("E11"). CurrentRegion'obojite pozadinu i tekstrng.Interijer.Uzorak = xlTvrdorng.Interijer.Boja = 65535rng.Font.Bold = Istinarng.Font.Boja = -16776961Kraj podm |
Ako pokrenemo gornji postupak, završit ćemo s radnim listom kako je dolje prikazano!
Dobivanje početne i završne ćelije u trenutnoj regiji
S malo složenijim kodom možemo dobiti prvu i posljednju ćeliju u trenutnoj regiji.
| 123456789101112131415161718 | Sub GetStartAndEndCells ()Dim rng As RangePriguši iRw kao cijeli brojZatamnite iCol kao cijeli brojZatamni iColStart, iColEnd, iRwStart, iRwEnd kao niz'postavite varijablu raspona na trenutno područje E11Postavite rng = raspon ("E11"). CurrentRegion'postavite početni stupac za rasponiColStart = rng.Stopac'dobiti krajnji stupac za rasponiColEnd = iColStart + (rng.Columns.Count - 1)'dobiti početni redak za rasponiRwStart = rng.Row'dohvati zadnji red za rasponiRwEnd = iRwStart + (rng.Rows.Count - 1)'prikazati adresu početnih i završnih redaka i stupaca u okviru za porukuMsgBox ("Raspon počinje na" & ćelije (iRwStart, iColStart). Adresa & "i završava na" & ćelije (iRwEnd, iColEnd). Adresa)Kraj podm |
Kada pokrenemo gornji kôd, pojavit će se sljedeći okvir s porukom
