Методы Методы Select и Activate

Метод Select выделяет интервал ячеек.

Синтаксис object.Select(Replace)

• object – выделяемый объект типа Range. Ссылка на объект обязательна;

• Replace – для расширения выделения аргумент устанавливается в False. Если аргумент не задан или принимает значение True, то вместо старой области выделения создается новая область выделения. Необязательный параметр.

Метод Activate активизирует единственную ячейку.

Синтаксис object.Activate

• object – активизируемая ячейка. Ссылка на объект обязательна.

Примеры

Оператор	Активная ячейка
Range("C7:E9").Select	C7
Range("C7:E9").Offset(1,1).Activate	D8
Range("C7:E9").Activate	C7
Range("C7:E9").Cells(2,1)Activate	C8

Замечания

• Активная ячейка выделяется фоном среди всех выделенных ячеек.

• Метод Select выделяет интервал ячеек, тогда как метод Activate активизирует только одну ячейку.

• При использовании метода Select первая ячейка интервала становится активной.

• Если выделена только одна ячейка, то она является активной и свойства ActiveCell и Selection возвращают одну и ту же ячейку (объект Range).

Метод Clear

Очищает интервал ячеек, изменяя таким образом свойство Value каждой ячейки интервала.

Пример

Процедура очищает интервал ячеек или заполняет его единицами в зависимости от значений ячеек. Дополнительно изменяется шрифт и размер шрифта.

Sub Ch_Format(FontName As String, Optional FontSize As Variant) ' Вызываемая процедура Selection.Font.Name = FontName If Not IsMissing(FontSize) Then Selection.Font.Size = CInt(FontSize) Else Selection.Font.Size = 16 End If End Sub Sub Sel_Font() ' Вызывающая процедура Range ("A1:B5").Select For Each c In Range("A1: B5") If c.Value <> vbEmpty Then n = 1 Exit For End If Next c If n = 0 Then Range("A1: B5").Value = 1 Ch_Format "Times New Roman", 10 Else Range("A1: B5").Clear Ch_Format "Times New Roman" End If End Sub

Название шрифта является обязательным параметром вызываемой процедуры, а размер шрифта является необязательным параметром процедуры. Если он не задан, то размер шрифта принудительно меняется на 16. Вызывающая процедура проверяет, является ли интервал ячеек A1:B5 пустым. Если это не так, то интервал очищается и размер шрифта устанавливается в 16. Если же интервал ячеек пуст, то все ячейки интервала заполняются единицами и размер шрифта интервала ячеек равен 10. В обоих случаях шрифт ячеек интервала A1:B5 устанавливается в Times New Roman.