VBA Valige vahemik / lahtrid

VBA võimaldab teil valida lahtri, lahtrivahemikud või kõik töölehe lahtrid. Saate valitud lahtri või vahemikuga manipuleerida valikuobjekti abil.

Valige ühe lahtri abil VBA

Saate töölehel lahtri valida, kasutades meetodit Vali. Järgmine kood valib ActiveWorksheetis lahtri A2:

1	Vahemik ("A2"). Valige

Või

1	Lahtrid (2, 1). Valige

Tulemuseks on:

Valige VBA abil lahtrite vahemik

Saate töölehel lahtrirühma valida meetodit Vali ja objekti Vahemik kasutades. Järgmine kood valib A1: C5:

1	Vahemik ("A1: C5"). Valige

Valige VBA abil mitteseotud lahtrite vahemik

Saate valida lahtrid või vahemikud, mis ei ole üksteise kõrval, eraldades lahtrid või vahemikud komaga VBA -s. Järgmine kood võimaldab teil valida lahtrid A1, C1 ja E1:

1	Vahemik ("A1, C1, E1"). Valige

VBA-s saate valida ka külgnevate vahemike komplekte. Järgmine kood valib A1: A9 ja B11: B18:

1	Vahemik ("A1: A9, B11: B18"). Valige

Valige kõik töölehe lahtrid

VBA abil saate töölehe kõik lahtrid valida. Järgmine kood valib kõik töölehe lahtrid.

1	Lahtrid. Valige

Valige rida

Saate töölehel teatud rea valida, kasutades objekti Rida ja selle rea indeksinumbrit, mida soovite valida. Järgmine kood valib teie töölehe esimese rea:

1	Ridad (1). Valige

Valige veerg

Saate töölehel teatud veeru valida, kasutades objekti Veerg ja selle veeru indeksnumbrit, mida soovite valida. Järgmine kood valib teie töölehel veeru C:

1	Veerud (3). Valige

Valige veerus viimane tühi lahter

Oletame, et teil on andmed lahtrites A1, A2, A3 ja A4 ning soovite valida veerus viimase lahtri, mis pole tühi. Selleks saate kasutada VBA -d ja meetodit Range.End.

The Vahemik. Lõppmeetod võib tuua neli argumenti, nimelt: xlToLeft, xlToRight, xlUp ja xlAla.

Järgmine kood valib viimase lahtri, mis pole tühi ja mis oleks antud juhul A4, kui A1 on aktiivne lahter:

1	Vahemik ("A1"). Lõpp (xlDown). Valige

Valige rea viimane tühi lahter

Oletame, et teil on andmed lahtrites A1, B1, C1, D1 ja E1 ning soovite valida rea ​​viimase lahtri, mis ei ole tühi. Selleks saate kasutada VBA -d ja meetodit Range.End.

Järgmine kood valib viimase tühja lahtri, mis oleks sel juhul E1, kui A1 on aktiivne lahter:

1	Vahemik ("A1"). Lõpp (xlToRight). Valige

Valige VBA praegune piirkond

Võite kasutada Praeguse piirkonna vara vahemiku objekti, et valida konkreetse sisendlahtri ümber ristkülikukujuline tühjade ja tühjade lahtrite vahemik. Kui teil on andmeid lahtris A1, B1 ja C1, valib järgmine kood lahtri A1 ümber selle piirkonna:

1	Vahemik ("A1"). Praegune piirkond. Valige

Seega valitakse vahemik A1: C1.

Valige teise lahtri suhtes lahter

Võite kasutada Tasakaalustatud vara teise lahtri suhtes lahtri valimiseks. Järgmine kood näitab, kuidas valida lahter B2, mis on lahtri A1 suhtes 1 rida ja 1 veerg:

1	Vahemik ("A1"). Nihe (1, 1). Valige

Valige Excelis nimega vahemik

Saate valida Nimega vahemikud samuti. Oletame, et olete lahtrid nimetanud A1: A4 Puu. Selle nimega vahemiku valimiseks saate kasutada järgmist koodi:

1	Vahemik ("Puu"). Valige

Lahtri valimine teisel töölehel

Lahtri valimiseks mõnel teisel töölehel peate esmalt töölehe töölehtede abil aktiveerima. Meetodi aktiveerimine. Järgmine kood võimaldab teil valida lehe A7 lahtri nimega Sheet5:

12	Töölehed ("Sheet5"). AktiveeriVahemik ("A1"). Valige

Valikuobjektiga manipuleerimine VBA -s

Kui olete lahtri või lahtrivahemiku valinud, saate nende lahtritega manipuleerimiseks viidata valikuobjektile. Järgmine kood valib lahtrid A1: C1 ja määrab nende lahtrite fondiks Arial, fondi kaalu paksus kirjas, kirjastiili kursiivis ja täitmise värvi roheliseks.

123456789

AlamvormingSelection ()Vahemik ("A1: C1"). ValigeSelection.Font.Name = "Arial"Selection.Font.Bold = TõsiSelection.Font.Italic = TõsiValik.Sisese.Värv = vbRohelineEnd Sub

Tulemuseks on:

Kasutamine koos … Lõpeta konstrueerimisega

Võime ülaltoodud näidet korrata, kasutades lauset With / End With, et viidata valikuobjektile ainult üks kord. See säästab trükkimist ja muudab teie koodi tavaliselt hõlpsamini loetavaks.

1234567891011

Sub UsingWithEndWithSelection ()Vahemik ("A1: C1"). ValigeValikuga.Font.Name = "Arial".Font.Bold = Tõsi.Font.Italic = Tõsi.Sisustus.Värv = vbRohelineLõpetaEnd Sub