VBA Velg område / celler

VBA lar deg velge en celle, celleområder eller alle cellene i regnearket. Du kan manipulere den valgte cellen eller området ved hjelp av markeringsobjektet.

Velg en enkeltcelle ved hjelp av VBA

Du kan velge en celle i et regneark ved hjelp av Select -metoden. Følgende kode vil velge celle A2 i ActiveWorksheet:

1	Område ("A2"). Velg

Eller

1	Celler (2, 1) .Velg

Resultatet er:

Velg en rekke celler ved hjelp av VBA

Du kan velge en gruppe celler i et regneark ved hjelp av Select -metoden og Range -objektet. Følgende kode vil velge A1: C5:

1	Område ("A1: C5"). Velg

Velg en rekke ikke-sammenhengende celler ved hjelp av VBA

Du kan velge celler eller områder som ikke er ved siden av hverandre, ved å skille cellene eller områdene ved hjelp av et komma i VBA. Følgende kode lar deg velge celler A1, C1 og E1:

1	Område ("A1, C1, E1"). Velg

Du kan også velge sett med ikke-sammenhengende områder i VBA. Følgende kode vil velge A1: A9 og B11: B18:

1	Område ("A1: A9, B11: B18"). Velg

Velg alle cellene i et regneark

Du kan velge alle cellene i et regneark ved hjelp av VBA. Følgende kode vil velge alle cellene i et regneark.

1	Celler. Velg

Velg en rad

Du kan velge en bestemt rad i et regneark ved hjelp av radobjektet og indeksnummeret til raden du vil velge. Følgende kode vil velge den første raden i regnearket:

1	Rader (1) .Velg

Velg en kolonne

Du kan velge en bestemt kolonne i et regneark ved å bruke kolonneobjektet og indeksnummeret til kolonnen du vil velge. Følgende kode vil velge kolonne C i regnearket:

1	Kolonner (3) .Velg

Velg den siste ikke-tomme cellen i en kolonne

La oss si at du har data i cellene A1, A2, A3 og A4, og du vil velge den siste ikke-tomme cellen som ville være celle A4 i kolonnen. Du kan bruke VBA til å gjøre dette og metoden Range.End.

De Område. Sluttmetode kan ta fire argumenter, nemlig: xlToLeft, xlToRight, xlUp og xlDown.

Følgende kode vil velge den siste ikke-tomme cellen som ville være A4 i dette tilfellet, hvis A1 er den aktive cellen:

1	Område ("A1"). Slutt (xlDown) .Velg

Velg den siste ikke-tomme cellen på rad

La oss si at du har data i cellene A1, B1, C1, D1 og E1, og du vil velge den siste ikke-tomme cellen som ville være celle E1 i rekken. Du kan bruke VBA til å gjøre dette og metoden Range.End.

Følgende kode vil velge den siste ikke-tomme cellen som ville være E1 i dette tilfellet, hvis A1 er den aktive cellen:

1	Område ("A1"). Slutt (xlToRight) .Velg

Velg gjeldende region i VBA

Du kan bruke CurrentRegion Property av områdeobjektet for å velge et rektangulært område med tomme og ikke-tomme celler rundt en bestemt gitt inngangscelle. Hvis du har data i celle A1, B1 og C1, vil følgende kode velge denne regionen rundt celle A1:

1	Område ("A1"). CurrentRegion.Select

Så området A1: C1 ville bli valgt.

Velg en celle som er i forhold til en annen celle

Du kan bruke Offset eiendom å velge en celle som er i forhold til en annen celle. Følgende kode viser deg hvordan du velger celle B2 som er 1 rad og 1 kolonne i forhold til celle A1:

1	Område ("A1"). Forskyvning (1, 1) .Velg

Velg et navngitt område i Excel

Du kan velge Navngitt Ranges også. La oss si at du har kalt cellene A1: A4 Fruit. Du kan bruke følgende kode for å velge dette navngitte området:

1	Område ("frukt"). Velg

Velge en celle i et annet regneark

For å velge en celle i et annet regneark, må du først aktivere arket ved hjelp av metoden Worksheets.Activate. Følgende kode lar deg velge celle A7, på arket Sheet5:

12	Regneark ("Ark5"). AktiverOmråde ("A1"). Velg

Manipulering av markeringsobjektet i VBA

Når du har valgt en celle eller et celleområde, kan du referere til markeringsobjektet for å manipulere disse cellene. Følgende kode velger cellene A1: C1 og setter skrifttypen til disse cellene til Arial, skriftvekten til fet skrift, skriftstilen til kursiv og fyllfargen til grønn.

123456789

Sub FormatSelection ()Område ("A1: C1"). VelgSelection.Font.Name = "Arial"Selection.Font.Bold = TrueSelection.Font.Italic = TrueSelection.Interior.Color = vbGreenSlutt Sub

Resultatet er:

Bruke With … End With Construct

Vi kan gjenta eksemplet ovenfor ved å bruke With / End With -setningen for å referere til markeringsobjektet bare én gang. Dette sparer å skrive og gjør vanligvis koden lettere å lese.

1234567891011

Sub UsingWithEndWithSelection ()Område ("A1: C1"). VelgMed utvalg.Font.Name = "Arial".Font.Bold = Sant.Font.Italic = Sant.Interior.Color = vbGreenSlutt medSlutt Sub