VBA Выбрать диапазон / ячейки

Содержание

VBA позволяет выбирать ячейку, диапазоны ячеек или все ячейки на листе. Вы можете управлять выбранной ячейкой или диапазоном, используя объект выбора.

Выберите одну ячейку с помощью VBA

Вы можете выбрать ячейку на листе с помощью метода Select. Следующий код выберет ячейку A2 в ActiveWorksheet:

1 Диапазон ("A2"). Выбрать

Или

1 Ячейки (2, 1) .Выберите

Результат:

Выберите диапазон ячеек с помощью VBA

Вы можете выбрать группу ячеек на листе, используя метод Select и объект Range. Следующий код выберет A1: C5:

1 Диапазон ("A1: C5"). Выберите

Выберите диапазон несмежных ячеек с помощью VBA

Вы можете выбрать ячейки или диапазоны, которые не находятся рядом друг с другом, разделив ячейки или диапазоны запятой в VBA. Следующий код позволит вам выбрать ячейки A1, C1 и E1:

1 Диапазон ("A1, C1, E1"). Выберите

Вы также можете выбрать наборы несмежных диапазонов в VBA. Следующий код выберет A1: A9 и B11: B18:

1 Диапазон ("A1: A9, B11: B18"). Выберите

Выбрать все ячейки на листе

Вы можете выбрать все ячейки на листе с помощью VBA. Следующий код выберет все ячейки на листе.

1 Cells.Select

Выберите строку

Вы можете выбрать определенную строку на листе, используя объект Row и порядковый номер строки, которую вы хотите выбрать. Следующий код выберет первую строку на вашем листе:

1 Ряды (1) .Выбрать.

Выберите столбец

Вы можете выбрать определенный столбец на листе, используя объект Column и порядковый номер столбца, который вы хотите выбрать. Следующий код выберет столбец C на вашем листе:

1 Колонны (3) .Выбрать

Выберите последнюю непустую ячейку в столбце

Допустим, у вас есть данные в ячейках A1, A2, A3 и A4, и вы хотите выбрать последнюю непустую ячейку, которая будет ячейкой A4 в столбце. Для этого можно использовать VBA и метод Range.End.

В Range.End Метод может принимать четыре аргумента, а именно: xlToLeft, xlToRight, xlUp а также xlDown.

Следующий код выберет последнюю непустую ячейку, которой в данном случае будет A4, если активная ячейка - A1:

1 Диапазон ("A1"). Конец (xlDown). Выбрать

Выбрать последнюю непустую ячейку в строке

Допустим, у вас есть данные в ячейках A1, B1, C1, D1 и E1, и вы хотите выбрать последнюю непустую ячейку, которая будет ячейкой E1 в строке. Для этого можно использовать VBA и метод Range.End.

Следующий код выберет последнюю непустую ячейку, которой в данном случае будет E1, если активная ячейка - A1:

1 Диапазон ("A1"). Конец (xlToRight) .Select

Выберите текущий регион в VBA

Вы можете использовать CurrentRegion Свойство объекта Range, чтобы выбрать прямоугольный диапазон пустых и непустых ячеек вокруг конкретной заданной ячейки ввода. Если у вас есть данные в ячейках A1, B1 и C1, следующий код выберет эту область вокруг ячейки A1:

1 Диапазон ("A1"). CurrentRegion.Select

Таким образом, будет выбран диапазон A1: C1.

Выберите ячейку, относящуюся к другой ячейке

Вы можете использовать Смещение Свойство для выбора ячейки, относящейся к другой ячейке. В следующем коде показано, как выбрать ячейку B2, которая представляет собой 1 строку и 1 столбец относительно ячейки A1:

1 Диапазон ("A1"). Смещение (1, 1). Выбрать

Выберите именованный диапазон в Excel

Вы можете выбрать Именованные диапазоны также. Допустим, вы назвали ячейки A1: A4 Fruit. Вы можете использовать следующий код, чтобы выбрать этот именованный диапазон:

1 Диапазон («Фрукты»). Выбрать

Выбор ячейки на другом листе

Чтобы выбрать ячейку на другом листе, вам сначала нужно активировать лист с помощью метода Worksheets.Activate. Следующий код позволит вам выбрать ячейку A7 на листе с именем Sheet5:

12 Рабочие листы ("Sheet5"). АктивироватьДиапазон ("A1"). Выберите

Управление объектом выделения в VBA

После того, как вы выбрали ячейку или диапазон ячеек, вы можете обратиться к объекту выбора, чтобы управлять этими ячейками. Следующий код выбирает ячейки A1: C1 и устанавливает шрифт этих ячеек на Arial, толщину шрифта на полужирный, стиль шрифта на курсив и цвет заливки на зеленый.

123456789 Выбор подформата ()Диапазон ("A1: C1"). ВыберитеSelection.Font.Name = "Arial"Selection.Font.Bold = TrueSelection.Font.Italic = TrueSelection.Interior.Color = vbGreenКонец подписки

Результат:

Использование With… End With Construct

Мы можем повторить приведенный выше пример, используя оператор With / End With, чтобы ссылаться на объект Selection только один раз. Это экономит ввод текста и обычно упрощает чтение кода.

1234567891011 Sub UsingWithEndWithSelection ()Диапазон ("A1: C1"). ВыберитеС выделением.Font.Name = "Arial".Font.Bold = True.Font.Italic = True.Interior.Color = vbGreenКонец сКонец подписки

Вы поможете развитию сайта, поделившись страницей с друзьями

wave wave wave wave wave