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

TextBox5 = ""

TextBox6 = ""

TextBox7 = ""

TextBox8 = ""

TextBox9 = ""

Set e = Range("C2")

Do While Not IsEmpty(e)

Set f = e.Offset(1, 0)

If e.Text = ComboBox1.Text Then

ListBox1.AddItem (e.Offset(0, -1).Text)

End If

Set e = f

Loop

End Sub

Private Sub ListBox1_Click()

Dim e As Object, f As Object, k As Object, l As Object, _

a As Integer, b As Integer, c As Integer, d As Integer, _

v As Object, w As Object

Sheets(1).Select

Set e = Sheets(1).Cells(2, 2)

Set w = Sheets(2).Cells(2, 1)

Set k = Sheets(3).Cells(2, 3)

Do While Not IsEmpty(e)

Set f = e.Offset(1, 0)

If e.Text = ListBox1.Text And e.Offset(0, 1).Text = ComboBox1 Then

TextBox9.Text = e.Offset(0, -1).Text

a = e.Offset(0, 4)

b = e.Offset(0, 5)

c = e.Offset(0, 6)