Wybierz zakres / komórki VBA

VBA pozwala wybrać komórkę, zakresy komórek lub wszystkie komórki w arkuszu. Zaznaczoną komórką lub zakresem można manipulować za pomocą obiektu zaznaczenia.

Wybierz pojedynczą komórkę za pomocą VBA

Możesz zaznaczyć komórkę w arkuszu za pomocą metody Select. Poniższy kod wybierze komórkę A2 w ActiveWorksheet:

1	Zakres ("A2"). Wybierz

Lub

1	Komórki (2, 1). Wybierz

Wynik to:

Wybierz zakres komórek za pomocą VBA

Grupę komórek w arkuszu można zaznaczyć za pomocą metody Wybierz i obiektu Zakres. Poniższy kod wybierze A1:C5:

1	Zakres ("A1:C5").Wybierz

Wybierz zakres nieciągłych komórek za pomocą VBA

Możesz zaznaczyć komórki lub zakresy, które nie sąsiadują ze sobą, oddzielając komórki lub zakresy przecinkiem w języku VBA. Poniższy kod pozwoli Ci wybrać komórki A1, C1 i E1:

1	Zakres ("A1, C1, E1"). Wybierz

Możesz także wybrać zestawy nieciągłych zakresów w VBA. Poniższy kod wybierze A1:A9 i B11:B18:

1	Zakres("A1:A9, B11:B18").Wybierz

Wybierz wszystkie komórki w arkuszu

Możesz zaznaczyć wszystkie komórki w arkuszu za pomocą VBA. Poniższy kod zaznaczy wszystkie komórki w arkuszu.

1	Komórki.Wybierz

Wybierz wiersz

Możesz wybrać określony wiersz w arkuszu za pomocą obiektu Row i numeru indeksu wiersza, który chcesz zaznaczyć. Poniższy kod wybierze pierwszy wiersz w arkuszu:

1	Wiersze(1).Wybierz

Wybierz kolumnę

Możesz wybrać określoną kolumnę w arkuszu za pomocą obiektu Kolumna i numeru indeksu kolumny, którą chcesz wybrać. Poniższy kod wybierze kolumnę C w arkuszu:

1	Kolumny(3).Wybierz

Wybierz ostatnią niepustą komórkę w kolumnie

Załóżmy, że masz dane w komórkach A1, A2, A3 i A4 i chcesz wybrać ostatnią niepustą komórkę, która byłaby komórką A4 w kolumnie. W tym celu możesz użyć VBA i metody Range.End.

ten Metoda Range.End może przyjąć cztery argumenty, a mianowicie: xlToLeft, xlToRight, xlUp oraz xlW dół.

Poniższy kod wybierze ostatnią niepustą komórkę, która w tym przypadku byłaby A4, jeśli A1 jest aktywną komórką:

1	Zakres("A1").End(xlDown).Wybierz

Wybierz ostatnią niepustą komórkę w rzędzie

Załóżmy, że masz dane w komórkach A1, B1, C1, D1 i E1 i chcesz wybrać ostatnią niepustą komórkę, która byłaby komórką E1 w wierszu. W tym celu możesz użyć VBA i metody Range.End.

Poniższy kod wybierze ostatnią niepustą komórkę, która w tym przypadku byłaby E1, jeśli A1 jest aktywną komórką:

1	Zakres("A1").End(xlToRight).Select

Wybierz aktualny region w VBA

Możesz użyć Właściwość bieżącego regionu Obiektu zakresu w celu wybrania prostokątnego zakresu pustych i niepustych komórek wokół określonej komórki wejściowej. Jeśli masz dane w komórce A1, B1 i C1, poniższy kod wybierze ten region wokół komórki A1:

1	Zakres("A1").CurrentRegion.Select

Wybrany zostanie więc zakres A1:C1.

Wybierz komórkę powiązaną z inną komórką

Możesz użyć Właściwość przesunięcia aby wybrać komórkę, która jest względna do innej komórki. Poniższy kod pokazuje, jak wybrać komórkę B2, która ma 1 wiersz i 1 kolumnę względem komórki A1:

1	Zakres("A1").Przesunięcie(1,1)).Wybierz

Wybierz nazwany zakres w Excelu

Możesz wybrać Nazwane zakresy także. Załóżmy, że nazwałeś komórki A1:A4 Owoce. Możesz użyć następującego kodu, aby wybrać ten nazwany zakres:

1	Zakres ("Owoce").Wybierz

Zaznaczanie komórki w innym arkuszu

Aby wybrać komórkę w innym arkuszu, musisz najpierw aktywować arkusz za pomocą metody Worksheets.Activate. Poniższy kod pozwoli Ci wybrać komórkę A7 na arkuszu o nazwie Sheet5:

12	Arkusze ("Arkusz5"). AktywujZakres ("A1"). Wybierz

Manipulowanie obiektem wyboru w VBA

Po zaznaczeniu komórki lub zakresu komórek możesz odwołać się do Obiektu zaznaczenia, aby manipulować tymi komórkami. Poniższy kod zaznacza komórki A1:C1 i ustawia czcionkę tych komórek na Arial, grubość czcionki na pogrubienie, styl czcionki na kursywę, a kolor wypełnienia na zielony.

123456789

Wybór formatu podrzędnego()Zakres("A1:C1").WybierzSelection.Font.Name = "Arial"Zaznaczenie.Czcionka.Pogrubienie = PrawdaZaznaczenie.Czcionka.Kursywa = PrawdaWybór.Kolor.wnętrza = vbGreenNapis końcowy

Wynik to:

Korzystanie z… Zakończ z konstrukcją

Możemy powtórzyć powyższy przykład, używając instrukcji With / End With, aby odwołać się do obiektu wyboru tylko raz. Oszczędza to pisanie i zwykle ułatwia odczytywanie kodu.

1234567891011

Sub UżywającZEndWithSelection()Zakres("A1:C1").WybierzZ zaznaczeniem.Font.Name = "Arial".Czcionka.Pogrubienie = Prawda.Font.Italic = Prawda.Interior.Color = vbGreenKończyć zNapis końcowy