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

c.EntireRow.Delete

End If

Set c = d

Loop

EndSub

Корректировка данных

Для изиенения данных использовался следующий код.

Dim i As Integer, j As Integer

i = 1

Do

i = i + 1

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

j = i - 1

Exit Do

End If

Loop

For i = 3 To j

If Cells(i, 1) = ¹.Text Then

Cells(i, 2) = Data.Value

Cells(i, 3) = pos.Text

Cells(i, 4) = time1.Value

Cells(i, 5) = time2.Value

Cells(i, 6) = AA.Value

Cells(i, 7) = bB.Value

Cells(i, 8) = cc.Value

Cells(i, 9) = dd.Value

End If

Next i

End Sub

Сортировка данных

Сортировка позволяет выстраивать данные в алфавитном или цифровом порядке по возрастанию.