Высокоуровневые методы информатики и программирования. Степанов А.Г. - 9 стр.

UptoLike

Составители:

Рубрика:

и выплаченной заработной платы. Записывался макрос с именем Рас-

чет_заработной_платы. Текст макроса имеет вид:

Sub Расчет_заработной_платы()

' Расчет _заработной_платы Макрос

' Макрос записан 01.12.2005 (Администратор)

Range("C2").Select

ActiveCell.FormulaR1C1 = "=RC[-1]*R7C3"

Range("D2").Select

ActiveCell.FormulaR1C1 = "=RC[-2]-RC[-1]"

Range("C2:D2").Select

Selection.AutoFill Destination:=Range("C2:D5"), Type:=xlFillDefault

Range("C6").Select

ActiveCell.FormulaR1C1 = "=SUM(R[-4]C:R[-1]C)"

Range("D6").Select

ActiveCell.FormulaR1C1 = "=SUM(R[-4]C:R[-1]C)"

End Sub

Рис. 1. Пример таблицы

В рассматриваемом примере первый оператор представляет собой заголо-

вок процедуры. Имя процедуры совпадает с именем макроса. Следующие шесть

строчек созданы системой в виде автоматически вставляемого комментария.

Первый исполняемый оператор программы Range("C2").Select создан систе-

мой в виде выражения, которое содержит в терминологии VBA свойство Range в со-

четании с методом Select. Обратите внимание на то, что свойство имеет записанный

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

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

A1, с которой началось программирование макроса.

С помощью Help-системы разберитесь с назначением свойства Range. Для

этого установите в окне модуля маркер на текст Range и нажмите клавишу F1. Если

вы испытываете затруднения с чтением текста на английском языке, который ис-

пользуется Help-системой, воспользуйтесь дополнительной русскоязычной литера-