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

Отбор данных

При работе с большими таблицами часть требуется отбирать данные, удовлетворяющие определенным условиям. Это обычно делается с помощью инструмента «Фильтр».

Но с помощью макросов так же можно отбирать данные, удовлетворяющие часто встречающимся условиям и делать это можно с помощью формы.

Задание 1

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

Вид формы:

Код обработчика события Щелчок по кнопке будет иметь вид:

Создание новых листов для отбора данных.

В переменной n вычисляется количество рядов в таблице. Переменная k нужна для нумерации рядов на новом листе. Переменные i и j номера строк и столбцов соответственно.

При выборе пункта Мужчины рассматриваются отчества в 4 столбце. Если отчество заканчивается на «ч», то это мужчина, если на «а», то это женщина.

При отборе именинников месяца определяется месяц рождения и текущий месяц.

Отбор сотрудников с окладов выше среднего.

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

Вариант 1

В файле Горные лыжи.xls выполнить отбор:

• Товары категории Одежда проданные в феврале

• Товары фирмы Atomic.

• Товары стоимостью больше 20000.

• Проданное снаряжение со скидкой 5%.

Вариант 2

В файле Кадры.xls выполнить отбор:

• Клиенты женщины из сферы промышленность

• Клиенты моложе 30 лет

• Клиенты мужчины без высшего образования

• Клиенты безработные.

Вариант 3

В файле Склад.xls выполнить отбор:

• Товара огурцы

• Товара со стоимостью ниже средней.

• Товар заказчика Атлант количество меньше 5000

• Товары поступившие в июле со скидкой 10%.

Вариант 4

В файле Курсы.xls выполнить отбор:

• Учащиеся из Магнитогорска

• Учащиеся с высшим образованием

• Учащиеся старше 40 лет

• Учащиеся инженеры моложе 35

Вариант 5

В файле Сетевые продажи.xls выполнить отбор:

• Продажи, выполненные летом

• Продажи, дороже 1000 выполненные продавцом, у которого спонсора женщина

• Продажи весной, товар дороже средней цены

• Продажи товара содержащего слово крем.

Вариант 6

В файле Сетевые продажи.xls выполнить отбор:

• Продажи товаров Форевер.

• Продажи за последние 2 месяца товаров с итоговой ценой дороже 1000

• Продажи товаров с количеством больше среднего.

• Продажи Елагина.

Вариант 7

В файле Клининговая компания.xls выполнить отбор:

• Уборки у клиента Топоногова

• Уборки, выполненные первой бригадой в марте.

• Уборки с площадью выше средней.

• Весенние уборки в процентом скидок больше 10.

Вариант 8

В файле Языковый центр.xls выполнить отбор:

• Учащиеся, изучающие немецкий язык в продвинутой группе

• Учащиеся в малочисленных группах номером группы

• Учащиеся мужчины

• Учащиеся изучающие французский язык без с кидок

Вариант 9

В файле Автосалон.xls выполнить отбор:

• Автомобили доставленные менее чем за 15 дней

• Японские автомобили стоимостью более 700000

• Автомобили из Токио со сроком выполнения заказа более 6 дней.

• Автомобили со стоимостью меньше средней.