VBA Välj intervall / celler

Med VBA kan du välja en cell, cellintervall eller alla celler i kalkylbladet. Du kan manipulera den markerade cellen eller intervallet med hjälp av markeringsobjektet.

Välj en enda cell med VBA

Du kan välja en cell i ett kalkylblad med hjälp av Select -metoden. Följande kod väljer cell A2 i ActiveWorksheet:

1	Område ("A2"). Välj

Eller

1	Celler (2, 1) .Välj

Resultatet är:

Välj ett cellintervall med VBA

Du kan välja en grupp celler i ett kalkylblad med hjälp av Select -metoden och intervallobjektet. Följande kod väljer A1: C5:

1	Område ("A1: C5"). Välj

Välj ett antal icke-sammanhängande celler med VBA

Du kan välja celler eller intervall som inte ligger bredvid varandra genom att separera cellerna eller intervallerna med hjälp av ett kommatecken i VBA. Följande kod låter dig markera cellerna A1, C1 och E1:

1	Område ("A1, C1, E1"). Välj

Du kan också välja uppsättningar av icke-sammanhängande intervall i VBA. Följande kod väljer A1: A9 och B11: B18:

1	Område ("A1: A9, B11: B18"). Välj

Välj alla celler i ett kalkylblad

Du kan markera alla celler i ett kalkylblad med hjälp av VBA. Följande kod markerar alla celler i ett kalkylblad.

1	Celler. Välj

Välj en rad

Du kan välja en viss rad i ett kalkylblad med hjälp av radobjektet och indexnumret för den rad du vill markera. Följande kod väljer den första raden i kalkylbladet:

1	Rader (1) .Välj

Välj en kolumn

Du kan välja en viss kolumn i ett kalkylblad med hjälp av kolumnobjektet och indexnumret för den kolumn du vill markera. Följande kod väljer kolumn C i ditt kalkylblad:

1	Kolumner (3) .Välj

Välj den sista icke-tomma cellen i en kolumn

Låt oss säga att du har data i cellerna A1, A2, A3 och A4 och du vill välja den sista icke-tomma cellen som skulle vara cell A4 i kolumnen. Du kan använda VBA för att göra detta och metoden Range.End.

De Område. Slutmetod kan ta fyra argument nämligen: xlToLeft, xlToRight, xlUp och xlDown.

Följande kod kommer att välja den sista icke-tomma cellen som skulle vara A4 i detta fall, om A1 är den aktiva cellen:

1	Område ("A1"). Slut (xlDown) .Välj

Välj den sista icke-tomma cellen i en rad

Låt oss säga att du har data i cellerna A1, B1, C1, D1 och E1 och du vill välja den sista icke-tomma cellen som skulle vara cell E1 i raden. Du kan använda VBA för att göra detta och metoden Range.End.

Följande kod väljer den sista icke-tomma cellen som skulle vara E1 i detta fall, om A1 är den aktiva cellen:

1	Område ("A1"). Slut (xlToRight) .Välj

Välj den aktuella regionen i VBA

Du kan använda CurrentRegion Property av intervallobjektet för att välja ett rektangulärt område av tomma och icke-tomma celler runt en specifik given ingångscell. Om du har data i cell A1, B1 och C1, skulle följande kod välja denna region runt cell A1:

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

Så intervallet A1: C1 skulle väljas.

Välj en cell som är relaterad till en annan cell

Du kan använda Offset egendom för att välja en cell som är relativ till en annan cell. Följande kod visar hur du väljer cell B2 som är 1 rad och 1 kolumn i förhållande till cell A1:

1	Område ("A1"). Offset (1, 1) .Välj

Välj ett namngivet intervall i Excel

Du kan välja Namngivna områden också. Låt oss säga att du har namngivit cellerna A1: A4 Fruit. Du kan använda följande kod för att välja det här namngivna intervallet:

1	Område ("Frukt"). Välj

Markera en cell i ett annat kalkylblad

För att välja en cell i ett annat kalkylblad måste du först aktivera arket med metoden Arbetsblad.Aktivera. Följande kod låter dig välja cell A7 på arket Sheet5:

12	Arbetsblad ("Sheet5"). AktiveraOmråde ("A1"). Välj

Manipulera urvalsobjektet i VBA

När du väl har valt en cell eller ett cellområde kan du hänvisa till urvalsobjektet för att manipulera dessa celler. Följande kod väljer cellerna A1: C1 och anger teckensnittet för dessa celler till Arial, teckensnittsvikten till fetstil, typsnittet till kursiv och fyllningsfärgen till grön.

123456789

Sub FormatSelection ()Område ("A1: C1"). VäljSelection.Font.Name = "Arial"Selection.Font.Bold = TrueSelection.Font.Italic = TrueSelection.Interior.Color = vbGreenAvsluta Sub

Resultatet är:

Använda med … Sluta med konstruktion

Vi kan upprepa exemplet ovan med hjälp av With / End With -uttalandet för att hänvisa till urvalsobjektet bara en gång. Detta sparar typning och gör din kod vanligtvis lättare att läsa.

1234567891011

Sub UsingWithEndWithSelection ()Område ("A1: C1"). VäljMed urval.Font.Name = "Arial".Font.Bold = Sant.Font.Italic = Sant.Interior.Color = vbGreenSluta medAvsluta Sub