16423

СОЗДАНИЕ МАКРОСОВ-ФУНКЦИЙ В EXCEL

Лабораторная работа

Информатика, кибернетика и программирование

СОЗДАНИЕ МАКРОСОВФУНКЦИЙ В EXCEL Методические указания к выполнению лабораторных работ по дисциплине Информационные технологии для студентов технических специальностей Методические указания предназначены для проведения лабораторных работ по дисциплине Инфо

Русский

2013-06-22

162.5 KB

80 чел.

СОЗДАНИЕ МАКРОСОВ-ФУНКЦИЙ В EXCEL

Методические указания к выполнению лабораторных работ

по дисциплине «Информационные технологии»

для студентов технических специальностей

Методические указания предназначены для проведения лабораторных работ по дисциплине «Информационные технологии» для специальностей технического профиля. Предлагается набор заданий к лабораторным занятиям и краткие методические указания к их выполнению. Целью лабораторных работ является использование макросов Excel для решения задач, часто встречающихся в инженерных расчетах.

Печатается по решению методической комиссии факультета «Информатика и вычислительная техника»

Лабораторная работа № 1

Тема: Программирование макросов для функций, задаваемых с условиями.

Цель работы: Научиться использовать макросы Excel для упрощения вычислений.

Форма отчета: Выполнение индивидуального зачетного задания.

Примеры выполнения лабораторной работы

Пример 1. Вычислить для произвольно заданного значения переменной x значение функции

Решение с помощью формулы Excel. Создадим новый файл в программе Excel. Оформление решения показано в таблице 1.

На Лист1 в ячейках A1 и B1 введем обозначения x  и y.

Присвоим ячейке A2 имя x. Для этого выполним команду «Вставка — Имя — Присвоить — x».

Пусть значение переменной x равно 0,5. Запишем число 0,5 в ячейке A2, а значение функции y вычислим в ячейке B2. Для этого введем в B2 формулу

=ЕСЛИ(x<=1;x^3+1;ЕСЛИ(x<=3;SIN(x);EXP(-x)*x))

Таблица 1

A

B

1

x

y

2

0,5

=ЕСЛИ(x<=1;x^3+1;ЕСЛИ(x<=3;SIN(x);EXP(-x)*x))

В результате вычисления в ячейке B2 появится значение 1,125.

Введем в ячейку A2 значение 1,5. Тогда в B2 появится значение 0,997494987. Если введем в ячейку A2 значение 3,5, то в B2 появится значение 0,105690842.

Решение с помощью макроса Excel. Создадим в программе Excel пользовательскую функцию y(x) для вычисления данной функции, пользуясь встроенным языком Visual Basic.

Приведем алгоритм создания пользовательcкой функции-макроса:

1) Выполним команду меню «Сервис — Макрос — Редактор Visual Basic». Откроется окно «Microsoft Visual Basic».

2) Выполним команду меню «InsertModule» и введём текст программы-функции (Комментарий после апострофа вводить не надо)

Function y(x)           ' Заголовок описания функции y(x)

If x <= 1 Then        ' если x <= 1 то

  y = x ^ 3 + 1       '        y = x ^ 3 + 1

ElseIf x <= 3 Then   ' иначе если x <= 3 то

  y = Sin(x)             '        y = Sin(x)

Else                         ' иначе

  y = Exp(-x) * x      '        y = Exp(-x) * x

End If                      ' конец оператора если

End Function            ' конец описания функции

Теперь в ячейках любого листа данной книги (файла) программы Excel можно в формулах использовать созданную функцию.

Например, введем в ячейки С2, С3 и С4 соответственно формулы   =y(0,5),  =y(1,5),   =y(3,5). В этих ячейках получим значения 1,125, 0,997495, 0,105691.

Пример 2. Построить таблицу значений и график функции из примера 2 на отрезке  с шагом 0,2.

Решение с использованием макроса. Мы будем использовать макрос-функцию y(x), созданную в примере 1, поэтому откроем файл примера 1 и перейдем на Лист2.

В ячейках A1 и B1 введем обозначения x и y.

Введем в A2, A3 значения 0 и 0,2. Выделим ячейки A2:A3 и протянем маркер заполнения (правый нижний угол) до ячейки A12.

