Есть в VBA аналог "repeat until keypressed" (из Pascal) ? (-)

[novak_26]

собственно

[EducatedFool]

Да, есть. Точнее, можно реализовать.
Через WinAPI опрашивать клавиатуру - и останавливать макрос в случае нажатия определённой кнопки\кнопок.

PS: Проще сделать отдельную кнопку (на форме, или на листе) для остановки макроса.
Есть и другие способы.

[novak_26]

для такого случая что лучше подойдёт?
Есть большая таблица, например, 1 столбец и 100 строк из чисел от 0 до 10, числа больше 5 подсвечены условным форматированием красным цветом. Нажатием на любую клавишу клавиатуры(/мыши) очередная красная ячейка из нижних становится активной, т.е. пользователь может ёё Увидеть и оценить её "красность" (критичность).

[EducatedFool]

Скачайте файл: http://excelvba.ru/XL_Files/Sample__...__20-58-36.zip

Поставьте курсор в первый столбец, и нажимайте клавишу "пробел", пока не надоест.

Можно определить для макрос любую другую клавишу (или сочетание клавиш)

Private Sub Workbook_Open()
    Application.OnKey " ", "test"
End Sub

Вот сам макрос:

Sub test()
    Application.ScreenUpdating = False
    ActiveCell.Offset(1).Select
    While ActiveCell <= 5 And Not Intersect(ActiveCell, ActiveSheet.UsedRange) Is Nothing
        ActiveCell.Offset(1).Select
    Wend
End Sub