Информатика_1 / Информатика / Задания VBA3

Задание 1. Создайте в Excel форму и поместите в неё 3 надписи (Label), 3 поля для ввода (TextBox) и кнопку (CommandButton). Введите код программы для добавления в лист Excel фамилии, имени и отчества, который выполняется при нажатии на кнопку «Добавить». Фамилия, имя и отчество вводятся во второй, третий и четвертый столбцы Листа Excel соответственно. В первый столбец автоматически должен вводиться его порядковый номер. Форма должна иметь вид:

После выполнения кода программы поля для ввода должны очищаться.

Введите с помощью этой формы 5-10 ФИО.

Задание 2. Создайте программу, которая при открытии формы добавляет введенных вами людей в инструмент «Список» (ListBox).

Выполнение: Создайте на форме список (ListBox):

В окне свойств объекта ListBox задайте значение для свойства «ColumnCount» 4 (количество столбцов равно четырем). Дважды щелкните по форме, в правом верхнем поле со списком выберите Initialize. В место нахождения курсора введите код программы:

ListBox1.ColumnWidths = "20;60;50;50" 'Задание ширины столбцов

ListBox1.Clear 'Очищение предыдущих данных списка

'Цикл по заполнению списка

Do

i = i + 1

ListBox1.AddItem Cells(i, 1)

For j = 1 To 4

ListBox1.List(i - 1, j - 1) = Cells(i, j)

Next j

Loop While Cells(i + 1, 1) <> ""

Запустите программу (Run → Run Sub/UserForm)

Задание 3. Создайте программу сортировки списка по фамилии.

Выполнение: на форму вставьте кнопку, при нажатии на которую будет выполняться программа сортировки:

Дважды щелкните по кнопке и напишите код программы:

Do

i = i + 1

Loop While Cells(i, 1) <> ""

Range(Cells(1, 2), Cells(i - 1, 4)).Sort (Cells(1, 2))

ListBox1.Clear

i = 0

Do

i = i + 1

ListBox1.AddItem Cells(i, 1)

For j = 1 To 4

ListBox1.List(i - 1, j - 1) = Cells(i, j)

Next j

Loop While Cells(i + 1, 1) <> ""

Запустите программу.

Задание 4. Создайте программу, которая при выборе человека из списка будет вставлять его фамилию, имя и отчество в TextBox1, TextBox2 и TextBox3 соответственно.

Выполнение: Дважды щелкните по списку (ListBox1). В место нахождения курсора введите текст:

TextBox1.Text = Cells(ListBox1.ListIndex + 1, 2)

TextBox2.Text = Cells(ListBox1.ListIndex + 1, 3)

TextBox3.Text = Cells(ListBox1.ListIndex + 1, 4)

Запустите программу.

Задание 5. Создайте программу сортировки списка по фамилии и имени.

Выполнение: Замените одну строку созданной вами программы сортировки:

Range(Cells(1, 2), Cells(i - 1, 4)).Sort Key1:=Cells(1, 2), Key2:=Cells(1, 3)