Введем в B2 формулу =y(A2). Протянем ячейку B2 маркером заполнения вниз до  B12. Оформление решения показано в таблице 2.

Таблица 2

A

B

1

x

y

2

0

1

3

0,2

1,008

4

0,4

1,064

5

0,6

1,216

6

0,8

1,512

7

1

2

8

1,2

0,932039

9

1,4

0,98545

10

1,6

0,999574

11

1,8

0,973848

12

2

0,909297

Выделим диапазон A1:B12 и щелкнем указателем мыши на панели инструментов ярлык «Мастер диаграмм». Выберем тип «Точечная» и кнопку «Готово».

Задания к лабораторной работе №1.

Построить таблицу значений и график данной функции в указанном диапазоне с заданным шагом. Вариант задания выбрать из таблицы 3.

Таблица 3

№ варианта

Функция

Отрезок

Шаг

1

[0; 3]

0,1

2

[1; 3]

0,2

3

[0; 3]

0,3

4

[1; 5]

0,2

5

[0; 3]

0,1

6

[2; 5]

0,25

Продолжение табл. 3

№ варианта

Функция

Отрезок

Шаг

7

[3; 5]

0,25

8

[0; 3]

0,1

9

[1; 3]

0,4

10

[0; 3]

0,05

11

[1; 5]

0,4

12

[0; 4]

0,2

13

[2; 5]

0,3

Окончание табл. 3

№ варианта

Функция

Отрезок

Шаг

14

[0; 5]

0,4

15

[1; 6]

0,5

16

[0; 3]

0,1

17

[1; 3]

0,2

18

[0; 3]

0,3

19

[0; 5]

0,2

20

[0; 3]

0,1

Лабораторная работа № 2

Тема: Программирование макросов для функций, параметрами и/или значениями которых являются массивы.

Цель работы: Научиться использовать макросы Excel для упрощения вычислений с матрицами и векторами.

Форма отчета: Выполнение индивидуального зачетного задания.

Пример выполнения лабораторной работы

Пример 3. Вычислить таблицу значений вектор-функции
U(t) = U(x, y, z), где x = x(t) = t 2, y = y(t) = sin t, z = z(t) = cos t,

для  значений переменной  t = 0; 0,1; …, 1.

Решение с помощью макроса. Создадим макрос-функцию U(t), которая вычисляет значение данной вектор-функции.

1) Выполним команду меню «Сервис — Макрос — Редактор Visual Basic». Откроется окно «Microsoft Visual Basic».

2) Выполним команду меню «InsertModule» и введём текст следующей программы-функции

Option Base 1       ‘ Нижнее значение индекса в массивах равно 1

Function U(t)

Dim uu(3)                 ‘ Описание вектора из трех элементов

x = t ^ 2: uu(1) = x   ‘ вычисление компонент вектор-функции

y = Sin(t): uu(2) = y

z = Cos(t): uu(3) = z

U = uu                      ‘ присваивание имени U функции вектора uu

End Function

3) Перейдем из редактора Visual Basic в Excel и введем в ячейках A1:D1 обозначения, как показано в табл. 4.

Таблица 4

A

B

C

D

1

t

x

y

z

2

0

0

0

0

3

0,1

0

0,01

0,099833

4

0,2

0

0,04

0,198669

5

0,3

0

0,09

0,29552

6

0,4

0

0,16

0,389418

7

0,5

0

0,25

0,479426

8

0,6

0

0,36

0,564642

9

0,7

0

0,49

0,644218

10

0,8

0

0,64

0,717356

11

0,9

0

0,81

0,783327

12

1

0

1

0,841471

Введем в ячейки A2, A3 значения 0 и 0,1. Выделим ячейки A2:A3 и маркером заполнения протянем вниз до A12.

Выделим ячейки B2:D2, введем формулу =U(A2) и удерживая нажатыми клавиши Ctrl и Shift нажмем Enter. В ячейках B2:D2 появятся числовые значения.

Выделим ячейки B2:D2 и маркером заполнения протянем вниз до строки B12:D12.

Пример 4. Вычислить суммы элементов строк матрицы, содержащей 4 строки и 3 столбца (табл. 5).

Таблица 5

1

-1

9

2

2

4

3

3

1

4

5

3

