Здравствуйте.
Как при первой же "ИСТИНЕ" в условии прекратить дальнейшие операторы цикла и уйти сразу же на следующий элемент коллекции в этом же цикле?
Цель: максимальная скорость макроса. Никаких лишних проверок и действий быть не должно.
P/S/ Надеюсь, тут изобилия "подколов" не будет про заданный диапазон и желание высокой скорости ))
Диапазон стоит для примера.
Как при первой же "ИСТИНЕ" в условии прекратить дальнейшие операторы цикла и уйти сразу же на следующий элемент коллекции в этом же цикле?
Цель: максимальная скорость макроса. Никаких лишних проверок и действий быть не должно.
P/S/ Надеюсь, тут изобилия "подколов" не будет про заданный диапазон и желание высокой скорости ))
Диапазон стоит для примера.
Код |
---|
Sub Макрос2() For Each Ячейка In Range("B1:B10") If Ячейка.Cells.Value < -1000000000 Then Ячейка.Cells.NumberFormat = "0,,,В" If Ячейка.Cells.Value < -1000000 Then Ячейка.Cells.NumberFormat = "0,,М" If Ячейка.Cells.Value < -1000 Then Ячейка.Cells.NumberFormat = "0,К" If Ячейка.Cells.Value > 1000000000 Then Ячейка.Cells.NumberFormat = "0,,,В" If Ячейка.Cells.Value > 1000000 Then Ячейка.Cells.NumberFormat = "0,,М" If Ячейка.Cells.Value > 1000 Then Ячейка.Cells.NumberFormat = "0,К" If Ячейка.Cells.Value < 0 Then Ячейка.Cells.NumberFormat = "0" Next End Sub |
Компьютер никогда не заменит человека (©️ Hannibal Lecter)