Dim i As Integer ' счетчик рейсов
Dim j As Integer ' номер текущего порта
Dim k As Integer ' направление движения
' 1 - вперед;
' -1 - назад.
' Начальные условия
k = 1 ' движемся вперед
j = 1 ' находимся в первом порту
For i = 1 To 120
j = j + k
' совершаем i-й рейс в j-й порт
' по прибытии в j-й порт задаемся направлением следующего рейса
' (рейсы с 38 по 73 делаем без захода в первый порт)
If i > 38 And i < 73 Then
If j = 2 Or j = 4 Then k = k * (-1)
Else
If j = 1 Or j = 4 Then k = k * (-1)
End If
Sheets(1).Cells(i, 1).Value = i
Sheets(1).Cells(i, 2).Value = j
Next i
Sheets(1).ChartObjects.Add 100, 30, 400, 250
Sheets(1).ChartObjects(1).Activate
ActiveChart.ChartType = xlXYScatterLines
ActiveChart.SetSourceData Source:=Sheets(1).Range("A1:B120"), PlotBy:=xlColumns |
