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

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

Запустите приложение Excel, сохраните документ. Перейдите в редактор VBA. Создайте форму согласно приведенному рисунку 3.

hello_html_m141e755b.png

Рисунок 3 – Разработанная форма в режиме конструктора.

На листе Excel расположите необходимый текст (оформление), предусмотрев соответствующие ячейки вывода информации (см. рисунок 4).

hello_html_4f2981f6.png

Рисунок 4 – Пример организации данных на лист Excel.

Обработайте кнопки.

Кнопка Создать таблицу

Const strNomer = 3 ‘количество строк для заголовка

Dim strName1 As String 'строка для адресации ячеек

Dim strName2 As String

Dim nomer As Long 'номер очередной строки таблицы

Private Sub CommandButton1_Click()

ActiveWorkbook.SaveAs («работа с базой данных. xls»)

nomer = 1 End Sub

Кнопка Добавить строку

Private Sub CommandButton2_Click()

strName1 = Trim(Str(strNomer + nomer))

With ActiveSheet 'ввод данных для новой отчетной таблицы

Range("A" + strName1).Value = nomer

Range("B" + strName1).Value = TextBox1.Text

Range("C" + strName1).Value = TextBox2.Text

Range("D" + strName1).Value = TextBox3.Text

'автозаполнение с текущей строки таблицы

strName2 = Trim(Str(strNomer + nomer + 1))

Set range1 =.Range("A" + strName1 +":D" + strName1)

Set range2 =.Range("A" + strName1 +":D" + strName2)

range1.AutoFill Destination:=range2

Range("A" + strName2 +":D" + strName2).Clear

End With

'очистка полей формы для ввода очередной записи

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

TextBox1.SetFocus

nomer = nomer + 1

End Sub

Кнопка Закончить таблицу

Private Sub CommandButton3_Click() 'закрытие формы подведение итогов и вывод фамилии преподавателя

UserForm1.Hide

With ActiveSheet

strName2 = Trim(Str(strNomer + nomer + 2))

Range("A" + strName2).Value = «Куратор»

Range("D" + strName2).Value = TextBox4.Text

End With

End Sub

Откомпилируйте программу и запустите на выполнение.