Решение с помощью встроенных функций Excel. Создадим файл программы Excel.

Запишем элементы данной матрицы в диапазоне A1:C4 (табл. 6).

В ячейку D1 введем формулу =СУММ(A1:C1).

Выделим ячейку D1 и протянем маркером заполнения вниз до ячейки D4. В столбце D1:D4 получим суммы элементов соответствующих строк матрицы.

Решение с помощью макроса. Создадим макрос-функцию Sum_str(x), которая для заданной матрицы x, содержащей M строк и N столбцов, вычисляет вектор-столбец из M элементов, содержащий суммы элементов соответствующих строк матрицы.

1) Выполним команду меню «Сервис — Макрос — Редактор Visual Basic». Откроется окно «Microsoft Visual Basic».

2) Выполним команду меню «InsertModule» и введём текст следующей программы-функции

Option Base 1

Function Sum_str(x)

Dim y()

Dim M As Integer, N As Integer

M = x.Rows.Count

N = x.Columns.Count

ReDim y(M)

For i = 1 To M:

y(i) = 0:  For j = 1 To N:  y(i) = y(i) + x(i, j):  Next j

Next i

Sum_str = Application.Transpose(y)

End Function

3) Выделим диапазон ячеек E1:E4, введем формулу =Sum_str(A1:C4) и удерживая нажатыми клавиши Ctrl и Shift нажмем Enter. В ячейках E1:E4 появятся числовые значения, совпадающие со значениями в D1:D4.

Таблица 6

A

B

C

D

E

1

1

-1

9

9

9

2

2

2

4

8

8

3

3

3

1

7

7

4

4

5

3

12

12

Задания для самостоятельной работы.

Написать макрос-функцию для вычисления

1. Столбца из произведений элементов строк матрицы.

2. Строки из произведений элементов столбцов  матрицы.

3. Столбца из максимальных элементов строк матрицы.

4. Столбца из минимальных элементов строк матрицы.

5. Строки из максимальных элементов столбцов матрицы.

6. Строки из минимальных элементов столбцов матрицы.

7. Суммы положительных элементов  матрицы.

8. Суммы отрицательных элементов  матрицы.

9. Числа положительных элементов  матрицы.

10. Числа отрицательных элементов  матрицы.

11. Суммы поддиагональных элементов  квадратной матрицы.

12. Числа элементов  квадратной матрицы, по модулю меньших единицы.

13. Числа элементов вектора, по модулю меньших единицы.

14. Числа элементов вектора, по модулю больших единицы.

15. Вектора из диагональных элементов квадратной матрицы.

16. Матрицы, элементы которой задаются формулой xij = i + j.

17. Вектора, элементы которого задаются формулой xi = i .

18. Матрицы, элементы которой задаются формулой xij = 2i + 5j 2.

19. Вектора, элементы которого задаются формулой xi = i 2.

20. Матрицы, элементы которой задаются формулой xij = i * j.

Рекомендуемая литература

1. Ричард Шеферд. Создание макросов для Microsoft Excel. — М.: НТ Пресс, 2007, — 352 с.

2. Б. В. Соболь, Б. Ч. Месхи, И. М. Пешхоев. Практикум по вычислительной математике. Ростов-на-Дону, Феникс, 2008.

Составители: д. т. н., проф. Б. В. Соболь, к. ф.-м. н., доц. И. М. Пешхоев

СОЗДАНИЕ МАКРОСОВ-ФУНКЦИЙ В EXCEL

Методические указания и задания для лабораторных работ
по дисциплине «Информационные технологии»

Редактор А. А. Литвинова

ЛР №             от                                    В набор

В печать                                               Офсет. Бумага тип.№3.

Формат 6084/16.     Объем 0,6 усл.п.л.,   0,5 уч.-изд.л.

Заказ №                 Тираж                Цена

Издательский центр ДГТУ.

Адрес университета и полиграфического предприятия:

344010, Ростов-на-Дону, пл. Гагарина, 1.


 

А также другие работы, которые могут Вас заинтересовать

