11.Назначение и организация итоговых и перекрестных запросов в субд Access.

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

   • «Контракты» (поля «№»-сделать ключевым, «Товар», «Заказчик», «Количество», «Цена», «Дата»)

1. Создать итоговый запрос по таблице «Контракты» с выборкой полей «Товар» (с группировкой), «Количество» (с вычислением суммы), «Цена» (с вычислением среднего)

2. Создать перекрестный запрос по таблице «Контракты» с выборкой полей «Товар» (для названия строк с группировкой), «Фирма» (для названия полей с группировкой), «Количество» (с вычислением суммы)

13 Редактирование макросов в редакторе vba. Структура эд в редакторе vba. Назначение пользовательских форм в редакторе vba.

1. Создать последовательно 3 макроса в документе Word на выполнение цепочки команд: переход к нижнему и верхнему индексу размером 10 пунктов и переход к нормальному шрифту размером 14 пунктов

2. Создать макрос на преобразование текста: полужирный, наклонный, разреженный, 13 пунктов, синий.

3. Отредактировать макросы в редакторе VBA, изменив для нижнего и верхнего индексов размер на 11 пунктов.

4. Создать макрос в документе Excel с фиксированными ссылками, создающий заголовок таблицы расчета зарплаты.

5. Создать макрос в документе Excel с относительными ссылками, создающий в столбец список из 5 фамилий.

6. Создать на новом листе таблицу расчета зарплаты и заполнить ее фамилиями с использованием созданных макросов.

7. Отредактировать макрос со списком в редакторе VBA, добавив в него к фамилиям имена.

8. Создать в документе Word командную кнопку с программой на VBA, заменяющей по щелчку мыши во втором абзаце третье слово на заданное (текст документа – произвольный).

Кнопка = CommandButton2_Click()

Documents("Названіе док.doc").Range.Paragraphs(абзац).Range.Words(посчёту) = "Якушик"

14. Назначение массивов переменных. Использование одномерных и двумерных массивов в vba.

D массив набрать свои числа потом сумма элементов и кнопка Вычислить:

Private Sub CommandButton1_Click()

Dim b(2 To 6) As Single, i As Integer, s As Single

s = 0

For i = 2 To 6

b(i) = Worksheets("Название Листа").Cells(i, 2)

s = s + b(i)

Next i

Worksheets("Название Листа").Cells(7, 2) = s

End Sub