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

Задание 1. Создайте в Excel форму и поместите в неё поле для ввода (TextBox) и кнопку (CommandButton).

Выполнение: откройте редактор VBA. В редакторе VBA создайте форму: Insert → UserForm. В панели инструментов ToolBox выберите TextBox и поместите его на форму. То же самое сделайте с кнопкой.

Задание 2. Создайте программу, где при нажатии на кнопку текст, введенный в поле для ввода, будет записываться в первую пустую ячейку столбца A .

Выполнение: дважды щелкните по созданной в предыдущем задании кнопке. В появившемся окне введите текст программы:

Do

i = i + 1

Loop Until Cells(i, 1) = Empty

Cells(i, 1) = TextBox1.Text

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

Задание 3. Измените текст, отображаемый на кнопке.

Выполнение: выделите кнопку, в окне свойств проекта (выделенной кнопки) измените значение свойства Caption с CommandButton1 на Записать. Щелкните на форму и запустите проект.

Задание 4. Создайте программу, которая при открытии формы будет записывать данные всех непустых ячеек столбца А в поле со списком (ComboBox).

Выполнение: Поместите на форму поле со списком. Дважды щелкните по форме. В крайнем правом поле со списком появившегося окна (где стоит значение Click) выберите Initialize. В место нахождения курсора введите текст:

i = 1

Do Until Cells(i, 1) = Empty

ComboBox1.AddItem (Cells(i, 1))

i = i + 1

Loop

Запустите программу и посмотрите на раскрывающийся список.

Задание 5. Создайте программу, где при нажатии на кнопку в ячейки cells(2, i) будут записываться случайные числа от 1 до 15 при условии, что ячейки cells(1, i) – непустые.

Задание 6. Создайте программу, которая при открытии формы будет записывать данные всех непустых ячеек столбца B в поле со списком (ComboBox).