Файл: Лабораторная работа 1. Операционная система Windows. Основные принципы работы. Цель работы.doc

Запись макроса начинается запись (в строке состояния отображается: Запись). Теперь необходимо выполнить действия, которые должен записать макрорекордер:

• 
  установить нормальное (занимающее часть экрана) представление окна рабочей книги;
  
• 
  скрыть сетку путем выключения соответствующей опции в закладке Вид диалогового окна Параметры, которое открывается с помощью меню Сервис;
  
• 
  выделить весь рабочий лист (щелчком по месту пересечения номеров столбцов и номеров строк) и присвоить всем ячейкам денежный стиль;
  
• 
  задать для всех ячеек шрифт Times New Roman, 16 пунктов;
  
• 
  снять выделение листа.
  
• 
  в ячейку С6 занести число 12.
  

3. Выполнив указанные действия, остановить запись макроса с помощью кнопки Остановить запись.

4. Просмотреть текст созданного макроса. Для этого с помощью меню Сервис \ Макрос \ Макросы в открывшемся окне выбрать команду Войти. После выполнения этой команды автоматически загружается приложение Basic'>Visual Basic, а в окне Модуль показывается текст созданного макроса. Переписать программу со своими комментариями.

6. 
   Закрыть окно программы Visual Basic и вернуться в свою рабочую книгу (команда File\ Close and return Microsoft Excel).
   
7. 
   Создать с помощью макрорекордера макрос Пример2, который восстанавливает исходные параметры окна и листа.
   
8. 
   Перейти на Лист2. Запустить поочередно макросы Пример1 и Пример2 с помощью командыСервис \ Макрос \ Макросы….
   
9. 
   Назначение клавиши для запуска макроса. В меню Сервис\Макрос\Макросы выбрать имя того макроса, которому нужно присвоить сочетание клавиш, с помощью которых он будет выполняться. После этого в диалоговом окне нужно выбрать команду Параметры и ввести соответствующую букву в поле Сочетание клавиш. Запустить макросы через сочетание клавиш.
   

9. Назначение кнопки для запуска макроса. Создать кнопки на листе для запуска макросов Пример1 и Пример2. В меню Вид активизировать панель инструментов Формы. Затем выполнить следующие действия:

---

• 
  На панели инструментов Формы выбрать элемент Кнопка.
  
• 
  На листе с помощью мыши создать кнопку нужного размера.
  
• 
  Выделить созданную на листе кнопку так, чтобы появились маркеры выделения.
  
• 
  Щелкнуть правой кнопкой мыши и выбрать команду Назначить макрос в контекстном меню.
  
• 
  Задать кнопке соответствующую надпись.
  
• 
  Запустить макросы, используя созданные кнопки.
  

10. Назначение команды в меню Сервис. Назначить макросам Пример1 и Пример2 команды в меню Сервис. В меню Вид \ Панель инструментов выбрать команду Настройка. Далее:

• 
  На вкладке Команды выбрать среди категорий Макросы.
  
• 
  Открыть меню Сервис.
  
• 
  Перетащить мышкой команду Настраиваемая команда меню из списка Команды в окне Настройка, удерживая клавишу «Ctrl», в меню Сервис и установить под командой Макрос.
  
• 
  Щелкнуть правой кнопкой мыши по созданной команде, используя контекстное меню, назначить макрос и переименовать созданную команду меню в соответствии с именем макроса.
  
• 
  Закрыть окно Настройка.
  
• 
  Запустить макросы, используя созданные команды меню.
  

11. Создать кнопки для запуска своих макросов на собственной панели инструментов.

• 
  Создать собственную панель инструментов. Для этого выполнить команду Вид \ Панель инструментов \Настройка…. Выбрать закладку Панели инструментов и воспользоваться кнопкой Создать…, задать для своей панели имя.
  

• 
  Не выходя из режима настройки, выбрать закладку Команды, выбрать категорию Макросы, перенести мышью на свою панель инструментов команду Настраиваемая кнопка, удерживая клавишу «Ctrl». Используя контекстное меню, назначить макрос кнопке, дать кнопке имя и выбрать или изменить значок для кнопки.
  
• 
  Запустить макросы с помощью созданных кнопок на своей панели инструментов.
  

---

Лабораторная работа №22. Программирование алгоритмов линейной структуры

Цель работы: освоение простейших приемов программирования на языке ExcelVisualBasic на примере алгоритмов линейной структуры, отработка различных способов ввода данных и вывода результатов.

Решение любой задачи подразделяется на три этапа: ввод данных, обработка данных и вывод результатов.

Для ввода данных в программе используется оператор присваивания. Синтаксис оператора присваивания имеет следующий вид:

[LET] имя переменной = выражение

В программе, написанной на языке Excel Visual Basic ввод данных можно осуществить тремя способами:

• 
  Ввод данных непосредственно в программе.
  

В этом случае в качестве выражения, стоящего в правой части оператора присваивания, используется число( или текст, если данные текстовые).

