VBA atlasiet diapazonu / šūnas

VBA ļauj atlasīt šūnu, šūnu diapazonus vai visas darblapas šūnas. Jūs varat manipulēt ar atlasīto šūnu vai diapazonu, izmantojot atlases objektu.

Izvēlieties vienu šūnu, izmantojot VBA

Jūs varat atlasīt šūnu darblapā, izmantojot metodi Atlasīt. Šis kods ActiveWorksheet atlasīs šūnu A2:

1	Diapazons ("A2"). Izvēlieties

Vai

1	Šūnas (2, 1). Atlasiet

Rezultāts ir šāds:

Izmantojot VBA, atlasiet šūnu diapazonu

Jūs varat atlasīt šūnu grupu darblapā, izmantojot metodi Select un Range objektu. Ar šādu kodu tiks izvēlēts A1: C5:

1	Diapazons ("A1: C5"). Atlasiet

Izmantojot VBA, atlasiet nepārtrauktu šūnu diapazonu

Jūs varat atlasīt šūnas vai diapazonus, kas nav blakus, atdalot šūnas vai diapazonus, izmantojot komatu VBA. Šis kods ļaus jums atlasīt šūnas A1, C1 un E1:

1	Diapazons ("A1, C1, E1"). Atlasiet

VBA varat atlasīt arī blakus esošo diapazonu kopas. Ar šādu kodu tiks atlasīti A1: A9 un B11: B18:

1	Diapazons ("A1: A9, B11: B18"). Atlasiet

Darblapā atlasiet Visas šūnas

Izmantojot VBA, varat atlasīt visas darblapas šūnas. Šis kods atlasīs visas darblapas šūnas.

1	Šūnas. Izvēlieties

Atlasiet rindu

Jūs varat atlasīt noteiktu rindu darblapā, izmantojot objektu Rinda un atlasāmās rindas indeksa numuru. Šis kods atlasīs darblapas pirmo rindu:

1	Rindas (1). Atlasiet

Atlasiet kolonnu

Jūs varat atlasīt noteiktu kolonnu darblapā, izmantojot kolonnu objektu un tās kolonnas indeksa numuru, kuru vēlaties atlasīt. Šis kods darblapā atlasīs C sleju:

1	Kolonnas (3). Atlasiet

Kolonnā atlasiet pēdējo šūnu, kas nav tukša

Pieņemsim, ka jums ir dati šūnās A1, A2, A3 un A4 un vēlaties atlasīt pēdējo šūnu, kas nav tukša, kas kolonnā būtu šūna A4. Lai to izdarītu, varat izmantot VBA un metodi Range.End.

The Diapazons. Beigu metode var izmantot četrus argumentus, proti: xlToLeft, xlToRight, xlUp un xlDown.

Šis kods atlasīs pēdējo šūnu, kas nav tukša un kas šajā gadījumā būtu A4, ja A1 ir aktīvā šūna:

1	Diapazons ("A1"). Beigas (xlDown). Atlasiet

Atlasiet rindā pēdējo šūnu, kas nav tukša

Pieņemsim, ka jums ir dati šūnās A1, B1, C1, D1 un E1 un vēlaties atlasīt pēdējo šūnu, kas nav tukša un kas rindā būtu šūna E1. Lai to izdarītu, varat izmantot VBA un metodi Range.End.

Šis kods atlasīs pēdējo šūnu, kas nav tukša, kas šajā gadījumā būtu E1, ja A1 ir aktīvā šūna:

1	Diapazons ("A1"). Beigas (xlToRight). Atlasiet

VBA atlasiet pašreizējo reģionu

Jūs varat izmantot Pašreizējā reģiona īpašums no diapazona objekta, lai ap konkrētu ievades šūnu atlasītu taisnstūrveida tukšu un tukšu šūnu diapazonu. Ja jums ir dati šūnās A1, B1 un C1, šāds kods atlasītu šo reģionu ap šūnu A1:

1	Diapazons ("A1"). Pašreizējais reģions. Atlasiet

Tātad tiks izvēlēts diapazons A1: C1.

Atlasiet šūnu, kas ir relatīva citai šūnai

Jūs varat izmantot Ofseta īpašums lai atlasītu šūnu, kas ir relatīva citai šūnai. Šis kods parāda, kā atlasīt šūnu B2, kas ir 1 rinda un 1 kolonna attiecībā pret šūnu A1:

1	Diapazons ("A1"). Nobīde (1, 1). Izvēlieties

Programmā Excel atlasiet nosaukto diapazonu

Jūs varat izvēlēties Nosauktie diapazoni arī. Pieņemsim, ka esat nosaucis šūnas A1: A4 augļi. Lai atlasītu šo nosaukto diapazonu, varat izmantot šādu kodu:

1	Diapazons ("Augļi"). Izvēlieties

Šūnas izvēle citā darblapā

Lai atlasītu šūnu citā darblapā, vispirms jāaktivizē lapa, izmantojot darblapas. Aktivizēt metodi. Šis kods ļaus jums atlasīt šūnu A7 lapā Sheet5:

12	Darblapas ("Sheet5"). AktivizētDiapazons ("A1"). Atlasiet

Manipulēšana ar atlases objektu VBA

Kad esat atlasījis šūnu vai šūnu diapazonu, varat atsaukties uz atlases objektu, lai manipulētu ar šīm šūnām. Ar šādu kodu tiek atlasītas šūnas A1: C1 un šo šūnu fonts tiek iestatīts uz Arial, fonta svars - treknrakstā, fonta stils - slīprakstā un aizpildījuma krāsa - zaļā krāsā.

123456789

ApakšformātsSelection ()Diapazons ("A1: C1"). AtlasietSelection.Font.Name = "Arial"Selection.Font.Bold = PatiesaSelection.Font.Italic = PatiesaAtlase.Interjers.Krāsa = vbGreenBeigu apakš

Rezultāts ir šāds:

Izmantojot ar… Beigt ar konstrukciju

Mēs varam atkārtot iepriekš minēto piemēru, izmantojot paziņojumu Ar / Beigt, lai atsauktos uz atlases objektu tikai vienu reizi. Tas ietaupa rakstīšanu un parasti padara jūsu kodu vieglāk lasāmu.

1234567891011

Sub UsingWithEndWithSelection ()Diapazons ("A1: C1"). AtlasietAr atlasi.Font.Name = "Arial".Fonts. Bold = Patiess.Fonts. Itāļu valoda = True.Interjers.Krāsa = vbZaļaBeigt arBeigu apakš