Написал програмку чисто для развлечения и упражнения в VBA
Програмка случайным образом находит ячейку от 1,1 до 20,20, потом ставит случайный цвет от 1 до 30 и рисует змейку случайными же цветами, пока змейка не доростет до края 1,1 - 20,20. Потом записывает количество прошедших циклов (их может быть максимум 59) и последний цвет.
Подскажите пожалуйста - где можно оптимизировать и сократить программу?
Код |
---|
Sub lenta2() Dim i As Integer Dim rr As Integer Dim im As Integer Dim jm As Integer Dim col As Integer Dim i2 As Integer Randomize im = Int((20 - 1 + 1) * Rnd + 1) jm = Int((20 - 1 + 1) * Rnd + 1) col = Int((30 - 1 + 1) * Rnd + 1) Cells(im, jm).Interior.ColorIndex = col For i = 1 To 59 Application.Wait (Now + TimeValue("0:00:01")) rr = Int((4 - 1 + 1) * Rnd + 1) Select Case rr Case 1 im = im jm = jm + 1 Case 2 im = im jm = jm - 1 Case 3 im = im + 1 jm = jm Case 4 im = im - 1 jm = jm End Select i2 = i2 + 1 If jm = 1 Or im = 1 Or jm > 19 Or im > 19 Then GoTo Ende Else col = Int((30 - 1 + 1) * Rnd + 1) Cells(im, jm).Interior.ColorIndex = col End If Next i Ende: Cells(2, 24).Interior.ColorIndex = col Cells(1, 24).Value = i2 End Sub |
Подскажите пожалуйста - где можно оптимизировать и сократить программу?
Goedenavond!