• 
  Ввод данных в диалоге (с клавиатуры).
  

В этом случае в качестве выражения, стоящего в правой части оператора присваивания, используется функция InputBox(приглашение[,заголовок][,по умолчанию][,x позиция] [,y позиция] [,файл справки]). Эта функция имеет один обязательный аргумент – приглашение – это строковое выражение, отображаемое как сообщение в диалоговом окне функции. Аргумент заголовок используется для задания текста, отображаемого в строке заголовка диалогового окна функции InputBox. В окне функции имеется поле ввода, в которое пользователь должен ввести значение. Возвращает функция строковое значение, содержащее текст, введенный в поле ввода. Т.о., переменной, имя которой указано в левой части оператора присваивания, будет присвоено значение, введенное пользователем в поле ввода окна функции InputBox. Для преобразования введенного в поле ввода диалога строкового выражения в формат вещественного числа используется функция Val(строковое выражение).

• 
  Ввод данных из ячеек таблицы.
  

В этом случае в качестве выражения, стоящего в правой части оператора присваивания, используется объект WorkSheets(«имя листа»).Range

---

(«адрес ячейки»).Value . Таким образом переменной, имя которой указано в левой части оператора присваивания, будет присвоено значение ячейки, адрес которой указан в правой части оператора.

Вывод результатов можно осуществить следующим образом:

• 
  Вывод в окне сообщения.
  

В этом случае используется функция MsgBox(приглашение[,кнопки] [,заголовок] [,файл справки])

• 
  Вывод в ячейки таблицы.
  

В этом случае используется следующая конструкция:

WorkSheets(«имя листа»).Range(«адрес ячейки»).Value = выражение

Т.о. значение выражения, стоящего в правой части конструкции, записывается в ячейку таблицы, имя которой указано в левой части.
Задача. Вычислить площадь треугольника по формулам:



где - полупериметр

Для решения задачи:

1. 
   Создать новую рабочую книгу в Excel
   
2. 
   Переименовать рабочий лист в «Работа 1»
   
3. 
   Ввести данные в ячейки таблицы согласно образцу:
   

   	A	B	C	D	E	F
   1	Исходные данные			Вычисление площади
   2	a=	4,6		s1=
   3	b=	11,7		p=
   4	c=	8,7		s2=
   5	h=	3

4. 
   В ячейках Е2:Е4 задать формулы для вычисления s1,p,s2 (Внимание! s1 и s2 – это площадь одного и того же треугольника, вычисленная разными способами).
   
5. 
   Выполнить команду Сервис \ Макрос \ Редактор Visual Basic. В появившемся окне Microsoft Visual Basic выбрать пункт Insert (Вставка) операционного меню, а в нем команду Module (в рабочую книгу будет добавлен Модуль1 – Module1)
   
6. 
   Ввести следующую программу (Внимание! Во избежание ошибок текст программы должен быть набран в английском регистре, включая символы “ . , :Допускается использование русского шрифта при записи комментариев и текста, заключенного в кавычки в операторах InputBox, MsgBox)
   

---

Sub prog1()

‘ввод исходных данных

a = 4.6: b = 11.7: c = 8.7: h = 3

'вычисление площади по основанию и высоте

s1 = 1 / 2 * b * h

‘вывод результата в окне сообщения

MsgBox «s1=« & s1

'вычисление площади по формуле Герона

p = (a + b + c) / 2

‘вывод полупериметра в окне сообщения

MsgBox «p=« & p

s2 = Sqr(p * (p - a) * (p - b) * (p - c))

‘вывод площади в окне сообщения

MsgBox «s2=« & s2

End Sub
В данной программе данные вводятся непосредственно в программе, а результаты выдаются в окнах сообщений.

7. 
   Запустить программу на выполнение, установив курсор в любом месте процедуры prog1() и нажав кнопку на панели Visual Basic. Проверить результаты вычислений. Сохранить рабочую книгу.
   
8. 
   Скопировать текст программы prog1() после оператора End Sub .
   
9. 
   Изменить название процедуры на prog2(). Внести соответствующие изменения в текст программы так, чтобы ввод исходных данных производился с помощью диалога (см. лекцию, функция InputBox). (Внимание! Во избежание ошибок, связанных с различными типами данных в Basic, следует использовать функцию Val в InputBox. Например, a = Val(InputBox(«введите а», «Исходные данные»)). Указанная функция позволяет преобразовать введенное в окно диалога число в формат вещественного числа).
   
10. 
    Запустить prog2() на решение и проверить результаты.
    
11. 
    Аналогично предыдущему заданию получить еще одну копию текста программы и назвать ее prog3().
    
12. 
    Самостоятельно внести соответствующие изменения в текст программы с учетом требования, что исходные данные вводятся из соответствующих ячеек таблицы, и вывод результатов производится в ячейки таблицы F2:F4. Запустить программу на решение.
    

---