Студопедия

Главная страница Случайная страница

КАТЕГОРИИ:

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






Лабораторная работа. Занятие 2. VBA.

 

Задание 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.

 

 

<== предыдущая лекция | следующая лекция ==>
 | Превращение. Проснувшись однажды утром после беспокойного сна, Грегор Замза обнаружил, что он у себя в постели превратился в страшное насекомое
Поделиться с друзьями:

mylektsii.su - Мои Лекции - 2015-2024 год. (0.009 сек.)Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав Пожаловаться на материал