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

Программирование на языке макрокоманд VBA. Создание диалоговых окон.

Вариант 1

1. Напишите программу, которая заполняет четные строки зеленым цветом, а нечетные – желтым цветом. Количество строк и столбцов введите с клавиатуры (не менее 20). При каждом заполнении 10 строк организуйте запрос “Продолжить заполнение?”.

Цвета можете выбрать и по собственному усмотрению.

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

·  оператор IF;

·   оператор Select Case.

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

4. Запишите процедуру, которая позволяет выделить ячейки, значения в которых превосходят некоторую введенную с клавиатуры величину, полужирным шрифтом и красным цветом.

5. Создайте программу, которая автоматически копирует все записи о лицах мужского пола на лист с именем «Мужской», а все записи о лицах женского пола на лист с именем женский. Листы под именами «Мужской» и «Женский» должны создаваться автоматически.

6.  Сделайте так, чтобы пользователь мог автоматически создать n листов посредством вашей программы, которые бы имели названия «1», «2», «3» и т.д.

7. Подготовьте отчет о проделанной работе.

Вариант 2

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

Напишите процедуру, которая максимальное значение в блоке ячеек окрашивает в зеленый цвет, а минимальное значение – в синий, а затем  ищет разницу между данными величинами. Полученное значение выдайте в диалоговом окне. Предварительно введите данные в блок ячеек.

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

Напишите VBA- программу, которая перемножает содержимое ячеек, имеющих четные номер строк и нечетные номера столбцов. Введите предварительно данные в таблицу, состоящую из 8 строк и 8 столбцов. Полученный результат выдайте в диалоговом окне.

Напишите процедуру, которая позволяет разносить данные приведенной таблицы по годам на разные листы. Строк в таблице должно быть не менее 12. Годы 1997-2000. Листы в рабочей книге появляются автоматически.

Есть таблица, в которой в первом столбце находятся порядковые номера, а во втором ФИО. Создайте макрос, который бы правильным образом перенумеровывал ФИО, при вставке или удалении.

Подготовьте отчет о проделанной работе.

Вариант 3

Напишите процедуру, которая автоматически заполняет 10 столбцов и 10 строк. Начальное значение в каждом столбце одинаковое и вводится с клавиатуры,  шаг  приращения в первом столбце имеет значение – введенное с клавиатуры, и увеличивается в каждом следующем на 5. Усложните задачу, вводя данные о количестве строк и столбцов.

Разработайте программу, которая берет значение активной ячейки, умножает его на 5, а затем помещает это значение в ячейку непосредственно под ней, а затем полученный выдает результат в диалоговом окне.

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

С помощью функции InputBox и метода Cells напишите цикл, который пять раз запрашивает имя и записывает эти имена в первые пять ячеек колонки. С рабочего листа. После каждого переименования организуйте запрос на продолжение. К диалоговому окну добавьте пиктограмму со знаком вопроса и кнопки OK и CANCEL.

Запишите процедуру, которая позволяет разносить данные из приведенной таблицы по подразделениям на отдельные листы. Организуйте автоматическое добавление листов в книгу. Записей в таблице должно быть не менее 12. Подразделений не более четырех.

Существует строка с заданными числами, необходимо найти количество каждого из чисел и записать в отдельных столбцах, например:

Было:

10    20    10    8    10    20    10    9      9    10    10

Должно получиться:

10   20   8   9

6      2    1   2

7.     Подготовьте отчет о проделанной работе.