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

UptoLike

ВУЗ: 

КФУ | Казань

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

Рубрика: 

48
For k = 0 To 8
Range("B3").Select
ActiveCell.Formula = k
Cells(17, 2 + k).Select
ActiveCell.Formula = k
Cells(18, 2 + k).Select
ActiveCell.Value = m – 100000
'Замедляющий цикл
a = 1
For i=1 To 10000000
a = a+1
Next i
m = m * 1.05
Next k
Cells(22, 1).Select
End Sub
9. Создайте пиктограмму на панели инструментов для вызова
макроса:
– выполните команду Сервис – Настройка – Панели
инструментов – Создать – дайте имя макросу – ОК,
– переместите появившуюся пиктограмму в область панелей
инструментов вверху основного окна,
– в окне Настройка выберите вкладку Команды, категорию
Макросы и перетащите команду Настраиваемая кнопка на
созданную ранее пиктограмму, 
    For k = 0 To 8
    Range("B3").Select
    ActiveCell.Formula = k
    Cells(17, 2 + k).Select
    ActiveCell.Formula = k
    Cells(18, 2 + k).Select
    ActiveCell.Value = m – 100000
    'Замедляющий цикл
    a=1
    For i=1 To 10000000
    a = a+1
    Next i
    m = m * 1.05
    Next k
    Cells(22, 1).Select
    End Sub


    9. Создайте пиктограмму на панели инструментов для вызова
макроса:
– выполните      команду      Сервис   –   Настройка   –   Панели
инструментов – Создать – дайте имя макросу – ОК,
– переместите появившуюся пиктограмму в область панелей
инструментов вверху основного окна,
– в окне Настройка выберите вкладку Команды, категорию
Макросы и перетащите команду Настраиваемая кнопка на
созданную ранее пиктограмму,

                                  48

Страницы