Microsoft Word, Excel, Access, Язык HTML для студентов гуманитарных факультетов. Бахтиева Л.У - 47 стр.

UptoLike

ВУЗ: 

КФУ | Казань

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

Рубрика: 

47
4. Закройте окно редактора программы.
5. Проверьте работу макроса по команде Сервис – Макрос –
выберите свой макрос – Выполнить и еще раз с помощью сочетания
клавиш Ctrl+q.
6. Чтобы изменения диаграммы происходили не так быстро,
добавьте в программу Замедляющий цикл:
Sub Доход
For k = 0 To 8
Range("B3").Select
ActiveCell.FormulaR1C1 = k
`Замедляющий цикл
a = 1
For i=1 To 10000000
a = a+1
Next i
Next k
End Sub
7. Снова проверьте работу макроса.
8. Внесите изменения в программу, чтобы на листе Доход
автоматически выводилась таблица со строками Кол-во лет и Доход
(см. рис. 2.11):
Sub Доход
m = 100000 
     4. Закройте окно редактора программы.
     5. Проверьте работу макроса по команде Сервис – Макрос –
выберите свой макрос – Выполнить и еще раз с помощью сочетания
клавиш Ctrl+q.
     6. Чтобы изменения диаграммы происходили не так быстро,
добавьте в программу Замедляющий цикл:


     Sub Доход
     For k = 0 To 8
     Range("B3").Select
     ActiveCell.FormulaR1C1 = k
     `Замедляющий цикл
     a=1
     For i=1 To 10000000
     a = a+1
     Next i
     Next k
     End Sub


     7. Снова проверьте работу макроса.
     8. Внесите изменения в программу, чтобы на листе Доход
автоматически выводилась таблица со строками Кол-во лет и Доход
(см. рис. 2.11):


     Sub Доход
     m = 100000

                                  47

Страницы