Основы программирования на VBA. Регеда В.В - 78 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

вставлено восемь строк кода, устанавливающих значения для всех осталь-
ных параметров. В большинстве случаев удаление этих лишних строк ни-
как не повлияет на выполнение процедуры.
За заголовком процедуры следует 12 операторов, которые последо-
вательно выделяют каждую ячейку в интервале C6:D8 и вставляют в эти
ячейки текст или формулу. Четыре последних оператора из них записыва-
ют в ячейки формулы. В них используется система адресации ячеек R1C1,
а не прямая ссылка на эту ячейку. Система адресации R1C1 означает стро-
ку (Row) и столбец (Colomn), соответствующие активной ячейке.
10.2. Оптимизция макроса
При написании той же самой процедуры вручную программный код
можно существенно сократить. Скопировать макрос через буфер обмена и
отредактировать его следующим образом:
Sub Макрос2()
Range("C6")="Стоимость"
Range("C7")="Налог"
Range("C8")="Всего"
Range("D6")= "12.43"
Range("D7")= "=R[-1]C*0.825"
Range("D8")="=R[-2]C+R[-1]C"
Range("D6:D8") = "#,##0.00$"
Range("D8").Select
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End Sub
Проверить работу отредактированного макроса Макрос2.
10.3. Автоматизация создания электронных таблиц
Создать в MS Excel программу для построения графика функции
y=x
k
. Результаты работы программы приведены на Рис. 10.2. 
вставлено восемь строк кода, устанавливающих значения для всех осталь-
ных параметров. В большинстве случаев удаление этих лишних строк ни-
как не повлияет на выполнение процедуры.
      За заголовком процедуры следует 12 операторов, которые последо-
вательно выделяют каждую ячейку в интервале C6:D8 и вставляют в эти
ячейки текст или формулу. Четыре последних оператора из них записыва-
ют в ячейки формулы. В них используется система адресации ячеек R1C1,
а не прямая ссылка на эту ячейку. Система адресации R1C1 означает стро-
ку (Row) и столбец (Colomn), соответствующие активной ячейке.
     10.2. Оптимизция макроса
     При написании той же самой процедуры вручную программный код
можно существенно сократить. Скопировать макрос через буфер обмена и
отредактировать его следующим образом:
Sub Макрос2()
     Range("C6")="Стоимость"
     Range("C7")="Налог"
     Range("C8")="Всего"
     Range("D6")= "12.43"
           Range("D7")= "=R[-1]C*0.825"
           Range("D8")="=R[-2]C+R[-1]C"
           Range("D6:D8") = "#,##0.00$"
                 Range("D8").Select
                 With Selection.Borders(xlEdgeTop)
                       .LineStyle = xlContinuous
                       .Weight = xlThin
                       .ColorIndex = xlAutomatic
                 End With
End Sub
     Проверить работу отредактированного макроса Макрос2.
     10.3. Автоматизация создания электронных таблиц
     Создать в MS Excel программу для построения графика функции
y=xk. Результаты работы программы приведены на Рис. 10.2.

Страницы