/ / Całe wiersze i kolumny w Excelu VBA

Całe rzędy i kolumny w Excelu VBA

Ten przykład uczy, jak wybierać całe wiersze i kolumny w Excel VBA. Jesteś gotowy?

Umieść przycisk polecenia w arkuszu i dodaj następujące wiersze kodu:

1. Poniższa linia kodu wybiera cały arkusz.

Cells.Select

Cały arkusz w Excelu VBA

Uwaga: ponieważ umieściliśmy nasz przycisk polecenia na pierwszym arkuszu roboczym, ta linia kodu wybiera cały pierwszy arkusz. Aby wybrać komórki w innym arkuszu, musisz najpierw aktywować ten arkusz. Na przykład poniższe linie kodu wybierają cały drugi arkusz roboczy.

Worksheets(2).Activate
Worksheets(2).Cells.Select

2. Poniższa linia kodu wybiera drugą kolumnę.

Columns(2).Select

Kolumna

3. Poniższa linia kodu wybiera siódmy rząd.

Rows(7).Select

Rząd

4. Aby wybrać wiele wierszy, dodaj taką linię kodu:

Rows("5:7").Select

Wiele wierszy

5. Aby wybrać wiele kolumn, dodaj taką linię kodu:

Columns("B:E").Select

Wiele kolumn

6. Uważaj, aby nie pomieszać wierszas i kolumnas właściwości z właściwościami Row i Column. Właściwości Wiersze i Kolumny zwracają obiekt Range. Właściwości Row i Column zwracają pojedynczą wartość.

Linia kodu:

MsgBox Cells(5, 2).Row

Wynik:

Właściwość wiersza

7. Wybierz komórkę D6. Poniższa linia kodu wybiera cały wiersz aktywnej komórki.

ActiveCell.EntireRow.Select

Cały rząd

Uwaga: obramowanie tylko dla ilustracji.

8. Wybierz komórkę D6. Poniższa linia kodu wprowadza wartość 2 do pierwszej komórki w kolumnie zawierającej aktywną komórkę.

ActiveCell.EntireColumn.Cells(1).Value = 2

Cała kolumna

Uwaga: obramowanie tylko dla ilustracji.

9. Wybierz komórkę D6. Poniższa linia kodu wprowadza wartość 3 do pierwszej komórki wiersza poniżej wiersza zawierającego aktywną komórkę.

ActiveCell.EntireRow.Offset(1, 0).Cells(1).Value = 3

EntireRow + Offset

Uwaga: obramowanie tylko dla ilustracji.

Przeczytaj również: