Поиск записей согласно критериям.

 

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

 

Sub поиск_копир()

i = 1: i1 = 2

dol = InputBox("Введите должность", “Ввод”)

Sheets("Лист2").Activate

Columns("A:A").Select

Selection.ClearContents

Range("A1").Select

Cells(1, 1) = "Сотрудники, работающие на должности " + dol

While Sheets("Лист1").Cells(i, 1) <> Empty

If Sheets("Лист1").Cells(i, 2) = dol Then

Cells(i1, 1) = Sheets("Лист").Cells(i, 1)

i1 = i1 + 1

End If

i = i + 1

Wend

Cells(i1, 1) = "Всего сотрудников - " & i1 - 2

End Sub

 

Задание № 4. Создать процедуру по вводу новой записи согласно заданию табл. 5. Процедура должна содержать команды форматирования новой строки (добавление рамок, изменение типа, размера шрифта и цвета шрифта, выравнивание в пределах ячейки или таблицы), записанные с помощью макрорекордера.

Таблица 5

Особенности ввода записи

№	Дополнительное требование
	Символьное поле не может содержать точку и запятую
	Разница между двумя датами записи не должна превышать заранее известное значение
	Проверка даты на диапазон дат
	Дата не должна приходиться на субботу и воскресенье
	Проверка правильности ввода логического поля
	Символьное поле может принимать одно из заранее известных значений
	Длина символьного поля не должна превышать заранее установленной длины
	Проверка числового поля на возможный диапазон значений
	Числовое поле может принимать только целые значения
	Символьное поле не может содержать пробелы

 

Задание № 5. Создать процедуру по обработке записей (табл. 6).

Таблица 6

Обработка записей в таблице

№	Задание
	Определить суммарное и среднее значение числового поля записей, отобранных по символьному и логическому полю.
	Осуществить поиск записей по двум символьным полям. Найденные записи отобразить на втором листе.
	Определить среднее значение поля даты для записей, отобранных по символьному полю.
	Осуществить поиск уникальной записи по символьному, числовому полю и дате. Найденную запись отобразить на втором листе.
	Определить суммарное и среднее значение числового поля записей, число записей, отобранных по двум символьным полям. В случае отрицательного результата – вывести сообщение об этом.
	Определить количество записей, в которых числовое поле принадлежит определенному диапазону чисел.
	Определить число записей, найденных по числовому полю и дате. Результат отразить на текущем листе.
	Осуществить поиск записей по числовому и логическому полю. Предусмотреть проверку правильности ввода логического поля.
	Осуществить поиск уникальной записи по символьному, числовому и логическому полю. В случае отрицательного результата – вывести сообщение об этом
	Осуществить поиск уникальной записи по символьному, числовому полю и дате. Найденную запись удалить.

 

Задание № 6. Создать процедуру, перемещающую последнюю введенную запись на место первой записи.

 

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

Таблица 7

Создание процедур

Вариант	Задание
	Дано натуральное число. Определить, является ли сумма минимальной и максимальной цифры четным числом
	Дано натуральное число, в котором две известные цифры встречаются по одному разу. Определить, какая из этих цифр расположена левее
	Дан одномерный массив. Определить, есть в нем хотя бы пара одинаковых соседних чисел
	Дан одномерный массив натуральных чисел. Отсортировать его в порядке возрастания
	Дан одномерный массив натуральных чисел. Определить, равны ли все числа между собой
	Найти все целые числа из вводимого диапазона, у которых только пять делителей
	Найти из указанного диапазона все простые числа
	В столбцах А и В (n строк) введены натуральные числа. Заполнить столбец С числами из столбцов А и В в порядке их увеличения
	На рабочем листе заполнена натуральными числами квадратная область (n на n). Определить, является ли она магическим квадратом
	Заполнить n- строк (n<50) столбца А случайными числами из диапазона [1..100] в порядке их возрастания
	В столбце А (n строк, n - четное) введены натуральные числа. Поменять местами числа, расположенные в четных и нечетных строках
	В столбце А (n строк) введены вещественные числа. Определить, сколько раз происходит смена знака
	Определить, гласных или согласных букв больше во введенном с клавиатуры символьном выражении
	В столбце А (n строк) введены символьные строки (предложения), отдельные слова отделяются друг от друга несколькими пробелами. В столбце В отразить предложения без лишних пробелов
	Имеются два предложения. Отразить в столбце С слова, встречающиеся в обоих предложениях
	В символьном выражении (слове) имеются только две одинаковые буква. Найти и вывести их
	Дана строка символов. Удалить из нее каждое слово нечетной длины. Слова разделяются одним пробелом
	Дана строка символов. Удалить из нее каждое слово нечетной длины. Слова разделяются группой пробелов
	Дана строка символов. Удалить из нее все цифры, если они имеются
	Дано предложение. Записать слова в нем в обратном порядке. Слова разделяются одним пробелом

 

ТЕМА № 3