Курсовая работа: Информационно-аналитическая система Казанского вокзала

· Время в пути

· Количество мест по категориям

№ поезда	Дата отправления	станция назначения	время пути	A	B	C	D
110608	12.10.03	Владимир	9	40	30	20	60
113186	05.10.03	Севастополь	14	20	60	20	40
113514	01.09.03	Москва	8	40	60	80	80
113819	01.09.03	Владивосток	12	60	40	20	80
117648	18.10.03	Киров	21	40	40	20	60

Для работы с таблицей предусмотрена пользовательская форма «Рейсы», которая вызывается с панели задач. В этой форме осуществляется ввод, удаление, корректировка, сортировка записей.

Ввод данных

После ввода необходимо нажать кнопку Добавить

Выполнитсяследующийкод.

Dim i As Integer, j As Integer

i = 1

Do

i = i + 1

If Sheets(1).Cells(i, 1) = "" Then

j = i

Exit Do

End If

Loop

Cells(j, 1) = ¹.Text

Cells(j, 2) = Data.Value

Cells(j, 3) = pos.Text

Cells(j, 4) = time1.Value

Cells(j, 5) = time2.Value

Cells(j, 6) = AA.Value

Cells(j, 7) = bB.Value

Cells(j, 8) = cc.Value

Cells(j, 9) = dd.Value

Удаление данных

Процедура, реагирующая на событие Click кнопки Удалить, выглядит следующим образом:

Dim c As Object, d As Object

Set c = Range("A2")

Do While Not IsEmpty(c)

Set d = c.Offset(1, 0)