Работа с активной ячейкой
Свойство ActiveCell возвращает объект Range, представляющий активную ячейку. К активной ячейке можно применить любое свойство или метод объекта Range, как показано в следующем примере. Хотя можно выделить одну или несколько ячеек листа, в выделенном фрагменте только к одной ячейке можно применить свойство ActiveCell.
Sub SetValue() Worksheets("Sheet1").Activate ActiveCell.Value = 35 End Sub Примечание Работать с активной ячейкой можно только в том случае, если лист, на который она находится, является активным листом.
Перемещение активной ячейки
Чтобы указать, какая ячейка является активной, используйте метод Range .Activate. Например, в следующей процедуре ячейка B5 назначается активной с последующим ее форматированием полужирным шрифтом.
Sub SetActive_MakeBold() Worksheets("Sheet1").Activate Worksheets("Sheet1").Range("B5").Activate ActiveCell.Font.Bold = True End Sub Примечание Чтобы выбрать диапазон ячеек, используйте метод Select . Чтобы сделать одну ячейку активной, используйте метод Activate.
Для перемещения активной ячейки используйте свойство Offset. Следующая процедура вставляет текст в активную ячейку в выбранном диапазоне, а затем перемещает активную ячейку вправо на одну ячейку, не изменяя выделенный фрагмент.
Sub MoveActive() Worksheets("Sheet1").Activate Range("A1:D10").Select ActiveCell.Value = "Monthly Totals" ActiveCell.Offset(0, 1).Activate End Sub Выделение ячеек вокруг активной ячейки
Свойство CurrentRegion возвращает диапазон или «остров» ячеек, ограниченный пустыми строками и столбцами. В следующем примере выделенный фрагмент расширяется для включения ячеек, содержащих данные, непосредственно примыкающие к активной ячейке. Затем этот диапазон форматируется с использованием денежного стиля.
Sub Region() Worksheets("Sheet1").Activate ActiveCell.CurrentRegion.Select Selection.Style = "Currency" End Sub Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.
Обратная связь
Были ли сведения на этой странице полезными?
Как сделать активную ячейку в excel
Учебник по Excel
Вопросы и ответы по «Учебник по Excel»
Вопрос и ответы были вам полезны?
Да
Нет
Попробуйте также:
Похожие вопросы :
- Числа и слова в таблице (Ответов: 2)
- как сделать чтоб в нужной ячейке цифры от 1-10 были черные ,другие красные (Ответов: 1)
- Как перенести с сайта Таблицу в Эксель? (Ответов: 0)
- Вывод числа в другую ячейку, с прибавлением (Ответов: 3)
- Подскажите пожалуйста, как сделать ссылку на формулу? (Ответов: 1)
- Есть ячейка с описанием, как найти в нём слова и заменить их значением из ячеек? (Ответов: 1)
- Имя ячейки обычно задаётся буквой и цифрой. Вчера обнаружил на работе, что в нужном. (Ответов: 1)
- Нужна формула (Ответов: 1)
- Как сделать зависимость множества ячеек, обходясь лишь одной ячейкой (Ответов: 0)
- Здравствуйте! Подскажите пожалуйста! Как сделать так, чтобы в лист с разными. (Ответов: 0)
Выделение активной ячейки, строки или столбца
В следующих примерах кода показаны способы выделения активной ячейки или строк и столбцов, содержащих активную ячейку. В этих примерах используется событие SelectionChange объекта Worksheet.
Пример кода предоставил: Том Уртис, Atlas Programming Management
Выделение активной ячейки
В следующем примере кода показано, как удалить цвет во всех ячейках листа, присвоив свойству ColorIndex значение 0, а затем выделить активную ячейку, присвоив свойству ColorIndex значение 8 (бирюзовый).
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = False ' Clear the color of all the cells Cells.Interior.ColorIndex = 0 ' Highlight the active cell Target.Interior.ColorIndex = 8 Application.ScreenUpdating = True End Sub Выделение всей строки и столбца, содержащих активную ячейку
В следующем примере кода показано, как удалить цвет во всех ячейках листа, присвоив свойству ColorIndex значение 0, а затем выделить всю строку и столбец, содержащие активную ячейку, с помощью свойств EntireRow и EntireColumn.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub Application.ScreenUpdating = False ' Clear the color of all the cells Cells.Interior.ColorIndex = 0 With Target ' Highlight the entire row and column that contain the active cell .EntireRow.Interior.ColorIndex = 8 .EntireColumn.Interior.ColorIndex = 8 End With Application.ScreenUpdating = True End Sub Выделение строки и столбца, содержащих активную ячейку, в текущей области
В следующем примере кода показано, как удалить цвет во всех ячейках листа, присвоив свойству ColorIndex значение 0, а затем в текущей области выделить строку и столбец, содержащие активную ячейку, используя свойство CurrentRegion объекта Range.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) ' Clear the color of all the cells Cells.Interior.ColorIndex = 0 If IsEmpty(Target) Or Target.Cells.Count > 1 Then Exit Sub Application.ScreenUpdating = False With ActiveCell ' Highlight the row and column that contain the active cell, within the current region Range(Cells(.Row, .CurrentRegion.Column), Cells(.Row, .CurrentRegion.Columns.Count + .CurrentRegion.Column - 1)).Interior.ColorIndex = 8 Range(Cells(.CurrentRegion.Row, .Column), Cells(.CurrentRegion.Rows.Count + .CurrentRegion.Row - 1, .Column)).Interior.ColorIndex = 8 End With Application.ScreenUpdating = True End Sub Об участнике
Том Уртис, MVP — основатель компании Atlas Programming Management, создающей полноценные бизнес-решения для Microsoft Office и Excel в Кремниевой долине. Том обладает больше чем 25 годами опыта управления бизнесом и разработки приложений для Microsoft Office, а также является соавтором книги «Holy Macro! It’s 2,500 Excel VBA Examples».
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.
Свойство Window.ActiveCell (Excel)
Возвращает объект Range, представляющий активную ячейку в активном окне (окно сверху) или в указанном окне. Если окно не отображает лист, это свойство приводит к ошибке. Только для чтения.
Синтаксис
выражение.ActiveCell
Выражение Переменная, представляющая объект Window .
Примечания
Если не указать квалификатор объекта, это свойство возвращает активную ячейку в активном окне.
Не путайте активную ячейку и выделенный фрагмент. Активная ячейка — это одна ячейка в текущем выделенном фрагменте. В выделенном фрагменте может быть несколько ячеек, но только одна ячейка является активной.
Все приведенные ниже выражения возвращают активную ячейку и являются эквивалентными.
ActiveCell Application.ActiveCell ActiveWindow.ActiveCell Application.ActiveWindow.ActiveCell Пример
В этом примере используется окно сообщения для отображения значения в активной ячейке. Так как свойство ActiveCell приводит к ошибке, если активное окно не является листом, в примере активируется лист Sheet1 перед использованием свойства ActiveCell.
Worksheets("Sheet1").Activate MsgBox ActiveCell.Value В этом примере изменяется форматирование шрифта для активной ячейки.
Worksheets("Sheet1").Activate With ActiveCell.Font .Bold = True .Italic = True End With Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.
Обратная связь
Были ли сведения на этой странице полезными?
Обратная связь
Отправить и просмотреть отзыв по