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

Set w = v

Loop

End Sub

Private Sub UserForm_Activate()

Dim c As Object, d As Object

Sheets(1).Select

Set c = Range("C2")

Do While Not IsEmpty(c)

Set d = c.Offset(1, 0)

ComboBox1.AddItem c

Set c = d

Loop

End Sub

2. Составить ведомость выручек на каждый рейс.

ListBox1.Clear

Dim i As Integer, j As Integer, l As Integer, r As Integer, z As Integer, x As Integer, a As Integer, _

b As Integer, c As Integer, d As Integer, y As Long, t As Integer, k As Integer

Do

i = i + 1

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

j = i - 1

Exit Do

End If

Loop

i = 1

Do

i = i + 1

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

l = i - 1

Exit Do