Sub createRightField()
Dim countNumbers As Byte, fndCells As Range, countMoves As Integer, byteRndDir As Byte, fndRndRange As Range
countNumbers = 1
For Each fndCells In rngPlayField.Cells 'заполняем поле значениями от 1 до 16
fndCells.Value = countNumbers
countNumbers = countNumbers + 1
Next
While countMoves < 300
byteRndDir = 3 * Rnd() + 1 ' 1 - up, 2 - down, 3 - left, 4 - right
For Each fndRndRange In rngPlayField.Cells
If fndRndRange.Value = 16 Then
Select Case byteRndDir 'выбор направления
Case 1
If fndRndRange.Offset(-1, 0) <> "" Then
fndRndRange.Value = fndRndRange.Offset(-1, 0)
fndRndRange.Offset(-1, 0) = 16
countMoves = countMoves + 1
End If
Case 2
If fndRndRange.Offset(1, 0) <> "" Then
fndRndRange.Value = fndRndRange.Offset(1, 0)
fndRndRange.Offset(1, 0) = 16
countMoves = countMoves + 1
End If
Case 3
If fndRndRange.Offset(0, -1) <> "" Then
fndRndRange.Value = fndRndRange.Offset(0, -1)
fndRndRange.Offset(0, -1) = 16
countMoves = countMoves + 1
End If
Case 4
If fndRndRange.Offset(0, 1) <> "" Then
fndRndRange.Value = fndRndRange.Offset(0, 1)
fndRndRange.Offset(0, 1) = 16
countMoves = countMoves + 1
End If
End Select
End If
Next
Wend
Call decorateField
End Sub
Это очень подлый поступок - вставить картинку с троллейбусом сразу в статью
пусть нахуй сам тогда и комментирует и обсирает свой код
Никто не покармадрочит зато. Хотя...
Комментарий недоступен
Да, все так. Если вырезаешь часть кода, это обычно не нравится редактору. Но я делал это в 10 версии, может в более новых и пофиксили.
Абстрагируясь от вопросов «зачем», комменты можно (я бы сказал, нужно) писать перед кодом, к которому коммент предназначается. А длинные условия переносить на новую строку.