VBA Vælg område / celler

VBA giver dig mulighed for at vælge en celle, celleområder eller alle cellerne i regnearket. Du kan manipulere den markerede celle eller rækkevidde ved hjælp af markeringsobjektet.

Vælg en enkelt celle ved hjælp af VBA

Du kan markere en celle i et regneark ved hjælp af metoden Vælg. Følgende kode vælger celle A2 i ActiveWorksheet:

1	Område ("A2"). Vælg

Eller

1	Celler (2, 1) .Vælg

Resultatet er:

Vælg en række celler ved hjælp af VBA

Du kan vælge en gruppe celler i et regneark ved hjælp af metoden Select og området Range. Følgende kode vælger A1: C5:

1	Område ("A1: C5"). Vælg

Vælg en række ikke-sammenhængende celler ved hjælp af VBA

Du kan vælge celler eller områder, der ikke er ved siden af ​​hinanden, ved at adskille cellerne eller områderne ved hjælp af et komma i VBA. Følgende kode giver dig mulighed for at vælge celler A1, C1 og E1:

1	Område ("A1, C1, E1"). Vælg

Du kan også vælge sæt af ikke-sammenhængende intervaller i VBA. Følgende kode vælger A1: A9 og B11: B18:

1	Område ("A1: A9, B11: B18"). Vælg

Vælg alle cellerne i et regneark

Du kan markere alle cellerne i et regneark ved hjælp af VBA. Følgende kode markerer alle cellerne i et regneark.

1	Celler.Vælg

Vælg en række

Du kan vælge en bestemt række i et regneark ved hjælp af rækkeobjektet og indeksnummeret for den række, du vil markere. Følgende kode vælger den første række i dit regneark:

1	Rækker (1) .Vælg

Vælg en kolonne

Du kan vælge en bestemt kolonne i et regneark ved hjælp af kolonneobjektet og indeksnummeret for den kolonne, du vil markere. Følgende kode vælger kolonne C i dit regneark:

1	Kolonner (3) .Vælg

Vælg den sidste ikke-tomme celle i en kolonne

Lad os sige, at du har data i cellerne A1, A2, A3 og A4, og du vil gerne vælge den sidste ikke-tomme celle, som ville være celle A4 i kolonnen. Du kan bruge VBA til at gøre dette og metoden Range.End.

Det Område. Slutmetode kan tage fire argumenter, nemlig: xlToLeft, xlToRight, xlUp og xlDown.

Følgende kode vælger den sidste ikke-tomme celle, som ville være A4 i dette tilfælde, hvis A1 er den aktive celle:

1	Område ("A1"). Afslut (xlDown) .Vælg

Vælg den sidste ikke-tomme celle i en række

Lad os sige, at du har data i cellerne A1, B1, C1, D1 og E1, og du vil gerne vælge den sidste ikke-tomme celle, som ville være celle E1 i rækken. Du kan bruge VBA til at gøre dette og metoden Range.End.

Følgende kode vælger den sidste ikke-tomme celle, som ville være E1 i dette tilfælde, hvis A1 er den aktive celle:

1	Område ("A1"). Afslut (xlToRight) .Vælg

Vælg den aktuelle region i VBA

Du kan bruge CurrentRegion -ejendom af områdeobjektet for at vælge et rektangulært område af tomme og ikke-tomme celler omkring en bestemt given inputcelle. Hvis du har data i celle A1, B1 og C1, ville følgende kode vælge denne region omkring celle A1:

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

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

Vælg en celle, der er i forhold til en anden celle

Du kan bruge Offset ejendom at vælge en celle, der er i forhold til en anden celle. Følgende kode viser dig, hvordan du vælger celle B2, som er 1 række og 1 kolonne i forhold til celle A1:

1	Område ("A1"). Offset (1, 1) .Vælg

Vælg et navngivet område i Excel

Du kan vælge Navngivet Ranges såvel. Lad os sige, at du har navngivet cellerne A1: A4 Frugt. Du kan bruge følgende kode til at vælge dette navngivne område:

1	Område ("Frugt"). Vælg

Vælg en celle på et andet regneark

For at vælge en celle i et andet regneark skal du først aktivere arket ved hjælp af metoden Worksheets.Activate. Følgende kode giver dig mulighed for at vælge celle A7 på arket med navnet Sheet5:

12	Regneark ("Ark 5"). AktiverOmråde ("A1"). Vælg

Manipulering af markeringsobjektet i VBA

Når du har valgt en celle eller et celleområde, kan du henvise til markeringsobjektet for at manipulere disse celler. Følgende kode vælger cellerne A1: C1 og indstiller skrifttypen for disse celler til Arial, skrifttypevægten til fed, skrifttypestilen til kursiv og udfyldningsfarven til grøn.

123456789

Sub FormatSelection ()Område ("A1: C1"). VælgSelection.Font.Name = "Arial"Selection.Font.Bold = TrueSelection.Font.Italic = TrueSelection.Interior.Color = vbGreenAfslut Sub

Resultatet er:

Brug af With … End With Construct

Vi kan gentage ovenstående eksempel ved hjælp af Med / slut med -erklæringen til kun at henvise til markeringsobjektet én gang. Dette sparer indtastning og gør normalt din kode lettere at læse.

1234567891011

Sub UsingWithEndWithSelection ()Område ("A1: C1"). VælgMed markering.Font.Name = "Arial".Font.Bold = Sandt.Font.Italic = Sandt.Interior.Color = vbGreenAfslut medAfslut Sub