Задание 1:
Вычислить значение:
Порядок выполнения:
1.Запустить MS Excel, создать пустую рабочую книгу.
2. В ячейки таблицы ввести текст задания “Вычислить значение: ”, в ячейку A7 ввести текст “Ответ” (Рисунок 1).
Рисунок 1 – Результат выполнения макроса
3. Войти в пункт меню Разработчик – Visual Basic (Alt+F11).
4. В окне Project explorer перейти по дереву проекта на ветвь VBAProject(имя книги)\Microsoft Excel objects\Эта книга, щелкнуть дважды по надписи “Эта книга”.
5. В появившемся окне набрать текст программы, представленной ниже:
6.Сохранить произведенные изменения, закрыть окно редактора Visual Basic и перейти в окно Microsoft Excel.
7. Используя команду меню Разработчик – Макросы, открыть окно Макрос. Выбрать созданный макрос и нажать на кнопку Выполнить.
8. Проверить правильность работы макроса.
9. (Далее для MS Excel97-2003) Привяжем макрос к кнопке. Для этого создадим свою панель инструментов: меню Вид - панели инструментов - Настройка. На вкладке Панели инструментов нажмите создать - появится панель инструментов настраиваемая 1. Перейдем к вкладке команды, в категории выбираем макросы. Желтую рожицу перетаскиваем на нашу панель. Значок на кнопке можно менять (правая кнопка – Выбрать значок для кнопки). Теперь на кнопке нажимаем правой кнопкой мыши и выбираем пункт меню " назначить макрос ". Выбираем наш макрос “ ЭтаКнига.Summa ”.
|
|
Задание 2:
Вычислить значение:
Порядок выполнения:
1.Запустить MS Excel, создать пустую рабочую книгу.
2. В ячейки таблицы ввести текст задания “Вычислить значение: ”, в ячейку A7 ввести текст “Ответ” (Рисунок 2).
Рисунок 2 – Результат выполнения макроса
3. Войти в пункт меню Разработчик – Visual Basic (Alt+F11).
4. В окне Project explorer перейти по дереву проекта на ветвь VBAProject(имя книги)\Microsoft Excel objects\Эта книга, щелкнуть дважды по надписи “Эта книга”.
5. В появившемся окне набрать текст программы, представленной ниже:
6. Сохранить произведенные изменения, закрыть окно редактора Visual Basic и перейти в окно Microsoft Excel.
7. Используя команду меню Разработчик – Макросы, открыть окно Макрос. Выбрать созданный макрос и нажать на кнопку Выполнить.
8. Проверить правильность работы макроса.
Задание 3:
Вычислить значение:
Порядок выполнения:
1.Запустить MS Excel, создать пустую рабочую книгу.
2. В ячейки таблицы ввести текст задания “Вычислить значение: ”, в ячейку A7 ввести текст “Ответ” (Рисунок 3).
Рисунок 3 – Результат выполнения макроса
3. Войти в пункт меню Разработчик – Visual Basic (Alt+F11).
4. В окне Project explorer перейти по дереву проекта на ветвь VBAProject(имя книги)\Microsoft Excel objects\Эта книга, щелкнуть дважды по надписи “Эта книга”.
5. В появившемся окне набрать текст программы, представленной ниже:
|
|
Т. к. в формуле S в знаменателе необходимо вычислить факториал для i2, то применяется вложенный цикл j внутри главного цикла i вычисления суммы S.
6. Сохранить произведенные изменения, закрыть окно редактора Visual Basic и перейти в окно Microsoft Excel.
7. Используя команду меню Разработчик – Макросы, открыть окно Макрос. Выбрать созданный макрос и нажать на кнопку Выполнить.
8. Проверить правильность работы макроса.
Самостоятельно:
Написать программу для вычисления произведения всех нечетных чисел в интервале от 30 до 70.