46592. Организационные основы обеспечения ОТ на предприятиях 21.25 KB
  Они вытекают из обязанностей и прав по ОТ работодателя и работника которые регламентируются КЗоТом РФ и Основами законодательства РФ об ОТ далее Основами. 3 Основ закрепляет признание и обеспечение приоритета жизни и здоровья работников по отношению к результатам производственной деятельности предприятия. 139 КЗоТ РФ основной обязанностью работодателя по ОТ является обеспечение здоровых и безопасных УТ на каждом РМ. Поэтому он обязан внедрять современные средства ТБ предупреждающие травматизм и обеспечивать санитарногигиенические...
46593. Архитектурная акустика 21.46 KB
  Термическое сопротивление. Сопротивление теплопередаче ограждающей конструкции.Требуемое сопротивление теплопередаче. Сопротивление теплопередаче.
46594. Методика преподавания на профильном уровне. Элективный курс по художественному профилю и специфика его разработки 21.48 KB
  Макаренко в своем учении выделяет несколько стадий этапов:1 стадия становление коллектива стадия первоначального сплочения.актив поддерживает требования педагога и сам предъявляет их к членам колва руководствуясь своими понятиями о том что приносит пользу а что ущерб интересам коллектива. Если активисты правильно понимают потребности коллектива то они становятся надежными помощниками педагога.Происходит стабилизация структуры коллектива.
46595. Мовне законодавство в Україні 21.5 KB
  Мовне законодавство в Україні. В Україні державна мова закріплена першою частиною десятої статті Конституції України відповідно до якої державною мовою в Україні є українська мова. Окрім того вживання мов в Україні регулюється Законом Української РСР Про мови в Українській РСР . Мовна ситуація в Україні є доситьтаки суперечливою і законодавство зовсім її не спрощує.
46596. Пряме й переносне значення слова. Вияви полісемії в різностильових текстах 21.5 KB
  Пряме й переносне значення слова. Пряме значення слова це дефініція слова яка безпосередньо вказує на його співвідношення з тією чи іншою ознакою об'єктивної дійсності як це історично закріпилося у свідомості мовців. Це первинне значення слова. Переносне значення слова це одне із значень слова яке виникло внаслідок перенесення одних ознак предметів чи явищ на інші.
46597. Синонімія, види синонімів. Роль синонімів у різностильових текстах 21.5 KB
  Синонімія це сукупність синонімів тієї чи іншої мови а також розділ науки про мову у якому вивчаються синоніми як одиниці мови. Синоніми це слова однієї частини мови що мають близьке лексичне значення але відрізняються за формою. Традиційно виділяють загальномовні синоніми зрозумілі для кожного носія мови граний красивий; контекстуальні або авторські синоніми у конкретному тексті. Окремо виділяють абсолютні синоніми слова які мають тотожні значення лелека чорногуз сум смуток століття сторіччя.
46598. Неологізми, архаїзми, історизми в українській літературній мові 21.5 KB
  За вживанням вона поділяється на активну слова що регулярно вживаються в певній сфері діяльності тобто щоденні слова та професіоналізми пасивну застарілі слова та неологізми. Застарілі слова слова що перестали активно вживатися носіями мови. До них відносять архаїзми слова які називають поняття які існують і в наш час пїїт поет спудей студент загально повільно; історизми слова які позначають поняття які зникли комсорг волость хорунжий Існує багато причин чому слова відходять до пасивного вжитку зокрема і...
46599. Синтаксична норма. Порядок слів у реченні 21.5 KB
  Порядок слів у реченні. Розрізняють типи норм: орфоепічні правильна вимова акцентуаційні наголошення слів лексичні слововживання граматичні морфологічні та синтаксичні стилістичні орфографічні правила написання пунктуаційні. Вони передбачають правильне вживання граматичних форм слів узгодження керування прилягання морфологічні та правильне утворення словосполучень і речень синтаксичні. В українській мові вільний порядок слів у реченні тобто немає чітких правил розташування у певному порядку тих чи інших членів речення.
46600. BELARUSIAN CUISINE 21.5 KB
  Belarusian cuisines have influences from its neighboring countries like Russia, Lithuania, Ukrainian and Polfnd among others. A variety of dishes made of potato form an important part of most cuisines in Belarus. Some of the popular potato dishes in Belarusian cuisines include Belarusian Draniki, Belarusian Draniki with Pork, Kolduni, Babka and Belarusian Kartoflyaniki among others