VBA Pasirinkite diapazoną / langelius

VBA leidžia pasirinkti langelį, langelių diapazonus arba visas darbalapio ląsteles. Galite valdyti pasirinktą langelį ar diapazoną naudodami pasirinkimo objektą.

Pasirinkite vieną langelį naudodami VBA

Galite pasirinkti langelį darbalapyje naudodami pasirinkimo metodą. Šis kodas pasirinks langelį A2 „ActiveWorksheet“:

1	Diapazonas („A2“). Pasirinkite

Arba

1	Ląstelės (2, 1). Pasirinkite

Rezultatas yra toks:

Naudodami VBA pasirinkite ląstelių diapazoną

Galite pasirinkti langelių grupę darbalapyje naudodami pasirinkimo metodą ir diapazono objektą. Šis kodas pasirinks A1: C5:

1	Diapazonas („A1: C5“). Pasirinkite

Naudodami VBA, pasirinkite netoliese esančių langelių diapazoną

Galite pasirinkti langelius ar diapazonus, kurie nėra vienas šalia kito, atskirdami langelius ar diapazonus naudodami kablelį VBA. Šis kodas leis pasirinkti langelius A1, C1 ir E1:

1	Diapazonas („A1, C1, E1“). Pasirinkite

Taip pat galite pasirinkti nesibaigiančių diapazonų rinkinius VBA. Šis kodas pasirinks A1: A9 ir B11: B18:

1	Diapazonas („A1: A9, B11: B18“). Pasirinkite

Pasirinkite visas darbalapio ląsteles

Galite pasirinkti visas darbalapio ląsteles naudodami VBA. Šis kodas pasirinks visas darbalapio ląsteles.

1	Ląstelės. Pasirinkite

Pasirinkite eilutę

Galite pasirinkti tam tikrą darbalapio eilutę naudodami eilutės objektą ir norimos pasirinkti eilutės indekso numerį. Šis kodas pasirinks pirmąją darbalapio eilutę:

1	Eilutės (1). Pasirinkite

Pasirinkite stulpelį

Galite pasirinkti tam tikrą stulpelį darbalapyje naudodami objektą Stulpelis ir norimo pasirinkti stulpelio rodyklės numerį. Šis kodas jūsų darbalapyje pasirinks C stulpelį:

1	Stulpeliai (3). Pasirinkite

Stulpelyje pasirinkite paskutinę tuščią langelį

Tarkime, kad turite duomenų langeliuose A1, A2, A3 ir A4 ir norėtumėte pasirinkti paskutinį tuščią langelį, kuris būtų A4 langelis stulpelyje. Tam galite naudoti VBA ir metodą „Range.End“.

The Diapazonas. Pabaigos metodas gali pateikti keturis argumentus, būtent: xlToLeft, xlToRight, xlUp ir xlŽemyn.

Šis kodas pasirinks paskutinį tuščią langelį, kuris šiuo atveju būtų A4, jei A1 yra aktyvus langelis:

1	Diapazonas ("A1"). Pabaiga (xlDown). Pasirinkite

Pasirinkite paskutinę tuščią langelį eilutėje

Tarkime, kad turite duomenų langeliuose A1, B1, C1, D1 ir E1 ir norite pasirinkti paskutinį tuščią langelį, kuris būtų E1 langelis eilutėje. Tam galite naudoti VBA ir metodą „Range.End“.

Šis kodas pasirinks paskutinį tuščią langelį, kuris šiuo atveju būtų E1, jei A1 yra aktyvus langelis:

1	Diapazonas („A1“). Pabaiga („xlToRight“). Pasirinkite

Pasirinkite dabartinį regioną VBA

Galite naudoti „CurrentRegion“ nuosavybė diapazono objekto, kad pasirinktumėte stačiakampį tuščių ir tuščių langelių diapazoną aplink konkrečią įvesties langelį. Jei turite duomenų langeliuose A1, B1 ir C1, šis kodas pasirinktų šią sritį aplink langelį A1:

1	Diapazonas („A1“). Dabartinis regionas. Pasirinkite

Taigi būtų pasirinktas diapazonas A1: C1.

Pasirinkite langelį, kuris yra santykinis su kita langeliu

Galite naudoti Nuosavybės kompensavimas pasirinkti langelį, kuris yra santykinis su kitu langeliu. Šis kodas parodo, kaip pasirinkti langelį B2, kuris yra 1 eilutė ir 1 stulpelis, palyginti su langeliu A1:

1	Diapazonas („A1“). Poslinkis (1, 1). Pasirinkite

„Excel“ pasirinkite pavadintą diapazoną

Galite pasirinkti Pavadinti diapazonai taip pat. Tarkime, kad pavadinote ląsteles A1: A4 Fruit. Norėdami pasirinkti šį pavadintą diapazoną, galite naudoti šį kodą:

1	Diapazonas („Vaisiai“). Pasirinkite

Ląstelės pasirinkimas kitame darbalapyje

Norėdami pasirinkti langelį kitame darbalapyje, pirmiausia turite suaktyvinti lapą naudodami darbalapius. Aktyvinti metodą. Šis kodas leis jums pasirinkti langelį A7 lape, pavadintame „Sheet5“:

12	Darbo lapai („Sheet5“). AktyvintiDiapazonas („A1“). Pasirinkite

Manipuliavimas pasirinkimo objektu VBA

Pasirinkę langelį ar langelių diapazoną, galite kreiptis į pasirinkimo objektą, kad galėtumėte manipuliuoti šiomis ląstelėmis. Šis kodas pasirenka langelius A1: C1 ir nustato šių langelių šriftą į „Arial“, šrifto svorį - paryškintą, šrifto stilių - kursyvą ir užpildymo spalvą - žalią.

123456789

SubformatasSelection ()Diapazonas („A1: C1“). PasirinkiteSelection.Font.Name = "Arial"Selection.Font.Bold = TiesaSelection.Font.Italic = TiesaPasirinkimas. Interjeras. Spalva = vbŽaliaPabaiga Sub

Rezultatas yra toks:

Naudojant „With … End With Construct“

Mes galime pakartoti aukščiau pateiktą pavyzdį, naudodami teiginį su / pabaiga su nuoroda į pasirinkimo objektą tik vieną kartą. Tai taupo rašymą ir paprastai palengvina jūsų kodo skaitymą.

1234567891011

Sub UsingWithEndWithSelection ()Diapazonas („A1: C1“). PasirinkiteSu atranka.Font.Name = "Arial".Font.Bold = Tiesa.Šriftas. Itališkas = tiesa.Vidinis.Spalva = vbŽaliaPabaiga suPabaiga Sub