VBA Odaberite raspon / ćelije

VBA omogućuje odabir ćelije, raspona ćelija ili svih ćelija na radnom listu. Odabranom ćelijom ili rasponom možete manipulirati pomoću objekta za odabir.

Odaberite jednu ćeliju pomoću VBA

Ćeliju na radnom listu možete odabrati pomoću metode Odabir. Sljedeći kôd odabrat će ćeliju A2 na ActiveWorksheet -u:

1	Raspon ("A2"). Odaberite

Ili

1	Stanice (2, 1). Odaberite

Rezultat je:

Odaberite raspon ćelija pomoću VBA

Možete odabrati skupinu ćelija na radnom listu pomoću metode Odabir i objekta Raspon. Sljedeći kod odabire A1: C5:

1	Raspon ("A1: C5"). Odaberite

Odaberite raspon ćelija koje se ne dodiruju pomoću VBA

Možete odabrati ćelije ili raspone koji nisu jedan do drugog, odvajanjem ćelija ili raspona pomoću zareza u VBA. Sljedeći kôd omogućit će vam odabir ćelija A1, C1 i E1:

1	Raspon ("A1, C1, E1"). Odaberite

Također možete odabrati skupove nesusjednih raspona u VBA. Sljedeći kod odabire A1: A9 i B11: B18:

1	Raspon ("A1: A9, B11: B18"). Odaberite

Odaberite sve ćelije na radnom listu

Pomoću VBA možete odabrati sve ćelije na radnom listu. Sljedeći kôd odabrat će sve ćelije na radnom listu.

1	Stanice.Odaberi

Odaberite redak

Možete odabrati određeni redak na radnom listu pomoću objekta Row i indeksnog broja retka koji želite odabrati. Sljedeći kôd odabrat će prvi redak na vašem radnom listu:

1	Redovi (1) .Odaberite

Odaberite stupac

Možete odabrati određeni stupac na radnom listu pomoću objekta Stupac i indeksnog broja stupca koji želite odabrati. Sljedeći kôd odabrat će stupac C na vašem radnom listu:

1	Stupci (3). Odaberite

Odaberite posljednju ćeliju koja nije prazna u stupcu

Recimo da imate podatke u ćelijama A1, A2, A3 i A4 i želite odabrati zadnju ćeliju koja nije prazna, a to bi bila ćelija A4 u stupcu. Za to možete koristiti VBA i metodu Range.End.

The Metoda Range.End mogu uzeti četiri argumenta: xlToLeft, xlToRight, xlUp i xlDown.

Sljedeći kôd odabrat će posljednju ćeliju koja nije prazna, a koja bi u ovom slučaju bila A4, ako je A1 aktivna ćelija:

1	Raspon ("A1"). Kraj (xlDown) .Odaberite

Odaberite posljednju ćeliju koja nije prazna u retku

Recimo da imate podatke u ćelijama A1, B1, C1, D1 i E1 i želite odabrati zadnju ćeliju koja nije prazna, a to bi bila ćelija E1 u retku. Za to možete koristiti VBA i metodu Range.End.

Sljedeći kôd odabrat će posljednju ćeliju koja nije prazna, a koja bi u ovom slučaju bila E1, ako je A1 aktivna ćelija:

1	Raspon ("A1"). Kraj (xlToRight) .Odaberite

Odaberite trenutnu regiju u VBA

Možete koristiti Nekretnina CurrentRegion Range Objekta kako bi se odabrao pravokutni raspon praznih i praznih ćelija oko određene zadane ulazne ćelije. Ako imate podatke u ćeliji A1, B1 i C1, sljedeći kôd odabrao bi ovo područje oko ćelije A1:

1	Raspon ("A1"). CurrentRegion. Odaberite

Tako bi se odabrao raspon A1: C1.

Odaberite ćeliju koja je u odnosu na drugu ćeliju

Možete koristiti Offset nekretnina za odabir ćelije koja je u odnosu na drugu ćeliju. Sljedeći kôd pokazuje kako odabrati ćeliju B2 koja je 1 redak i 1 stupac u odnosu na ćeliju A1:

1	Raspon ("A1"). Odmak (1, 1). Odaberite

Odaberite Imenovani raspon u Excelu

Možete odabrati Imenovani rasponi također. Recimo da ste ćelijama dali ime A1: A4 Voće. Za odabir ovog imenovanog raspona možete koristiti sljedeći kôd:

1	Raspon ("Voće"). Odaberite

Odabir ćelije na drugom radnom listu

Da biste odabrali ćeliju na drugom radnom listu, najprije morate aktivirati list pomoću metode Worksheets.Activate. Sljedeći kôd omogućit će vam odabir ćelije A7 na listu pod nazivom Sheet5:

12	Radni listovi ("List 5"). AktivirajteRaspon ("A1"). Odaberite

Manipuliranje objektom odabira u VBA -i

Nakon što odaberete ćeliju ili raspon ćelija, možete se obratiti objektu za odabir kako biste manipulirali tim ćelijama. Sljedeći kôd odabire ćelije A1: C1 i postavlja font tih ćelija u Arial, težinu fonta podebljano, stil fonta u kurzivu, a boju ispune u zelenu.

123456789

PodformatSelection ()Raspon ("A1: C1"). OdaberiteSelection.Font.Name = "Arial"Selection.Font.Bold = TrueSelection.Font.Italic = TačnoOdabir.Interijer.Boja = vbGreenKraj podm

Rezultat je:

Korištenje With … End With Construct

Gornji primjer možemo ponoviti pomoću naredbe With / End With za upućivanje na objekt odabira samo jednom. Ovo štedi upisivanje i obično čini vaš kod lakšim za čitanje.

1234567891011

Pod UpotrebaWithEndWithSelection ()Raspon ("A1: C1"). OdaberiteS odabirom.Font.Name = "Arial".Font.Bold = Istina.Font.Italic = Istina.Interijer.Boja = vbZelenaZavrši sKraj podm