С. Составление макросов с помощью написания кода в Visual Basic.

(повышенный уровень)

 

Задание № 5. Составить таблицу истинности функции F =

Порядок выполнения.

Создать макрос «Табл», в который записать следующий код:

 

Sub Табл ()

 

Dim А, В, Z, F As Boolean

Range("B1") = "А": Range("C1") = "В"        Формируем строку заголовка

 Range("D1") = "Z": Range("E1") = "F"

 i = 2                                                     Начинаем таблицу со 2 строки

For А = True To False                         Цикл перебора по А

 For В = True To False               Цикл перебора по В

         For Z = True To False       Цикл перебора по Z

                       With Application     Формируем значения в столбцах

                            Cells(i, 1) = i - 1

                            Cells(i, 2) = А

                                     Cells(i, 3) = В

                                     Cells(i, 4) = Z

                            Cells(i, 5) = Not A Or B Imp Not Z

                       End with

i = i + 1                    переходим на следующую строку

         Next                                  закрываем цикл по Z

 Next                                           закрываем цикл по В

Next                                                     закрываем цикл по А

 

End Sub

 

В результате запуска макроса создаётся таблица истинности заданной функции.

 

 

	A	B	Z	F
1	-1	-1	-1	0
2	-1	-1	0	-1
3	-1	0	-1	-1
4	-1	0	0	-1
5	0	-1	-1	0
6	0	-1	0	-1
7	0	0	-1	0
8	0	0	0	-1

 

.

Вопросы к упражнению.

1. Сколько строк будет в таблице истинности, если функция будет зависеть от четырёх переменных?
2. Какой код следует дописать в программе, чтобы текст в строке заголовка выводился жирным шрифтом?

Самостоятельная работа

Задание. Составить таблицу истинности функции–

1 вариант. Логического сложения.

2 вариант. Логического следования

3 вариант. Логического умножения.

Задание № 6. Для вашей рабочей книги описать события Open и Close таким образом, чтобы при открытии файла запрашивалось имя пользователя и записывалось в другой файл Excel, а также время начала работы. При закрытии в тот же файл записывать время окончания работы.

Пояснения к выполнению.

Now – функция Visual Basic, возвращающая системную дату и время компьютера.

Выполнение:

1. Создать в своей директории новый файл Excel. Набрать в нём заголовок «Журнал пользователей». Создать шапку таблицы как на рисунке. В ячейке F1 организовать подсчёт количества записей в столбце А помощью функции МАКС: =МАКС(A:A).
   Выделить столбец В, выбрать пункт меню ФОРМАТ – ЯЧЕЙКИ, в разделе ЧИСЛО задать тип данных в этом столбце – текстовый. Аналогично настроить типы данных для столбца С – дата, для столбцов D и Е – время. Сохранить файл под именем “s.xls”. Закрыть файл.

 

 

1. Открыть свою рабочую книгу. Войти в редактор Visual Basic. В проводнике проекта указать на «Эта книга», затем представить документ в виде кода (View – Code), выбрать в списке объектов Workbook, событие Open.

 

 

 

1. Внести в процедуру следующий код:

Private Sub Workbook_Open()

 

Dim i As String            ' Объявляем строковую переменную

Dim row As Integer  ' объявляем вспомогательную переменную row

i = InputBox("Ваше имя?", "", "ХХ") ' Запрашиваем имя пользователя

Application.ScreenUpdating = False             ' Даём команду не обновлять экран

Workbooks.Open ("D:\....\s.xls")       ' Необходимо указать полный путь до файла s.xls

With Workbooks("s.xls").Worksheets("Лист1")

row = Range("F1").Value + 3     ' Вычисляем номер заполняемой строки

Cells(row, 1).Value = row - 2     ' Создаём порядковый номер строки

Cells(row, 2).Value = i     ' Вносим пользователя

Cells(row, 3).Value = Date   ' Вносим дату начала работы

Cells(row, 4).Value = Time         Вносим время начала работы

End With

Workbooks("s.xls").Save                     ‘Сохраняем файл “s.xls”.

Workbooks("s.xls").Close                    ‘ Закрываем файл “s.xls”

Application.ScreenUpdating = True              ' Разрешаем обновление экрана

 

End Sub

1. Выбрать в списке событий событие BeforeClose.

Внести следующий код:

Private Sub Workbook_Close()

 

Dim i As String            '     Объявляем строковую переменную

Dim row As Integer  ' объявляем вспомогательную переменную row

Application.ScreenUpdating = False ' Даём команду не обновлять экран

Workbooks.Open ("D:\издат\s.xls") ' Необходимо указать полный путь до файла s.xls

With Workbooks("s.xls").Worksheets("Лист1")

row = Range("F1").Value + 2 ' Вычисляем номер заполняемой строки

Cells(row, 5).Value = Time ‘Вносим время окончания работы

End With

Workbooks("s.xls").Save

Workbooks("s.xls").Close

Application.ScreenUpdating = True              ‘Разрешаем обновлять экран

 

End Sub

1. Запустить поочерёдно процедуру Open. Перейти в Excel, открыть файл “s.xls” и убедиться, что внесено имя пользователя и время начала работы. Закрыть файл “s.xls”, затем свою рабочую книгу. Открыть файл “s.xls” и убедиться, что время окончания внесено по аналогии с таблицей.

Журнал пользователей

 

Всего записей

2

№пп

Пользователь

Дата начала работы Время начала работы Время окончания работы

 

1

Паша Филонов

29 сентября 2006 г.

19:10

19:11

 

2

Миша Белокриницкий

29 сентября 2006 г.

19:15

19:16

 

 

1. Закрыть файл “s.xls”.

 

 

ЛАБОРАТОРНАЯ РАБОТА № 4.